Giúp đỡ về tách danh sách (1 người xem)

[boygl34]

Mình có một danh sách, có cách nào tự đưa tên nhân viên vào từng cột ko vậy

 

[CHAOQUAY]

Có thể dùng text to columns hoặc code dưới đây

Sub TachTen()
Dim Nguon
Dim Kq
Dim i, j, k, t
Nguon = Sheet1.Range("b2", Sheet1.Range("b1000000").End(xlUp))
ReDim Kq(1 To UBound(Nguon), 1 To 20)
For i = 1 To UBound(Nguon)
    j = 0
    For Each t In Split(Nguon(i, 1), ",")
        j = j + 1
        Kq(i, j) = t
    Next t
    If k < j Then k = j
Next i
ReDim Preserve Kq(1 To UBound(Nguon), 1 To k)
Sheet1.Range("c2").Resize(UBound(Nguon), k).ClearContents
Sheet1.Range("c2").Resize(UBound(Nguon), k) = Kq
End Sub

 

[lameco411]

Mình có một danh sách, có cách nào tự đưa tên nhân viên vào từng cột ko vậy

tô => Chọn text to column=> next

tích comma next

Chọn Text + chọn ô đích là c2 => Finish

 

[be_09]

Mình có một danh sách, có cách nào tự đưa tên nhân viên vào từng cột ko vậy

Thử code sau:

Sub Tach_NhanVien()
Application.DisplayAlerts = False
    Range("D1").CurrentRegion.Offset(1).ClearContents
    Range("B2", Range("B2").End(xlDown)).TextToColumns _
        Destination:=Range("D2"), DataType:=xlDelimited
Application.DisplayAlerts = True
End Sub

 

[Syn.nguyen]

Bạn dùng thử tool này nhé:

Bài đã được tự động gộp: 19/2/19

Bạn dùng thử tool này nhé: