ngồi buồn góp vui thêm một cách
Sub LDT()
Dim Sh As Worksheet
Application.ScreenUpdating = False
Sheets("KHO SO").Range("E2:E" & [A6500].End(3).Row).FormulaR1C1 = "=VLOOKUP(""*""&LEFT(--RC4,IF(LEN(--RC4)>9,3,2))&""*"",R1C7:R7C8,2,0)"
For Each Sh In Worksheets
If Sh.Name <> "KHO SO" Then...