- 締切済み
エクセルで１行に入れたデータを複数の列に分けたいのです。
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿ ｜１｜肉｜１個 ｜２｜魚｜２匹｜３｜野菜｜３個｜ ￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣ というようにずらずらっと入力したデータを ＿＿＿＿＿＿ ｜１｜肉 ｜１個｜ ｜＿＿＿＿＿＿＿ ｜２｜魚 ｜２匹｜ ｜＿＿＿＿＿＿＿ ｜３｜野菜｜３個｜ ｜＿｜＿＿｜＿＿｜ といった形にしたいのです。 どなたか回答お願いします
- みんなの回答 （2）
- 専門家の回答
みんなの回答
こんなやりかたもあるということで見てください。エクセル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
- zap35
- ベストアンサー率44% (1383/3079)
シート１のA1:I1に ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿ ｜１｜肉｜１個 ｜２｜魚｜２匹｜３｜野菜｜３個｜ ￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣ がある時、別シートのA1に以下をペースト =OFFSET(Sheet1!$A$1,0,(ROW()-1)*3+MOD(COLUMN()-1,3)) A1をB1～C1にコピー。更に１行目を２～３行目にコピー
