最初の.Find値から範囲を選択する単純なVBA？

Question

列「A」内の値を探し、そのアドレスから最初に見つかった空白行を選択したいとします。ここに私が持っているものはありますが、セットfは動作していません。 My Set cが動作し、正しいアドレスである$ A $ 32が返されます。私は何が欠けていますか？

With Workbooks("MyBook").Sheets("Mysheet") 
    Set c = .Range("$A:$A").Find("Red Car").Offset(2, 0) 
    Set f = .Range(c.Address & Range("A").End(xlDown).Row) 
End With 

Answer 1

これを試してみてください、と検索用語を

With Workbooks("MyBook").Sheets("Mysheet") 
    Set c = .Range("$A:$A").Find("Red Car") 
    If Not c Is Nothing Then Set f = Range(c.Offset(2, 0), c.Offset(2, 0).End(xlDown)) 
End With 

Answer 2

Removed Code

あなただけRange($A$32 & LastRow)を割り当てようとしています。 ：（コロン）とコラム文字（A）を追加しないと、Fに範囲を正しく割り当てることができません。このコードを試して、今動作するか確認してください。