Excel VBA 質問スレ Part49©2ch.net

[754 デフォルトの名無しさん (ﾜｯﾁｮｲ b66d-Var+) 2017/08/11(金) 14:51:25.70 ID:fD8DkUIg0]

>>752
必ず数字と英語が入れ替わりで来るなら以下のマクロ

Sub foo()
For i = 1 To 100
行 = Int(i / 2)
If i Mod 2 = 1 Then
Cells(行 + 1, 2) = Cells(i, 1)
Else
Cells(行, 3) = Cells(i, 1)
End If
Next
End Sub