ステートメント制御文の使用例3
使用例3
可変のデータベースの範囲から、ある数値データを検索し、その抽出セルの
絶対参照を、別の縦1列に列記する。

Sub statmen3()
Dim B, E, F, T As Range
Dim r As Long
Application.ScreenUpdating = False '画面のちらつきの抑止
Set F = Range("F2") '検索値
r = ActiveSheet.Rows.Count 'ワークシート最下セル列
Range("A4").CurrentRegion.Select 'データベース範囲
Set T = Selection.Offset(1, 1). _
Resize(Selection.Rows.Count - 1, _
Selection.Columns.Count - 1) 'データ検索範囲
For Each E In T 'F列入力セル選択
Set B = Cells(r, 6).End(xlUp).Offset(1)
If F.Value = E.Value Then B.Value = E.Address()
Next
Range("F2").Select
Application.ScreenUpdating = True '画面のちらつきの抑止解除
End Sub
back top