Tách dữ liệu (1 người xem)

[luunguyenducthinh]

Các bạn giúp mình làm sao để có thể tách dữ liệu sau dấu "/" ở cột C sang ví trí tương ứng ở cột D, E, F, G, H như file đính kèm.
Cảm ơn.

 

[doatmenhhon]

Bạn bôi đen cột C3 đến C7-->Vào thẻ Data-->Text to Colum-->Next-->Other: Dấu "/"-->Destination: $D$3-->Finish.

 

[phulien1902]

Các bạn giúp mình làm sao để có thể tách dữ liệu sau dấu "/" ở cột C sang ví trí tương ứng ở cột D, E, F, G, H như file đính kèm.
Cảm ơn.

BẠn tham khảo:

Sub ABC()
    Dim Arr, k%, Cll As Range, i%
    For Each Cll In [c3:c7]
        k = 4: Arr = Split(Cll.Value, "/")
        For i = 0 To UBound(Arr)
            If i > 2 And i < (UBound(Arr) - 1) Then
                Cells(Cll.Row, k) = Cells(Cll.Row, k) & "/" & Arr(i)
                If i = UBound(Arr) Then
                    k = k + 1
                End If
            Else
                Cells(Cll.Row, k).Value = Arr(i)
                k = k + 1
            End If
        Next: Next
        Columns.AutoFit
End Sub