Hỏi Phân đoạn cells (1 người xem)

[thietkesohoa]

Em có 1 đoạn văn bản : 534000 235666 235556 ECSD

Giờ em muốn phân nó ra từng cells như hình thì làm sao cho nhanh được ạ.


p/s : nhiều em mới hỏi ít e làm tay rồi các bác nhé. Em cảm ơn ạ

 

[dhn46]

Bạn sử dụng chức năng Data => Text to Column

 

[phulien1902]

Em có 1 đoạn văn bản : 534000 235666 235556 ECSD

Giờ em muốn phân nó ra từng cells như hình thì làm sao cho nhanh được ạ.

Bạn có thể dùng Code dưới đây( Dữ liệu đầu vào là cột A):

Sub TACH()
    Dim lRow As Long
    lRow = Cells(Rows.Count, "A").End(xlUp).Row
    Application.DisplayAlerts = False
    Range("A1:A" & lRow).Copy Range("D1")
    Range("D1:D" & lRow).TextToColumns Destination:=Range("D1"), DataType:=xlDelimited, Space:=True
    Application.DisplayAlerts = True
End Sub

 

[dhn46]

Bạn có thể dùng Code dưới đây( Dữ liệu đầu vào là cột A):

Sub TACH()
    Dim lRow As Long
    lRow = Cells(Rows.Count, "A").End(xlUp).Row
    Application.DisplayAlerts = False
    Range("A1:A" & lRow).Copy Range("D1")
    Range("D1:D" & lRow).TextToColumns Destination:=Range("D1"), DataType:=xlDelimited, Space:=True
    Application.DisplayAlerts = True
End Sub

Code anh thử dùng Split để gán vào mảng 1 chiều rồi gán xuống sheet xem sao.

 

[phulien1902]

Code anh thử dùng Split để gán vào mảng 1 chiều rồi gán xuống sheet xem sao.

Em xem giúp anh được không nhé

Option Explicit
Sub TACH2()
    Dim LR As Long, i As Long, j As Long
    Dim St As String, Sp
    Application.ScreenUpdating = False
    LR = Cells(Rows.Count, 1).End(xlUp).Row
    For i = 1 To LR Step 1
        St = Cells(i, 1)
        Sp = Split(St, " ")
        For j = LBound(Sp) To UBound(Sp) Step 1
            Cells(i, j + 2) = Sp(j)
        Next j
    Next i
    Application.ScreenUpdating = True
End Sub

 

[thietkesohoa]

Em làm được rồi, cảm ơn tất cả ạ