エクセルVBAについてご教示ください。

質問

シート1には下記のようなデータが記載されています。

field1　field2　field3
A　りんご　八百屋
B　まぐろ　魚屋
C　豚肉　肉屋
D　さんま　魚屋
E　きゃべつ　八百屋
F　鶏肉　肉屋
G　ばなな　八百屋
H　ぶり　魚屋
I　牛肉　肉屋

次に、シート2には
任意のfield1のデータを複数入力されています。
例）
field1
A
D
F
H

シート2に一致するレコードをシート1から抽出して
シート3として作成するエクセルVBAの書き方が知りたいです。
例）
field1　field2　field3
A　りんご　八百屋
D　さんま　魚屋
F　鶏肉　肉屋
H　ぶり　魚屋

すみませんが、ご教示お願いします。

回答No.1

Wendy02 · ベストアンサー

フィルタオプションを使えばよいと思います。

Sub TestMacro1()
Dim ListRng As Range
Dim CriteRng As Range
Dim TargetRng As Range
'セッテング
Set ListRng = Worksheets("Sheet1").Range("A1:C10")
With Worksheets("Sheet2")
Set CriteRng = .Range("A1", .Cells(Rows.Count, 1).End(xlUp))
End With
Set TargetRng = Worksheets("Sheet3").Range("A1")

　ListRng.AdvancedFilter _
　Action:=xlFilterCopy, _
　CriteriaRange:=CriteRng, _
　CopyToRange:=TargetRng, _
　Unique:=False

Set ListRng = Nothing
Set CriteRng = Nothing
Set TargetRng = Nothing
End Sub

お礼

ありがとうございます。
ちなみに、
Dim ListRng As Range
Dim CriteRng As Variant
Dim TargetRng As Variant
ですかね？

で、追加で質問ですが、
フィルタオプションで指定される場合、
いわゆる「文字列を含む」で検索されるしかないのでしょうか。

試しに、シート1のfield1に
A
AA
AAA
と入力し、
シート2の検索条件を
A
だけにしても、検索結果のシート3には
A
AA
AAA
これらすべてが表示されます。
「～に一致する」の条件を付帯することはできますか？

なんどもすみません。

補足

下記追加質問の後に解決しました。
"="を足せばよかったんですね。

ありがとうございました。