Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


43871 / 76732 ←次へ | 前へ→

【37888】Re:指定した文字を含むデータの抽出方法
回答  ハト  - 06/5/22(月) 17:47 -

引用なし
パスワード
   こんにちは

▼サン さん:
>シート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").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
2 hits

【37887】指定した文字を含むデータの抽出方法 サン 06/5/22(月) 17:30 質問
【37888】Re:指定した文字を含むデータの抽出方法 ハト 06/5/22(月) 17:47 回答
【37910】Re:指定した文字を含むデータの抽出方法 サン 06/5/23(火) 9:54 お礼

43871 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free