Nhờ viết code xử lý file text

[nhqhec2]

Mình có đoạn text can xử lý:
A 1 2 3 2 1 5 END B 1 2 3 4 5 2 3 6 END C 12 3 4 5 6 8 END
1 2 3 3 3 3 4 1 2 3 4 5 6 6 7 5 1 2 3 5 6 6 7
Sau khi xu ly
A 1 2 3 2 1 5
1 2 3 3 3 3 4
B 1 2 3 4 5 2 3 6
1 2 3 4 5 6 6 7 5
C 12 3 4 5 6 8
1 2 3 5 6 6 7



Thanks

 

[CHAOQUAY]

Sub Sub_()
Dim i, j, k
Sheet3.UsedRange.Clear
With Sheet1
    i = 1
    k = 0
    For j = 1 To .Range("A1").End(xlToRight).Column
        If .Cells(2, j).Value = "" Then
            k = k + 1
            .Range(.Cells(1, i), .Cells(2, j - 1)).Copy Sheet3.Range("A1").Offset((k - 1) * 2)
            i = j + 1
        End If
    Next j
End With
End Sub