Cộng các ô Merge & center

[nammkn02]

Mình không biết "group" là gì.

ok, cảm ơn Anh đã giúp đỡ! (dù rằng giúp không đến nơi đến chốn)

 

[Hoàng Tuấn 868]

ok, cảm ơn Anh đã giúp đỡ! (dù rằng giúp không đến nơi đến chốn)

Không phải không đến nơi, đến chốn. Mà mình thấy toàn người Việt mà sao phải chèn tiếng linh tinh vào làm gì. Vì vậy nên không muốn làm.

 

[nammkn02]

Chúc Anh ngủ ngon.

 

[nammkn02]

Mà thực ra bài này thì thế này là đủ bác ạ:

Sub abc()
Dim Cll As Range
For Each Cll In Sheets("Sheet1").Range("B1:B26")
    Cll.Value = Application.WorksheetFunction.Sum(Cll.MergeArea.Offset(, -1).Resize(Cll.MergeArea.Rows.Count, 1))
Next
End Sub

Còn bài mới của thớt thì lười quá, thớt tự vận dụng vậy

Bác sửa cho em chỉ cần nhập số liệu là tự động ra kết quả luôn được ko ạ!