|
▼のり さん:
こんにちは
私も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も部分一致でなく、完全な一致の方が良いのかも(これは仕様次第)。
的外れだったらごめんなさい。
|
|