Chào bạn, không phải là không có ai làm cho bạn mà khi người ta xem file người ta không thể làm 1 công thức tổng quát hay chí ít cũng làm 1 vài công thức thôi thì người ta sẽ giúp.
Bạn xem file này xem có được không?
Mình thấy bạn gửi nhiều bài quá thấy Cũng Tội .. mình tải file về coi một ngày xong thấy cái đầu nó quay quay ...
nếu bạn muốn thì có thể xem file này, tôi rút gọn lại cho bạn 2 công thức, tôi có tô màu vàng từng người, có 2 ô màu vàng
Option Explicit
Sub TongHop()
Dim J As Byte, W As Byte, Dg As Long, Th As Byte
Dim Sh As Worksheet, Cls As Range
Dim ShName As String, ShN As String
ShN = "TH_Vé"
Sheets(ShN).Select
For J = 1 To 2
ShName = ShN & "_" & Choose(J, "A", "T")
Set Sh = ThisWorkbook.Worksheets(ShName)
Dg = 5 * J + 2
For W = 1 To 4
For Each Cls In Sh.Range(Sh.[A10], Sh.[A21])
Th = Month(Cls.Value)
Cells(Dg + W, 2 * Th + 3).Value = Sh.Cells(Cls.Row, 2 * W + 1).Value
Cells(Dg + W, 2 * Th + 4).Value = Sh.Cells(Cls.Row, 2 * W + 2).Value
Next Cls
Next W
Next J
End Sub
