独習 Excel VBAエキスパート スタンダード

6. 検索とオートフィルター



問3: 次のコードは、A列で"佐々木"を探し、見つかったセルを含む行全体を削除しようとしている。空欄に入る適切な命令はなにか。



Sub Sample3()

	Dim A As Range

	Set A = Range("A:A").Find(What:="佐々木")

	If A Is Nothing Then

		MsgBox "見つかりません"

	Else

		A.【空欄】.Delete

	End If

End Sub