Bạn chạy thử Code này
Sub TongHopDuLieu()
Dim Dic As Object, Dict As Object, sKey As String, R As Long, bh As String
Dim tArr(), sArr(), dArr(), I As Long, K As Long, Er As Long
Set Dict = CreateObject("Scripting.Dictionary")
Set Dic = CreateObject("Scripting.Dictionary")
With...