Bạn phải hỏi cụ thể hơn, Công thức nào, và gán cho cột nào thì mọi người sẽ giúp choNhư tiêu đề, mong được mọi người giúp đỡ ak:">
Sub GPE_Macro()
Dim Rng As Range
If [A1].Value <> "" Then
Set Rng = Range([A1], [A65500].End(xlUp))
Else
Set Rng = Range([A1].End(xlDown), [A65500].End(xlUp))
End If
Rng.Offset(, 1).FormulaR1C1 = "=RC[-1]*1.5"
End Sub
Theo mình nghĩ thay đổi A1 thành c2:c65500. Quan trọng là câu này Rng. offset(, 1). Nhưng vì 2 ta không biết VBA nên chờ các bác giúp đỡ xem sao.cảm ơn bác ChanhTQ@, bác có thể cho e biết cần chú ý những phần nào trong công thức này để có thể sửa và áp dụng cho các cột khác không bác
Ví dụ ta sử dụng công thức tại sheet 2 ô c2 như sau
=SUMIF(1!G:G,2!A2,3!F:F)
thì e phải thay đổi công thức trên những gì để áp dụng được hả bác?
e hỏi nhiều để sau này biết luôn không phải tạo nhiều topic hỏi, mong các bác thông cảm
Sub Keo_cong_thuc_1_cot()
'
' Keo_cong_thuc_1_cot Macro
'
'
Selection.AutoFill Destination:=Range("C2:C18000"), Type:=xlFillDefault
End Sub
Sub Keo_cong_thuc_nhieu_cot()
'
' Keo_cong_thuc_nhieu_cot Macro
'
'
Range("D2:F2").Select
Selection.AutoFill Destination:=Range("D2:F18000"), Type:=xlFillDefault
End Sub