Cách lấy hàm chuỗi theo ý muốn (3 người xem)

[Nguyễn Thành Châu]

Mình muốn tách ký tự cột F sang cột G như hình, mình gửi file đính kèm bên dưới mong mọi người giúp đỡ. Mình xin cảm ơn.

 

[CHAOQUAY]

Mình muốn tách ký tự cột F sang cột G như hình, mình gửi file đính kèm bên dưới mong mọi người giúp đỡ. Mình xin cảm ơn.

View attachment 233042

Số liệu ban đầu tại cột A:F có dòng trống không vậy bạn?

 

[Nguyễn Thành Châu]

Số liệu ban đầu tại cột A:F có dòng trống không vậy bạn?

Cột A:F không có dòng trống nha bạn.

 

[VetMini]

Má ơi. Nền màu xám mà chữ màu đỏ. Đọc muốn nổ con mắt.
Đây là điển hình cách lkamf việc của của đân quảng cáo hàng: màu thì nổi bật mà dữ liệu thì chả đọc nổi.

 

[CHAOQUAY]

Cột A:F không có dòng trống nha bạn.

Chèn thêm 1 sheet mới tên là sheet2, chạy thử đoạn code dưới đây.

Sub abc()
Dim Nguon
Dim Kq() As String
Dim i, j, k, x
Nguon = Sheet1.Range("A1").CurrentRegion
k = UBound(Nguon)
ReDim Kq(1 To k * 100, 1 To 6)
x = 1
For i = 1 To k
    For j = 1 To 5
        Kq(x, j) = Nguon(i, j)
    Next j
    For Each j In Split(Left(Nguon(i, 6), Len(Nguon(i, 6)) - 2), ",")
        Kq(x, 6) = Trim(j)
        x = x + 1
    Next j
Next i
With Sheets("Sheet2")
    .UsedRange.Clear
    .Range("A1").Resize(x, 6) = Kq
    .UsedRange.Columns.AutoFit
End With
End Sub

 

[Nguyễn Thành Châu]

Má ơi. Nền màu xám mà chữ màu đỏ. Đọc muốn nổ con mắt.
Đây là điển hình cách lkamf việc của của đân quảng cáo hàng: màu thì nổi bật mà dữ liệu thì chả đọc nổi.

Cảm ơn bạn.

Chèn thêm 1 sheet mới tên là sheet2, chạy thử đoạn code dưới đây.

Sub abc()
Dim Nguon
Dim Kq() As String
Dim i, j, k, x
Nguon = Sheet1.Range("A1").CurrentRegion
k = UBound(Nguon)
ReDim Kq(1 To k * 100, 1 To 6)
x = 1
For i = 1 To k
    For j = 1 To 5
        Kq(x, j) = Nguon(i, j)
    Next j
    For Each j In Split(Left(Nguon(i, 6), Len(Nguon(i, 6)) - 2), ",")
        Kq(x, 6) = Trim(j)
        x = x + 1
    Next j
Next i
With Sheets("Sheet2")
    .UsedRange.Clear
    .Range("A1").Resize(x, 6) = Kq
    .UsedRange.Columns.AutoFit
End With
End Sub

Để mình làm thử, tks bạn nha.