VBA tự động sao lưu công thức trong 1 cột (1 người xem)

[auvfei]

E có 1 sheet danh sách dữ liệu trong đó có các cột có cùng chung công thúc với nhau. Để cho các dòng của cột B và C có cùng chung công thức e phải kéo chuột. Các bác giúp e 1 VBA có thể tự sao lưu công thức cho các dòng của B và C nếu dòng của cột A có 1 giá trị. Em xin cảm ơn.

em thấy có 1 đoạn code như thế này mà thật sự ko hiểu như thế nào, nhưng VBA này chỉ sao chép trong điều kiện giá trị 2 ô giống nhau.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Sheet1.Range("F4:G1000")) Is Nothing Then
Dim Rng As Range
Application.EnableEvents = False
If Not Intersect(Target, Sheet1.Range("F4:F1000")) Is Nothing Then
Set Rng = Sheet1.Range("F4", Target.Offset(-1)).Find(Target.Text, , xlValues, xlWhole, , , True)
If Not Rng Is Nothing Then Target.Offset(, 1).Value = Rng.Offset(, 1).Value
Else
Set Rng = Sheet1.Range("G4", Target.Offset(-1)).Find(Target.Text, , xlValues, xlWhole, , , True)
If Not Rng Is Nothing Then Target.Offset(, -1).Value = Rng.Offset(, -1).Value
End If
Set Rng = Nothing
Application.EnableEvents = True
End If
End Sub

 

[be_09]

E có 1 sheet danh sách dữ liệu trong đó có các cột có cùng chung công thúc với nhau. Để cho các dòng của cột B và C có cùng chung công thức e phải kéo chuột. Các bác giúp e 1 VBA có thể tự sao lưu công thức cho các dòng của B và C nếu dòng của cột A có 1 giá trị. Em xin cảm ơn.
...................
End Sub

Chẳng cần VBA.
Bạn chọn vào 1 Cell trong cái bảng rồi vào Insert > Table thì bạn muốn Insert bao nhiêu dòng là tùy, công thức nó tự gán vào, xem hình.