Tách chuổi, sau đó xếp từ hàng ngang sang hàng dọc (3 người xem)

[quancui]

Dear các anh chị,
Em có bài tách chuổi mà vẫn chưa nghĩ ra phương pháp.
Bài toán của em cũng giống như tách họ tên nhưng khi tách xong thì từ hàng ngang phân thành hàng dọc.
Xin được giúp đỡ, chân thành cảm ơn!

 

[giangleloi]

Dear các anh chị,
Em có bài tách chuổi mà vẫn chưa nghĩ ra phương pháp.
Bài toán của em cũng giống như tách họ tên nhưng khi tách xong thì từ hàng ngang phân thành hàng dọc.
Xin được giúp đỡ, chân thành cảm ơn!

Xem thử file này nha:

 

[Let'GâuGâu]

góp thêm

Sub tachchuoi()
Dim arr, Sarr, v As Variant, kq(), i, j, k As Long
arr = [a6:b11].Value
ReDim kq(1 To 10000, 1 To 2)
For i = 1 To UBound(arr)
Sarr = Split(arr(i, 2), ",")
    For Each v In Sarr
        k = k + 1
        kq(k, 1) = arr(i, 1)
        kq(k, 2) = v
    Next
Next i
[e6:f10000].Clear
[e6].Resize(k, 2).Value = kq
End Sub

 

[quancui]

Xem thử file này nha:

góp thêm

Sub tachchuoi()
Dim arr, Sarr, v As Variant, kq(), i, j, k As Long
arr = [a6:b11].Value
ReDim kq(1 To 10000, 1 To 2)
For i = 1 To UBound(arr)
Sarr = Split(arr(i, 2), ",")
    For Each v In Sarr
        k = k + 1
        kq(k, 1) = arr(i, 1)
        kq(k, 2) = v
    Next
Next i
[e6:f10000].Clear
[e6].Resize(k, 2).Value = kq
End Sub

Cảm ơn hai bác giangleloi và Let`gogo đã giúp đỡ.
Em chưa biết gì về VBA nhưng em sẽ tìm cách đưa vào file của mình.
Hôm nay là ngày bắt đầu VBA của em.
Thanks hai bác nhé!

 

[comet_1701]

Cảm ơn hai bác giangleloi và Let`gogo đã giúp đỡ.
Em chưa biết gì về VBA nhưng em sẽ tìm cách đưa vào file của mình.
Hôm nay là ngày bắt đầu VBA của em.
Thanks hai bác nhé!

Chào mừng bạn đến với VBA. Với khả năng của bạn mình nghĩ sau những bài kiểu này chắc bạn tự xử được. chúc bạn thành công