エクセルのマクロで、行の一列ごとに空白行を入れるにはどうしたらよいですか。

回答の条件
  • URL必須
  • 1人2回まで
  • 登録:2005/02/17 20:21:07
  • 終了:--

回答(2件)

id:taknt No.1

きゃづみぃ回答回数13539ベストアンサー獲得回数11982005/02/17 20:40:09

ポイント25pt

Dim a As Long

For a = 2 To 65536 / 2 Step 2

Rows(a).Insert Shift:=xlDown

Next a

65536 / 2 とやってありますが、これだと 最終行まで 行われます。

ここは どこまで 行いたいか その行をいれてください。

ただし、挿入することにより、その行数の倍になることは 考慮する必要があります。

id:koyaman2 No.2

koyaman2回答回数78ベストアンサー獲得回数02005/02/17 20:55:28

ポイント50pt

コードをコピーします。

適当なシートにテキスト貼り付けをします。

隣のセルに1から連番で番号を振ります。

できた連番をコピーし、もとの連番の下に貼り付けます。

2列を選択した状態で、連番の列で昇順で並び替えします。

コードの列をコピーして、コードウィンドウに貼り付けます。

id:papagena

ありがとございました。

2005/02/17 21:07:22

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません