Code này thì bỏ luôn cái regex kia nha, bạn test lại:
Option Explicit
Option Compare Text 'Phan biet hoa-thuong thi bo dong nay
Sub SplitData()
Dim a(), b(), i&, j&, k&, x&, tmp
With Sheets("Sheet1")
a = .Range("A2:A" & .Cells(Rows.Count, "A").End(xlUp).Row).Value
ReDim b(1 To UBound(a))...