Góp vui.
Bạn chủ thớt Tham khảo
Option Explicit
Sub TachSheet()
Dim i&, j&, Lr&, R&, n&, k&
Dim Arr(), Rng(), KQ(), S
Dim Dic As Object, Key
Dim ws As Worksheet, Sh As Worksheet
Dim wsName$
Set Sh = Sheets("Purchase")
Lr = Sh.Cells(1000000, 1).End(xlUp).Row
Arr = Sh.Range("A14:AR" &...