excel 文字抽出マクロの編集についてですが・・・

質問

マクロで指定した文字を含むデータを抽出するマクロを
作っていたのですが、うまく作動しません。
どこが悪いか教えてください。

Sub 指定した文字データの抽出()

Dim strMoji As String

strMoji = InputBox("検索文字を入力してください")
strMoji = "*" & strMoji & "*"

Sheets("Sheet2").Activate
Cells.Clear

With Sheets("Sheet1")
.Range("A2").AutoFilter Filde:=3, criterial:=strMoji
.Range("A2").CurrentRegion.Copy _
Destination:=Sheets("Sheet2").Range("A2")
.Range("A2").AutoFilter
End With

Sheets("Sheet2").Columns("A:D").AutoFit

End Sub

回答No.1

keirika

.Range("A2").AutoFilter Filde:=3, criterial:=strMojiの

Filde→Field

criterial→Criteria1

Range("A2")→Range("A2").CurrentRegion

結果
.Range("A2").CurrentRegion.AutoFilter Field:=3, Criteria1:=strMoji

お礼

ありがとうございました。無事できました。