![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
EXCELの「行列を入れ替える」マクロについてどなたか教えていただけないでしょうか?
Sheet1で下記のようにならんだDATAがあります。
A列 B列 C列 D列 E列 F列 G列
(1
行)2002/12/17_1 15240 15240 15240 15240 15240 15240
(2行)2002/12/17_2 15241 15241 15241 15241 15241 15241
(3行)2002/12/17_3 15242 15242 15242 15242 15242 15242
(4行)2002/12/17_4 15243 15243 15243 15243 15243 15243
(5行)2002/12/18_1 15250 15250 15250 15250 15250 15250
(6行)2002/12/18_2 15251 15251 15251 15251 15251 15251
(7行)2002/12/18_3 15252 15252 15252 15252 15252 15252
(8行)2002/12/18_4 15253 15253 15253 15253 15253 15253 . . . . . . . . . . . . . . . . . . . . . . .
と,このようにDATAは日付の横に数値が6つずつ横に並んでおりますが、この6つの数値(列B~G))を4つごとの括りで別シートのseet2でA列~D列へ縦に6つ並べたいのですが、一気にできるマクロがないものでしょうか?下記のようにです。
A列 B列 C列 D列
15240 15241 15242 15243
15240 15241 15242 15243
15240 15241 15242 15243
15240 15241 15242 15243
15240 15241 15242 15243
15240 15241 15242 15243
15250 15251 15252 15253
15250 15251 15252 15253
15250 15251 15252 15253
15250 15251 15252 15253
15250 15251 15252 15253
15250 15251 15252 15253
・ ・ ・ ・
・ ・ ・ ・
・ ・ ・ ・
といった感じに一気にマクロで処理してしまいたいのです。DATAはかなりの行数あり、何回でもマクロボタン一発で4行ごとに6つの横に並んだ数値のみを別sheetで縦に並べたいです。つたない説明で大変申し訳ありませんが、どなたかわかる方お教えくださいませ。
No.1ベストアンサー
- 回答日時:
こんにちは!
必ず4行・6列と決まっているのですね?
一例です。
元データはSheet1の1行目からあるとします。
標準モジュールにしてください。
Sub Sample1()
Dim i As Long, wS As Worksheet
Set wS = Worksheets("Sheet2")
wS.Cells.Clear
With Worksheets("Sheet1")
For i = 1 To .Cells(Rows.Count, "A").End(xlUp).Row Step 4
.Cells(i, "B").Resize(4, 6).Copy
wS.Cells(Rows.Count, "A").End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteAll, Transpose:=True
Next i
End With
wS.Rows(1).Delete
End Sub
こんな感じではどうでしょうか?m(_ _)m
tomo4さん
ご回答下さり、ありがとうございます!
マクロ初心者なので、思ったとおりに組めずに途方にくれていたので凄く参考になります!
自分も早くtomo4さんみたいに組めるよう頑張って勉強したいと思います><
本当にありがとうございました!
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルでのマクロを使ったデータの並べ替え 3 2022/12/03 18:54
- Visual Basic(VBA) Excelで横書き50行の漢字テストデータを縦書きのテスト問題にしたい。 6 2022/04/27 15:03
- Excel(エクセル) 【マクロ】マクロが保存されているエクセルとは、別のエクセルブックの全シートの非表示列を再表示したい 1 2022/12/24 20:48
- Excel(エクセル) Excel_マクロ_複数のシートのVLOOKUPで表示された#N/A以外に色付けをしたいです 1 2023/02/16 22:37
- Excel(エクセル) 製品番号での整列と、検索に関して 3 2023/06/28 19:20
- Excel(エクセル) マクロだと数式が表示される 2 2022/09/10 14:48
- Visual Basic(VBA) VBA 最終行まで数式をコピーする 3 2023/01/03 15:44
- Excel(エクセル) SUMIFSと日付変換 10 2023/04/16 15:38
- Excel(エクセル) エクセルのマクロ作成について教えてください 5 2023/02/20 00:39
- Excel(エクセル) ExcelのIF関数について 4 2023/05/24 12:54
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
「段」と「行」の違いがよくわ...
-
エクセルで離れた列を選択して...
-
VLOOKUPの列番号の最大は?
-
LEFT関数とIF関数の組み合わせ...
-
リストからデータを紐付けしたい
-
エクセルで複数列の検索をマク...
-
(VBA)Excelの特定の範囲にデー...
-
Excel文字列一括変換
-
エクセルマクロの組み方
-
エクセルマクロでオートフィル...
-
【マクロ】【VBA】条件付き書式...
-
VBA 指定した列にある日時デー...
-
エクセル マクロ 範囲指定で...
-
エクセルマクロで表の途中の集...
-
エクセルで住所を県と市・郡と...
-
エクセルで飛び飛びのセルの計算
-
エクセルで最初の行や列を開け...
-
エクセルマクロPrivate Subを複...
-
CSVファイルの「0落ち」にVBA
-
横軸を日付・時間とするグラフ化
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで離れた列を選択して...
-
VLOOKUPの列番号の最大は?
-
「段」と「行」の違いがよくわ...
-
LEFT関数とIF関数の組み合わせ...
-
VBA 指定した列にある日時デー...
-
CSVファイルの「0落ち」にVBA
-
エクセルで住所を県と市・郡と...
-
Excelの行数、列数を増やしたい...
-
エクセルで複数列の検索をマク...
-
エクセルマクロの組み方
-
Alt+Shift+↑を一括で行うには、...
-
えABのある列って
-
エクセルのソートで、数字より...
-
エクセル マクロ 範囲指定で...
-
VBAで結合セルを転記する法を教...
-
VBAで別ブックの列を検索し、該...
-
エクセルマクロPrivate Subを複...
-
列方向、行方向の定義
-
リストからデータを紐付けしたい
-
Accessのレポートで繰り返し表...
おすすめ情報