Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


28455 / 76732 ←次へ | 前へ→

【53575】Re:1行飛ばして2行ずつ削除するマクロ
発言  かみちゃん  - 08/1/23(水) 2:41 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>1行目 あああああ
>2行目 いいいいい
>3行目 ううううう
>4行目 えええええ
>5行目 おおおおお
>6行目 かかかかか
>7行目 ききききき
>8行目 くくくくく
>9行目 けけけけけ
>10行目 こここここ
>
>上記のようなとき、マクロの実行により
>2行目・3行目、5行目・6行目、8行目・9行目
>が自動で、一気に削除され、上につめられる(1,4,7、10行目が残る)
>ようなマクロを作成したいです。

行削除は、下の行から上方向に削除していくのが定石となっています。
今回の場合は、1行飛ばして2行ずつ削除ということなので、少しコツがいります。
以下のような感じでできると思いますので、後は、実際のものにあわせて考えてみてください。

Sub Sample()
 Dim lngRow As Long
 
 For lngRow = 10 - 2 To 1 Step -3
  Rows(lngRow).Resize(2).Delete
 Next
End Sub
1 hits

【53574】1行飛ばして2行ずつ削除するマクロ ひさ 08/1/23(水) 2:33 質問
【53575】Re:1行飛ばして2行ずつ削除するマクロ かみちゃん 08/1/23(水) 2:41 発言
【53591】Re:1行飛ばして2行ずつ削除するマクロ りん 08/1/23(水) 21:07 回答
【53600】Re:1行飛ばして2行ずつ削除するマクロ ひさ 08/1/24(木) 0:21 お礼
【53599】Re:1行飛ばして2行ずつ削除するマクロ ひさ 08/1/24(木) 0:17 お礼

28455 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free