Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

63993 / 76732

←次へ　｜　前へ→


	【17324】なかちゃん応答せよ

柴犬 - 04/8/26(木) 23:54 -


	引用なし

	パスワード

▼なかちゃん
取りあえず押入れの中から昔使ってたサンプル見つけたので送ります
使ってみて　
Sub 特定文字列を含むデータの抽出()

Dim Moji As String　　　　　　　　'検索する特定の文字列
Dim Jouken As String　　　　　　　'抽出条件
Dim WS1 As Worksheet
Dim WS2 As Worksheet

Moji = "交通費" とか　　　　　　　　'検索する特定の文字列を取得

Jouken = "*" & Moji & "*"　　　　　'抽出条件の作成
Set WS1 = Sheets("Sheet1")
Set WS2 = Sheets("Sheet2")

Application.ScreenUpdating = False 　　　　'画面の更新を停止

With WS2
　　.Activate　　　　　　　　　　　　　　　　'抽出先のSheet2の表示
　　.Columns("B:D").Clear　　　　　　　　　　'抽出先のSheet2のデータを消去
End With

With WS1

　　'特定文字列を含むデータの抽出
　　.Range("B3").AutoFilter Field:=1, Criteria1:=Jouken
　　
　　'抽出したデータをSheet2へコピー
　　.Range("B3").CurrentRegion.Copy Destination:=WS2.Range("B3")

　　.Range("B3").AutoFilter　'オートフィルタの解除
　　
End With

Application.ScreenUpdating = True '画面の更新を有効

End Sub

範囲、項目当追加書き換えが必要応用できるかな
自分で一度サンプルを作るといい

3 hits

▼

【17105】データ整理 なかちゃん 04/8/23(月) 1:08