Chuyển dữ liệu từ chuỗi sang cells theo dạng mảng

[Miccpro]

Xin chào các anh chị GPE!
Giả sử em có 1 chuỗi gồm N phần tử trong đó có 2 ký tự đặc biệt là ; và $ để ngăn cách các phần tử.
Em muốn mọi người giúp em chuyển chuỗi trên vào cell với điều kiện: dấu ; để chuyển sang cột khác, dấu $ để xuống dòng.
Chi tiết ví dụ như file đính kèm, em xin chẩn thành cảm ơn!

 

[CHAOQUAY]

Xin chào các anh chị GPE!
Giả sử em có 1 chuỗi gồm N phần tử trong đó có 2 ký tự đặc biệt là ; và $ để ngăn cách các phần tử.
Em muốn mọi người giúp em chuyển chuỗi trên vào cell với điều kiện: dấu ; để chuyển sang cột khác, dấu $ để xuống dòng.
Chi tiết ví dụ như file đính kèm, em xin chẩn thành cảm ơn!

Bạn thử code dưới đây

Option Explicit

Sub tachDl()
Dim DL
Dim chuoi0, chuoi1
Dim Kq
Dim rws, cls
Dim i, j, k
DL = Sheet1.Range("A5")
rws = Len(DL) - Len(Replace(DL, "$", "")) + 1
cls = UBound(Split(Left(DL, InStr(DL, "$") - 1), ";")) + 1
ReDim Kq(1 To rws, 1 To cls)
For Each chuoi0 In Split(DL, "$")
    i = i + 1
    j = 0
    For Each chuoi1 In Split(chuoi0, ";")
        j = j + 1
        Kq(i, j) = chuoi1
    Next chuoi1
Next chuoi0
Sheet1.Range("G5").Resize(rws, cls) = Kq
End Sub

 

[Maika8008]

Bạn thử code dưới đây

Option Explicit

Sub tachDl()
Dim DL
Dim chuoi0, chuoi1
Dim Kq
Dim rws, cls
Dim i, j, k
DL = Sheet1.Range("A5")
rws = Len(DL) - Len(Replace(DL, "$", "")) + 1
cls = UBound(Split(Left(DL, InStr(DL, "$") - 1), ";")) + 1
ReDim Kq(1 To rws, 1 To cls)
For Each chuoi0 In Split(DL, "$")
    i = i + 1
    j = 0
    For Each chuoi1 In Split(chuoi0, ";")
        j = j + 1
        Kq(i, j) = chuoi1
    Next chuoi1
Next chuoi0
Sheet1.Range("G5").Resize(rws, cls) = Kq
End Sub

Dễ hì

 

[ndu96081631]

Xin chào các anh chị GPE!
Giả sử em có 1 chuỗi gồm N phần tử trong đó có 2 ký tự đặc biệt là ; và $ để ngăn cách các phần tử.
Em muốn mọi người giúp em chuyển chuỗi trên vào cell với điều kiện: dấu ; để chuyển sang cột khác, dấu $ để xuống dòng.
Chi tiết ví dụ như file đính kèm, em xin chẩn thành cảm ơn!

Cách đơn giản là:
- Thay dấu ; thành vbTab
- Thay dấu $ thành vbCrlf
- Đập nội dung xuống sheet
Xong!