コードがわかりません したい事 B1～B20のセルにはそれぞれ背景色がついてます 1つ1つ背景色を判別して 塗りつぶし無しのセルだけ残し それ以外は消す(値と塗りつぶし無しの状態にする) をするつもりですが出来ません 考えたコード sub test() dim i as variant for i =1 TO 20 if not cells(i,2)=interior.colorindex=xlone then i.clear next i end sub 勉強不足ですみません コードを書いてくれると助かります 回答お願いします。
↧