Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

28455 / 76732

←次へ　｜　前へ→


	【53575】Re:１行飛ばして２行ずつ削除するマクロ

かみちゃん - 08/1/23(水) 2:41 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

>１行目　あああああ
>２行目　いいいいい
>３行目　ううううう
>４行目　えええええ
>５行目　おおおおお
>６行目　かかかかか
>７行目　ききききき
>８行目　くくくくく
>９行目　けけけけけ
>10行目　こここここ
>
>上記のようなとき、マクロの実行により
>２行目・３行目、５行目・６行目、８行目・９行目
>が自動で、一気に削除され、上につめられる（１，４，７、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】１行飛ばして２行ずつ削除するマクロ ひさ 08/1/23(水) 2:33