Resize trong VBA For...next (1 người xem)

[duynhatgpe]

Thân chào GPE !
bây giời mình đang có VBA For..next cần giúp đỡ ...là làm sao tách ở range A1 ra bên cột B và cột C ,mình Resize cho cột B thì đúng, còn phần còn lại cột C thì phải làm sao ? không biết Resize làm như vậy hợp lý không nữa , xin mọi người giúp mình hiểu thêm ,xin cám ơn thật nhiều

 

[concogia]

Thân chào GPE !
bây giời mình đang có VBA For..next cần giúp đỡ ...là làm sao tách ở range A1 ra bên cột B và cột C ,mình Resize cho cột B thì đúng, còn phần còn lại cột C thì phải làm sao ? không biết Resize làm như vậy hợp lý không nữa , xin mọi người giúp mình hiểu thêm ,xin cám ơn thật nhiều

Gán kết quả khi chạy vòng lặp luôn, xong thì "phang" xuống sheet:

Public Sub ToTiTe()
    Dim My, Arr, I, J
    My = [A1]
    ReDim Arr(1 To Len(My), 1 To 3)
        For I = 1 To Len(My)
            If I <= 9 Then
                Arr(I, 1) = Mid(My, I, 1): Arr(I, 2) = Mid(My, I, 1)
            Else
                Arr(I, 1) = Mid(My, I, 1): Arr(I - 9, 3) = Mid(My, I, 1)
            End If
        Next I
    [A2:B500].ClearContents
    [A2].Resize(Len(My), 3) = Arr
End Sub

Thân