Trời ạ, lần đầu thấy đánh số thứ tự chứng từ không phân biệt phiếu thu phiếu chi :(
Sub ABC()
Dim Dic As Object, sArr(), i&, sRow&, pt&, pc&, iKey$, sct$
Set Dic = CreateObject("Scripting.Dictionary")
With Sheet1
i = .Range("A" & Rows.count).End(xlUp).Row
If i < 3 Then MsgBox...