Dữ liệu khá rối, code dựa vào các bảng tra, các giá trị phải xếp thứ tự theo số ký tự từ lớn tới nhỏ. Chạy sub main
Option Explicit
Sub Main()
Dim sArr(), aCap(), aLK(), aDG(), res$(), sRow&, i&, j&
With Sheets("Data-v1")
sArr = .Range("B2", .Range("B999999").End(xlUp)).Value
End With...