Excel VBA質問箱 IV

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

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


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

52381 / 76732

←次へ　｜　前へ→


	【29190】Re:書式の付いた（パターン色）セルを一度に削除する方法

でれすけ - 05/9/27(火) 12:32 -


	引用なし

	パスワード

こんにちは。

根本の問題点は、
>区間ごとに複数列にまたがるセルを等間隔で削除するマクロを
このときに、
>Selection.Delete shift:=xlUp
>と書くと、せり上がってしまうので最初に指定した
>範囲後のセルまで削られてしまいます。
ということですよね。

これは、すごく簡単に解決できます。
上の行から処理するからそうなるので、
下の方か処理してくるとＯＫです。

>　　　　k = InputBox("何行目から？")
>　　　　l = InputBox("何行目まで？")
>　　　　m = InputBox("何行おき？")
>　　　　
>　　For i = k To l Step m
この行を　　　　
　　For i = l To k Step -m
とすればいいです。

>書式の付いた（パターン色）セルを一度に削除する方法
一度に削除というのは出来ないので、結局ループで回すことになります。
結局同じ問題点にぶち当たります。

「削除のループは後ろから処理」するというのは覚えておくといいです。

2 hits

▼

【29185】書式の付いた（パターン色）セルを一度に削除する方法 haramama 05/9/27(火) 11:41