HỎI-CHỈNH SỬA CODE HÀNG CUỐI

[khoa289]

Chào anh chị
Nhờ anh chị CHỈNH SỬA CODE HÀNG CUỐI NHƯ THẾ NÀO ĐỂ TRÁNH TRÙNG LẶP CÔNG THỨC ""=SUBTOTAL(9,R7C:R[-1]C)"". CÁM ƠN

Sub XUATKETQUA()
'o hoat dong-HANG CUOI
Range("a65500").End(xlUp).Select
With ActiveCell
.Offset(0, 4).FormulaR1C1 = "=SUBTOTAL(9,R7C:R[-1]C)"
.Offset(0, 5).FormulaR1C1 = "=SUBTOTAL(9,R7C:R[-1]C)"
.Offset(0, 6).FormulaR1C1 = "=SUBTOTAL(9,R7C:R[-1]C)"
.Offset(0, 7).FormulaR1C1 = "=SUBTOTAL(9,R7C:R[-1]C)"
.Offset(0, 8).FormulaR1C1 = "=SUBTOTAL(9,R7C:R[-1]C)"
End With
End Sub

 

[HieuCD]

Chào anh chị
Nhờ anh chị CHỈNH SỬA CODE HÀNG CUỐI NHƯ THẾ NÀO ĐỂ TRÁNH TRÙNG LẶP CÔNG THỨC ""=SUBTOTAL(9,R7C:R[-1]C)"". CÁM ƠN

Sub XUATKETQUA()
'o hoat dong-HANG CUOI
Range("a65500").End(xlUp).Select
With ActiveCell
.Offset(0, 4).FormulaR1C1 = "=SUBTOTAL(9,R7C:R[-1]C)"
.Offset(0, 5).FormulaR1C1 = "=SUBTOTAL(9,R7C:R[-1]C)"
.Offset(0, 6).FormulaR1C1 = "=SUBTOTAL(9,R7C:R[-1]C)"
.Offset(0, 7).FormulaR1C1 = "=SUBTOTAL(9,R7C:R[-1]C)"
.Offset(0, 8).FormulaR1C1 = "=SUBTOTAL(9,R7C:R[-1]C)"
End With
End Sub

Sub XUATKETQUA()
  Range("a65500").End(xlUp).Offset(0, 4).Resize(, 5).FormulaR1C1 = "=SUBTOTAL(9,R7C:R[-1]C)"
End Sub