エクセル２００３です。オートフィルターでＡ列の（○もしくは×）で○だけ

質問

エクセル２００３です。オートフィルターでＡ列の（○もしくは×）で○だけを別シートに貼り付けるという記憶マクロを行っています。Ａ列に○が無い場合、処理を実行させると×までもフィルターされてしまいます。Ａ列に○があるか無いか判別し、無ければ処理を実行しない（msgboxで○はありません）という記述はどうすればよいのでしょうか？よろしくお願いします。

回答No.2

Trick--o-- · ベストアンサー

If Activesheet.Columns(1).Find("○") Is Nothing Then
　' ○が無いときの処理
Else
　' ○があるときの処理
End If

お礼

思ったとおりになりました！誠にありがとうございました。

回答No.1

mshr1962

Sub macro()
If Application.WorksheetFunction.CountIf(Range(Range("A2"), Range("A10000")), "○") = 0 Then
MsgBox "○がありません。"
Exit Sub
End If

'実行するマクロ内容

End Sub

お礼

早速のご回答、誠にありがとうございました！