使用例３

可変のデータベースの範囲から、ある数値データを検索し、その抽出セルの
絶対参照を、別の縦１列に列記する。


　　


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                     'Ｆ列入力セル選択
    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