Sub 指定した語句の値を削除()
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
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