Option Explicit
Sub ChinhHopChap2Cua5()
Dim jJ As Byte, Ww As Byte
For jJ = 4 To 8
For Ww = jJ To 8
With Cells(3, Ww - 1)
Cells(jJ, Ww).Value = Cells(3, jJ - 1).Value & .Offset(, 1).Value
End With
Next Ww
Next jJ
End Sub
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2