エクセルのマクロで、行の一列ごとに空白行を入れるにはどうしたらよいですか。
※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。
No.1
25pt
Dim a As Long
For a = 2 To 65536 / 2 Step 2
Rows(a).Insert Shift:=xlDown
Next a
65536 / 2 とやってありますが、これだと 最終行まで 行われます。
ここは どこまで 行いたいか その行をいれてください。
ただし、挿入することにより、その行数の倍になることは 考慮する必要があります。
No.2
50pt
コードをコピーします。
適当なシートにテキスト貼り付けをします。
隣のセルに1から連番で番号を振ります。
できた連番をコピーし、もとの連番の下に貼り付けます。
2列を選択した状態で、連番の列で昇順で並び替えします。
コードの列をコピーして、コードウィンドウに貼り付けます。
「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。
これ以上回答リクエストを送信することはできません。制限について
ありがとございました。