tự động tính tổng khi merge cell trong excel

Liên hệ QC

chungk54neu

Thành viên mới
Tham gia
3/6/19
Bài viết
45
Được thích
7
mọi người có cách nào giúp em trường hợp "tự động tính tổng khi merge cell trong excel" kết quả em tô màu vàng trong file mẫu ạ
 

File đính kèm

  • mẫu.xlsx
    9.2 KB · Đọc: 38
Chưa hiểu ý bạn lắm, bạn muốn Merge là Merge những Cell nào trong bảng tính? chổ Tast hay cột phía sau cột số.
 
Bạn xem thử phải như này không
Mã:
Sub Merge()
Dim RangeSum As Range
Set RangeSum = Selection.Offset(0, 1)
Application.DisplayAlerts = False
Selection.Offset(0, 2).Merge
Selection.Merge
Sum = Application.WorksheetFunction.Sum(RangeSum, 0, Column)
Selection.Offset(0, 2).Value = Sum
Application.DisplayAlerts = True
End Sub
 

File đính kèm

  • Copy of mẫu-1.xlsb
    16.5 KB · Đọc: 22
Web KT
Back
Top Bottom