| |
こんにちは
▼サン さん：
>シート1に全未収入金があり、シート2に１人の担当者だけの未収入金のファイルを作りたいのですがエラーが出てきます。
>初心者でどこをなおしたらいいかわかりません。
>教えて頂けますでしょうか。
>
>シート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").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
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
- 06/5/22(月) 17:30 -
