Bạn dùng code sau:
Sub Tach_sheets()
Dim I As Long, J As Long, K As Long, Ws As Worksheet
Dim Dic As Object, sArr(), tArr, dArr()
sArr() = Sheet1.Range("C2", Sheet1.Range("C2").End(xlDown)).Offset(, -1).Resize(, 2).Value
Set Dic = CreateObject("Scripting.Dictionary")...