さねよし

2021/2/19 15:00

22回答

マクロについて質問です。

マクロについて質問です。 複数列に分かれたデータを１列にまとめたい、が目的です。 日にち（A,D,G列）、曜日（B,E,H列）、営業時間（C,F,I列） ごとに１列にまとめたいです。 A:F列は13行までで固定されていますが、 G:I列については、月によって行数が異なるので、 その点も考慮したいと考えています。 その１列にまとめたもの（全部で3列だと思います）を、 同じシートの任意の場所に出力できるようにしたいです。 「複数列を１列にまとめる」コードはネットに載っていましたが、 連続した列をまとめるものでしたので、 今回のように非連続のものをまとめるのはどうすればいいのか、 ご教授いただけるとありがたいです。 よろしくお願いします。

画像

Visual Basic・18閲覧

ベストアンサー

0

tra********

カテゴリマスター

2021/2/19 15:23

K1から始まるセル範囲にコピーします。 未実行です。 Sub 例() Dim ii As Long With ActiveSheet .Range("A1:C2").Copy With .Cells(1, "K") .PasteSpecial .PasteSpecial xlPasteColumnWidths End With For ii = 1 To 7 Step 3 .Range(.Cells(ii, 3), .Cells(Rows.Count, ii + 2).End(xlUp)).Copy _ .Cells(Rows.Count, "K").End(xlUp).Offset(1) Next ii End With End Sub

その他の回答（1件）

0

bai********

2021/2/23 9:26

.Range(.Cells(ii, 3), .Cells(Rows.Count, ii + 2).End(xlUp)).Copy _ .Cells(Rows.Count, "K").End(xlUp).Offset(1) の_はコードを見やすく改行しながら前後を繋げているのですが、 コードを写した際に、2行の行間に空白行が入ってしまっていたためでしょう。 横からですが、最初のコードでのエラーの原因です。