Excel VBA質問箱 IV

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

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


43872 / 76732 ←次へ | 前へ→

【37887】指定した文字を含むデータの抽出方法
質問  サン E-MAIL  - 06/5/22(月) 17:30 -

引用なし
パスワード
   シート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
2 hits

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

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