Tách tên tuổi theo VBA chính xác (1 người xem)

[qvtbvn8]

Chào các bạn thành viên diễn đàn GPE!
mình có bài toán này tham khảo các bạn.
Mình muốn tách tên và tuổi theo hàng thành cột rất ràng và nhiều cột. Các bạn thành viên xem viết code chạy như file ví dụ dùm mình.
Xin cảm ơn Thành viên GPE!

 

[Ba Tê]

Chào các bạn thành viên diễn đàn GPE!
mình có bài toán này tham khảo các bạn.
Mình muốn tách tên và tuổi theo hàng thành cột rất ràng và nhiều cột. Các bạn thành viên xem viết code chạy như file ví dụ dùm mình.
Xin cảm ơn Thành viên GPE!

Bạn chạy thử code này xem sao:

Public Sub GPE()
Dim sArr(), dArr(), Tem As String
Dim I As Long, J As Long, K As Long, N As Long, R As Long, Col As Long, Rws As Long
sArr = Range("A1", Range("A1").End(xlDown).Resize(, Range("A1").End(xlToRight).Column))
R = UBound(sArr)
ReDim dArr(1 To 10000, 1 To R)
For I = 1 To R
    K = 0: Col = Col + 1
    For J = 1 To UBound(sArr, 2)
        Tem = Trim(sArr(I, J))
        For N = 1 To Len(Tem)
            K = K + 1
            dArr(K, Col) = Mid(Tem, N, 1)
        Next N
    Next J
    If K > Rws Then Rws = K
Next I
Range("U1").Resize(Rws, R) = dArr
End Sub

 

[qvtbvn8]

Chạy ổn thầy Ba Tê áh!