|
シート1に全未収入金があり、シート2に1人の担当者だけの未収入金のファイルを作りたいのですがエラーが出てきます。
初心者でどこをなおしたらいいかわかりません。
教えて頂けますでしょうか。
シート1 シート2
A1 A2 A12
相手会社 カナ・・・当社担当 白紙
(漢字表記)(カナ表示) (漢字表記) (ここにシート1で抽出した担当者の
一覧をコピーしたいんです)
Sub 指定文字()
Dim strMoji As String
strMoji = InputBox("検索文字を入力してください")
strMoji = "*" & strMoji & "*"
Sheets("Sheet2").Activate
Cells.Clear
With Sheets("sheet1")
Range("A1").AutoFilter Field:=12, Criteria1:=strMoji
.Range("A1").CurrentRegion.Copy _
Destination:=Sheets("sheet2").Range("A1")
.Range("A1").AutoFilter
End With
Sheets("sheet2").Columns("A:L").AutoFit
End Sub
|
|