質問: vbaで色の付いているセルの行削除 vbaで色の付いているセルの行を削除することは出来ないでしょうか? 量が多すぎて一つ一つ削除すのは大変で間違えて削除してしまいそうなので・・・ - 文字または数字 ■ 色の付いたセル(赤) a b c d e f・・・ 1- - - - - - 2- - - - - - 3- - - ■ - - 4- - ■ - - - 5- - ■ - - - 6- - - - - - 7- - - ■ - - 8- - ■ - - - 9- - ■ - - - 10- - - - - - ↓ a b c d e f・・・ 1- - - - - - 2- - - - - - 6- - - - - - 10- - - - - - よろしくお願いします。
回答: public sub 色の付いたセルのある行を消す() dim linepos, i activecell.specialcells(xllastcell).select linepos = activecell.row for i = linepos to 1 step -1 if colored(range(rows(i).address)) then rows(i).delete shift:=xlup end if next end sub '指定した範囲に色の付いたセルがあるか? function colored(r as range) as boolean dim x as range for each x in r if x.interior.color <> rgb(255, 255, 255) then '白(色がついてない、標準の状態)でない colored = true exit function end if colored = false next end function