Xin các bạn giúp giùm mình bài này (2 người xem)

[cubexp]

Public Sub GPEX()
Dim Buoi As Object, Ten As Object, Ngay As Long, sArr(), dArr(), I As Long, R As Long
Set Buoi = CreateObject("Scripting.Dictionary")
Set Ten = CreateObject("Scripting.Dictionary")
With Sheets("Thang6")
sArr = .Range("M1:N3").Value
For I = 1 To 3
Buoi.Add sArr(I, 1), sArr(I, 2)
Next I
sArr = .Range(.[O1], .[O1].End(xlDown)).Resize(, 2).Value
For I = 1 To UBound(sArr, 1)
Ten.Add sArr(I, 1), sArr(I, 2)
R = sArr(I, 2) + 8
Next I
sArr = .Range(.[B20], .[B65536].End(xlUp)).Resize(, 7).Value
ReDim dArr(1 To R, 1 To 31)
For I = 1 To UBound(sArr, 1)
If sArr(I, 1) <> Empty And sArr(I, 4) <> Empty Then
dArr(Ten.Item(sArr(I, 1)) + Buoi.Item(UCase(sArr(I, 4))), Day(sArr(I, 3))) = sArr(I, 4) nối chuổi với dArr(Ten.Item(sArr(I, 1)) + Buoi.Item(UCase(sArr(I, 4))), Day(sArr(I, 3))) = sArr(I, 5) // các bạn giúp giùm mình nối ô 1va ô 2 xuất ra trong 1 ô
dArr(Ten.Item(sArr(I, 1)) + Buoi.Item(UCase(sArr(I, 4))) + 1, Day(sArr(I, 3))) = sArr(I, 6)
dArr(Ten.Item(sArr(I, 1)) + Buoi.Item(UCase(sArr(I, 4))) + 2, Day(sArr(I, 3))) = sArr(I, 7)
End If
Next I
End With
With Sheets("LICH_GIANG")
.[C5].Resize(R, 31) = dArr
End With
Set Buoi = Nothing
Set Ten = Nothing
End Sub


trân trọng cám ơn nhiều!