連続しないセルの範囲をマクロを使って選択したい。

質問

見積書で「旧単価」より「新単価」の方が大きければ
セルを黄色に…
小さければセルを水色に…という条件付書式を設定したセル
D5を『形式を選択して貼り付け』でD列に書式のみを貼り付けようと
試みました。

【商品A見積書】
　　　　A　　　　　　B　　　　　　C　　　　　D　　　　　E
4　　部品番号　　部品名称　　旧単価　　　新単価 　数量
5　　0000001　　　部品A　　　　\210　　　￥220　　　　10　　
6　　0000002　　　部品B　　　 ￥520　　　￥550　　　 　2
7　　材料費小計　*******　　　*****　　　******　　*****
8
9　　0000004　　　部品C　　　　\320　　　￥420　　　　 3　　
10　 0000005　　　部品C-2　　 ￥520　　　￥450　　　 　2
11 　材料費小計　*******　　　*****　　　******　　*****

この様な形で空白が出来ておりますので、全く上手くいきません。

Range("D65536").Select
Selection.End(xlUp).Select

で終了の位置までは選択できるのですが、
今度はD5までの空白が、商品ごとに変化してしまい
一定になりません。
このような連続しないセルの範囲を選択したい場合
どうすれば良いか御教授ください。

回答No.2

xls88 · ベストアンサー

対象データセル範囲は
Range("D5", Cells(Rows.Count, "D").End(xlUp)).Select
で選択できます。
そこから、データ（定数）の入力されているセルを選択すればどうでしょうか。

D列のデータセル範囲を選択＞編集＞ジャンプ＞セルの選択で、「定数」セルを選択
といった操作を「マクロの記録」すれば参考になるコードが得られます。

余裕があれば、Slectしないコードの書き方を研究してみてください。

お礼

ありがとうございます。
私の希望そのままの結果が得られました。

ジャンプという機能を始めて使ったのですが
奥が深いですねエクセルは…
エクセルを使いこなせないのに
VBAなんかまだ早いのかも知れませんね…

本当に助かりました。
ありがとうございました。

回答No.1

hallo-2007

条件付書式を他のセルにも適用したいと言うことですよね。
Ｄ５～Ｄ６を選択
Ｃｔｒｌキーを押しながらＤ９～Ｄ１０を選択
同様にＣｔｒｌキー押しながらご希望のセルを選択します。
条件付初期のウィザードを開いてＯＫを押せば、選択したセル全てに適用されたと思います。

お礼

ありがとうございます。

すいません、書いていませんでしたが、
部品が１０個で材料費小計があるものや
部品３０個で材料費小計があるもの等
かなり違いが出ます。
その組み立てた部品の小計がそれぞれ
50～100程ある見積もりを300件位はこなさないと
いけませんので、アドバイス戴いた方法では
対応に時間が掛かり過ぎてしまいます。

“マクロの記録”程度の知識しかないですが
VBAで対応したいと考えております。