Chạy code . . .
Sub ABC()
Dim arr(), res(), str$, chr$, sRow&, i&, j&, c&, n&
Const FistChar$ = ":./" 'Tu khoa truoc ten
arr = Range("B3", Range("B" & Rows.Count).End(xlUp)).Value
sRow = UBound(arr)
ReDim res(1 To sRow, 1 To 1)
For i = 1 To sRow
j = InStr(1, arr(i, 1), "boi...