Excel VBA質問箱 IV

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

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


34137 / 76738 ←次へ | 前へ→

【47814】Re:行の削除について
質問  tami  - 07/3/22(木) 22:17 -

引用なし
パスワード
   ▼りん さん:
今晩は。
横から失礼します。アドバイスお願いします。

りん さんの書かれたコードで
例えば
  A
1
2
3
4 ddd
5 fff
6 kkk
7
8

このようなサンプルを実行すると、
色3がA1〜A3とA7〜A9に付きます。その後、Rowの1〜3が削除されますが
更に再度マクロを実行するとA4〜A9に色3が付きます
1 ddd
2 fff
3 kkk
4 色が付く
5 色が付く
: 色が付く
:

> Set r1 = Range("A1:A700").SpecialCells(xlCellTypeBlanks)
このコードで正しいと思うのですが・・・
Set r1 = Range("A1:A" & Cells(65536, 1).End(xlUp).Row).SpecialCells(xlCellTypeBlanks)

に変えると、マクロを2度実行しても、色付けは発生しません。

Set r1 = Range("A1:A700").SpecialCells(xlCellTypeBlanks)で、何故色付けが
残るのか
理由が分かりません、何故でしょうか?
1 hits

【47783】行の削除について 初心者 07/3/22(木) 15:38 質問
【47784】Re:行の削除について ウッシ 07/3/22(木) 15:43 回答
【47786】Re:行の削除について りん 07/3/22(木) 15:46 回答
【47788】Re:行の削除について 初心者 07/3/22(木) 15:59 お礼
【47814】Re:行の削除について tami 07/3/22(木) 22:17 質問
【47815】Re:行の削除について ウッシ 07/3/22(木) 22:44 発言
【47816】Re:行の削除について tami 07/3/23(金) 7:16 お礼
【47834】Re:行の削除について りん 07/3/23(金) 12:56 回答

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