Giúp mình code VBA để kéo công thức Excel

apolitus

Member
Hội viên mới
Mình có một mẫu file kiểm tra số liệu báo cáo và mình muốn rằng viết một code VBA để khi mình copy tiếp dữ liệu (phần mình bôi màu xanh). Thì nó sẽ giúp mình copy công thức ở dòng trên xuống hết ô dữ liệu tương ứng.
Cám ơn các bạn
 

Đính kèm

  • file bao cao.rar
    25.8 KB · Lượt xem: 125
Mình mới viết code áp dụng cho file này các bạn xem giúp mình nha:
Sub tong_subtotal()
Dim lr As Long
lr = Sheet2.Cells(Rows.Count, 1).End(xlUp).Row
Sheet2.Range("v4").Formula = "=subtotal(9,v7:v" & lr & ")"
Sheet2.Range("w4").Formula = "=subtotal(9,w7:w" & lr & ")"
End Sub

Sub Dien_cong_Thuc()
Dim lr As Long
lr = Sheet2.Cells(Rows.Count, 1).End(xlUp).Row
Dim a As Integer
Dim b As Integer
Dim c As Integer

Sheet2.Range("a1").Formula = "=COUNTA(G:G)"
a = Sheet2.Range("a1").Value + 5
Sheet2.Range("a2").Formula = "=COUNTA(r:r)"
b = Sheet2.Range("a2").Value + 5
If a - b <> 0 Then
c = b + 1
Sheet2.Range("j" & b).Select


Range(Selection, Selection.End(xlToRight)).Select
Selection.AutoFill Destination:=Range(Cells(b, 10), Cells(lr, 25))

Sheet2.Range("t" & c).Select
ActiveCell.FormulaR1C1 = "131"
Range(Selection, Selection.End(xlDown)).Select
Selection.FillDown
Else
MsgBox "Da copy du lieu"
Exit Sub
End If
End Sub
 
Mình có một mẫu file kiểm tra số liệu báo cáo và mình muốn rằng viết một code VBA để khi mình copy tiếp dữ liệu (phần mình bôi màu xanh). Thì nó sẽ giúp mình copy công thức ở dòng trên xuống hết ô dữ liệu tương ứng.
Cám ơn các bạn
Chẳng code kiếc gì cả, Isert tiêu đề xuống dòng 7 cho cách với dòng trống với dòng tổng ở trên.
Click chọn tiêu đề rồi vào Insert Table, bây giờ nhập liệu bao nhiêu dòng là nó tự gán hàm xuống.
 

Đính kèm

  • file bao cao.rar
    27.4 KB · Lượt xem: 175

CẨM NANG KẾ TOÁN TRƯỞNG


Liên hệ: 090.6969.247

KÊNH YOUTUBE DKT

Cách làm file Excel quản lý lãi vay

Đăng ký kênh nhé cả nhà

SÁCH QUYẾT TOÁN THUẾ


Liên hệ: 090.6969.247

Top