Sub 指定した語句の値を削除() For i = 1 To 30 For j = 1 To 30 If ActiveSheet.Cells(i, j).Value = "C" Then ActiveSheet.Cells(i, j).Value = "" 'セル削除するとセルが上方へずれるので、セルの値を空白にする。 End If Next Next End Sub

'１列だけ削除するとき、Range()には同じセルを入れる Sub 削除1列() ActiveSheet.Range(Cells(1, 1), Cells(1, 1)) _ .EntireColumn.Delete End Sub

Criteria1:=">2011/3/31"Criteria1:=DateSerial(2010, 8, 22) とか Criteria1:=CDate("2010/8/22") とか Criteria1:=#8/22/2010#

「新しい書式ルール」 “数式を使用して、書式設定するセルを決定”を選択。 保護されているセル（＝書式設定で“ロック”のチェックをはずしているセル）に色をつけたい場合には、ルールに「=cell("protect",a1)=1」と入力します。 保護されていないセルに色を…