エクセルで１行に入れたデータを複数の列に分けたいのです。

質問

＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
｜１｜肉｜１個　｜２｜魚｜２匹｜３｜野菜｜３個｜
￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣

というようにずらずらっと入力したデータを
　＿＿＿＿＿＿
｜１｜肉　｜１個｜
｜＿＿＿＿＿＿＿
｜２｜魚　｜２匹｜
｜＿＿＿＿＿＿＿
｜３｜野菜｜３個｜
｜＿｜＿＿｜＿＿｜
といった形にしたいのです。
　どなたか回答お願いします

回答No.2

noname#192382

こんなやりかたもあるということで見てください。エクセル97です。
Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 2006/9/21 ユーザー名 :
'
Dim i As Integer
Dim j As Integer
For i = 1 To 100 Step 3
j = Int((i + 2) / 3)
Worksheets(1).Activate
Mydata = Worksheets("Sheet1").Cells(1, i).Value
Worksheets(2).Activate
Worksheets(2).Cells(j, 1).Value = Mydata
Worksheets(1).Activate
Mydata = Worksheets("Sheet1").Cells(1, i + 1).Value
Worksheets(2).Activate
Worksheets(2).Cells(j, 2).Value = Mydata
Worksheets(1).Activate
Mydata = Worksheets("Sheet1").Cells(1, i + 2).Value
Worksheets(2).Activate
Worksheets(2).Cells(j, 3).Value = Mydata
Next i
End Sub

回答No.1

zap35

シート１のA1:I1に
　＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
｜１｜肉｜１個　｜２｜魚｜２匹｜３｜野菜｜３個｜
￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
がある時、別シートのA1に以下をペースト

=OFFSET(Sheet1!$A$1,0,(ROW()-1)*3+MOD(COLUMN()-1,3))

A1をB1～C1にコピー。更に１行目を２～３行目にコピー