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

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

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

No.2 回答者： optimumsoup 回答日時： 2006/09/22 20:14

こんなやりかたもあるということで見てください。

エクセル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 回答日時： 2006/09/21 20:54

シート１のA1:I1に

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

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

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