vba - データの特定の行を列に移動します (既存のマクロの反転)

Question

ここで提供されるソリューションへの参照: https://stackoverflow.com/a/9231458

これを逆に行う必要があります。たとえば、次のようになります。

アフギ
BJKLMN
COPQRS
DTUVWX

に

AE
AF
AG
ああ
AI
BJ
BK
BL
BM
BN
CO
CP
CQ
CR
CS
DT
DU
DV
DW
DX

誰か助けてくれませんか？

Answer 1

Sub foo()

    Dim rng As Range
    Dim row As Integer
    Dim col As Integer

    Set rng = Sheets("Sheet1").Range("A1:A4")
    row = 0

    For Each cell In rng
        col = 1
        Do Until cell.Offset(0, col) = ""
            Sheets("Sheet1").Range("A6").Offset(row, 0) = cell
            Sheets("Sheet1").Range("A6").Offset(row, 1) = cell.Offset(0, col)
            row = row + 1
            col = col + 1
        Loop
    Next cell


End Sub