Giúp code xuất 1 chuổi ra 1 bảng dữ liệu (1 người xem)

[minhtuan55]

Chào cả nhà GPE ! Chúc cả nhà 1 ngày làm việc vui vẽ
Em có vấn đề cần cả nhà giúp em. Vấn đề của em như sau
Em có dùng 1 đoạn code ( cũng ở trên diễn đàn ) dùng đế xuất từ 1 vùng dữ liệu sang 1 chuỗi dữ liệu. Nhưng giờ em muốn làm ngược lại là từ 1 chuỗi dữ liệu sang 1 vùng dữ liệu ( như lúc ban đầu )
Mong cả nhà giúp em. em xin chân thành cảm ơn !
em có gửi File cả nhà giúp em nhé

 

[Ba Tê]

Chào cả nhà GPE ! Chúc cả nhà 1 ngày làm việc vui vẽ
Em có vấn đề cần cả nhà giúp em. Vấn đề của em như sau
Em có dùng 1 đoạn code ( cũng ở trên diễn đàn ) dùng đế xuất từ 1 vùng dữ liệu sang 1 chuỗi dữ liệu. Nhưng giờ em muốn làm ngược lại là từ 1 chuỗi dữ liệu sang 1 vùng dữ liệu ( như lúc ban đầu )
Mong cả nhà giúp em. em xin chân thành cảm ơn !
em có gửi File cả nhà giúp em nhé

Bạn tự gán cái này vào chỗ nào đó cho nó chạy nhé.

Public Sub Tach()
Dim Arr(1 To 100, 1 To 4), Tmp, Tem, Str As String
Dim I As Long, J As Long, K As Long, C As Long, Col As Long
Str = Range("G4").Value
Tmp = Split(Str, ";"): C = UBound(Tmp): K = 1
On Error Resume Next
For I = 0 To C
    Tem = Split(Tmp(I), "*"): Col = 1
    For J = 0 To 3
        Arr(K, Col) = Tem(J)
        Col = Col + 1
    Next J
    If Col > 4 Then
        Col = 1: K = K + 1
    End If
Next I
Range("J4").Resize(K, 4) = Arr
End Sub

 

[minhtuan55]

Bạn tự gán cái này vào chỗ nào đó cho nó chạy nhé.

Public Sub Tach()
Dim Arr(1 To 100, 1 To 4), Tmp, Tem, Str As String
Dim I As Long, J As Long, K As Long, C As Long, Col As Long
Str = Range("G4").Value
Tmp = Split(Str, ";"): C = UBound(Tmp): K = 1
On Error Resume Next
For I = 0 To C
    Tem = Split(Tmp(I), "*"): Col = 1
    For J = 0 To 3
        Arr(K, Col) = Tem(J)
        Col = Col + 1
    Next J
    If Col > 4 Then
        Col = 1: K = K + 1
    End If
Next I
Range("J4").Resize(K, 4) = Arr
End Sub

Code quá đúng anh ơi, em cảm ơn anh nhiều lắm. Anh cho em hỏi em bỏ cái Public nó cũng chạy bình thường. vậy có sao không anh