Chạy code VBA . . .
Option Explicit
Sub xyz()
Dim arr(), bom(), bom2(), aTD()
Dim dSP As Object, d As Object, d1 As Object, d2 As Object, d3 As Object
Dim sR&, sC&, i&, r2&, r3&, k&, c&, key$
Set dSP = CreateObject("scripting.dictionary")
Set d = CreateObject("scripting.dictionary")...