code thêm chữ "Tổng cộng" và tính giá trị tổng của các cột

[thoai]

Mình có file dữ liệu cần tổng hợp giá trị tổng cộng, Nhờ AC code tính tổng ổ các cột như file và thêm dòng tổng cộng

 

[Ba Tê]

Mình có file dữ liệu cần tổng hợp giá trị tổng cộng, Nhờ AC code tính tổng ổ các cột như file và thêm dòng tổng cộng

Để dòng tổng bên trên được không?

 

[LamNA]

Mình có file dữ liệu cần tổng hợp giá trị tổng cộng, Nhờ AC code tính tổng ổ các cột như file và thêm dòng tổng cộng

Bạn thử nhe

 

[♫ђöล♥ßล†♥†µ♫]

Bạn thử nhe

Cái đoạn dài dài

 With Sh.Cells(eRw, "D").Offset(1)
   .FormulaR1C1 = "=SUM(R[-" & rW & "]C:R[-1]C)"
   .Font.Bold = True
 End With
 
With Sh.Cells(eRw, "E").Offset(1)
   .FormulaR1C1 = "=SUM(R[-" & rW & "]C:R[-1]C)"
   .Font.Bold = True
 End With
 
 With Sh.Cells(eRw, "F").Offset(1)
   .FormulaR1C1 = "=SUM(R[-" & rW & "]C:R[-1]C)"
   .Font.Bold = True
 End With
 
 With Sh.Cells(eRw, "G").Offset(1)
   .FormulaR1C1 = "=SUM(R[-" & rW & "]C:R[-1]C)"
   .Font.Bold = True
 End With

Có thể thay như thế nỳ cho gọn

With Sh.Range("D" & eRw).Resize(, 4).Offset(1)
    .FormulaR1C1 = "=SUM(R[-" & rW & "]C:R[-1]C)"
    .Font.Bold = True
End With

 

[LamNA]

Cái đoạn dài dài

With Sh.Cells(eRw, "D").Offset(1)
   .FormulaR1C1 = "=SUM(R[-" & rW & "]C:R[-1]C)"
   .Font.Bold = True
End With

With Sh.Cells(eRw, "E").Offset(1)
   .FormulaR1C1 = "=SUM(R[-" & rW & "]C:R[-1]C)"
   .Font.Bold = True
End With

With Sh.Cells(eRw, "F").Offset(1)
   .FormulaR1C1 = "=SUM(R[-" & rW & "]C:R[-1]C)"
   .Font.Bold = True
End With

With Sh.Cells(eRw, "G").Offset(1)
   .FormulaR1C1 = "=SUM(R[-" & rW & "]C:R[-1]C)"
   .Font.Bold = True
End With

Có thể thay như thế nỳ cho gọn

With Sh.Range("D" & eRw).Resize(, 4).Offset(1)
    .FormulaR1C1 = "=SUM(R[-" & rW & "]C:R[-1]C)"
    .Font.Bold = True
End With

Em đã chỉnh lại

 

[thoai]

Để dòng tổng bên trên được không?

Để dòng tổng cộng ở dòng trống đầu tiên ah

 

[Ba Tê]

Để dòng tổng cộng ở dòng trống đầu tiên ah

Không biết cột nào nhập thủ công, cột nào cần tính.
Thử xem file này coi sao.