エクセルVBAでの検索機能について 削除
| Message#2 2015年2月6日(金)01時00分 From: ロンギヌス |
| Aシートの全体から検索ですか？ それとも特定の範囲を検索ですか？例えばA列のみとか。 一例です。 一応提示されたコードを参考にして、見つけたら次回はその行は検索せずに次の行のA列から検索しています。 もし全体検索がよければ、◎のところを以下に変えてください。 Set temp = SC Sub Sample() Dim SC As Range, myRng As Range, ID As Range, temp As Range, Trg As Range Dim ShA As Worksheet, ShB As Worksheet Set ShA = Worksheets("Aシート") Set ShB = Worksheets("Bシート") '1行目の最終列を格納(Afterで指定するとA2から検索されることになる) Set temp = ShA.Cells(1, Columns.Count) 'シートのA2を選択してCtrl+↓を押してみてください。A2からそこまで格納します。この範囲が検索範囲になります。 Set myRng = ShB.Range("A2", ShB.Range("A2").End(xlDown)) For Each ID In myRng Set SC = ShA.Cells.Find(what:=ID, _ after:=temp, _ LookIn:=xlValues, _ lookat:=xlWhole, _ MatchByte:=False, _ SearchFormat:=False) '見つけ次第Trgに全て格納していく If Not SC Is Nothing Then If Trg Is Nothing Then Set Trg = SC Else Set Trg = Union(Trg, SC) End If '◎見つけたセルの一つ下の行のA列から検索する為に、最終列を格納しておく◎ Set temp = ShA.Cells(SC.Row, Columns.Count) End If Next ID If Not Trg Is Nothing Then Trg.Interior.Color = 49407 Else MsgBox "見つかりませんでした｡" End If End Sub |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。
