Sub abc()
Dim Nguon
Dim Kq
Dim rws
Dim i, j, k
Nguon = Sheet1.Range("A2:A5")
rws = UBound(Nguon)
ReDim Kq(1 To rws, 1 To 1)
For i = 1 To rws
k = IIf(InStr(Nguon(i, 1), "."), ".", " ")
For Each j In Split(Nguon(i, 1), k)
If IsNumeric(Left(j, 1)) Then
If...