Excel VBA質問箱 IV

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

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


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

62805 / 76732

←次へ　｜　前へ→


	【18528】Re:該当の全てのデータ抽出

@MS1 - 04/9/28(火) 21:41 -


	引用なし

	パスワード

▼のりさん：
こんにちは
私もVBAは良く知らないのですが、ベーシック的なVBですが、
今回の件は次のようなものでも、十分ご希望の結果は得られる
と思います。ひとつの、参考までに。

Sub 検索()
J = 4
II = 0
　Range("A3:A65536").Select

検索KEY = Sheets("SHEET2").Cells(4, 1)

Do
　　Selection.Find(What:=検索KEY, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
　　　　:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
　　　　False).Activate
　　
　 I = ActiveCell.Row
　 If I = II Or I < II Then Exit Do
　　
　 II = I
　　
　 Sheets("SHEET2").Cells(J, 2) = Sheets("Sheet1").Cells(I, 2)
　 Sheets("SHEET2").Cells(J, 3) = Sheets("Sheet1").Cells(I, 3)
　　
　 J = J + 1
　　
Loop
　　
End Sub

なお、SHEET2のクリアーは考慮してません。最初のほうでしてください。
FINDで見つからなかったときの処理も考慮してません。
XLPARTも部分一致でなく、完全な一致の方が良いのかも（これは仕様次第）。

的外れだったらごめんなさい。

0 hits

▼

【18393】該当の全てのデータ抽出 のり 04/9/22(水) 15:59