Bạn dùng code sau:
Sub GPE()
Dim Dic As Object, sArr(), Temp(), Res()
Dim I As Long, J As Long, K As Long, H As Long
Application.ScreenUpdating = False
Set Dic = CreateObject("Scripting.Dictionary")
sArr() = Sheet2.Range("A2", Sheet2.Range("A2").End(xlDown)).Resize(...