VBAで使うMatch関数 活用度アップでテッパン関数に！

Option Explicit

Sub Match関数Test1()
    Dim i As Long
    Dim Arow As Long, Acol As Long
    Dim sKa As Long, sKb As String
    Dim MValR As Variant, MValC As Variant
        Worksheets("Sheet1").Select
'データ表の行数を調べます。
        Arow = Cells(6, 2).CurrentRegion.Rows.Count
'データ表の列数を調べます。
        Acol = Cells(6, 2).CurrentRegion.Columns.Count
'検索値の入力
        sKa = Range("L1")
        sKb = Range("L2")
'エラーストップを無視するコード
        On Error Resume Next
'コード項目列で検索する
        MValR = WorksheetFunction.Match(sKa, Range(Cells(6, 5), _
            Cells(Arow + 6, 5)), 0)
        Range("L3") = MValR
'データNO57行で検索する
        MValC = WorksheetFunction.Match(sKb, Range(Cells(16, 2), _
            Cells(16, Acol + 1)), 0)
        Range("L4") = MValC
'エラー無視を解除する
        On Error GoTo 0
End Sub

Sub Match関数Test2()
    Dim i As Long, R As Long
    Dim Arow As Long, Acol As Long
    Dim sKc As String
    Dim MVal2C As Variant
        Worksheets("Sheet1").Select
'データ表の行数を調べます
        Arow = Cells(6, 2).CurrentRegion.Rows.Count
'データ表の列数を調べます
        Acol = Cells(6, 2).CurrentRegion.Columns.Count
'検索値の入力
        sKc = Range("L29")
'エラーストップを無視するコード
        On Error Resume Next
'データ表を1行ずつ作業ループする
        For i = 1 To Arow
'データを行毎に検索する
            MVal2C = WorksheetFunction.Match(sKc, Range( _
                Cells(i + 5, 2), Cells(i + 5, Acol + 1)), 0)
'列数が返されたときに作業するコード
                If MVal2C > 0 Then
                    Range("L30") = MVal2C
                    R = i + 5
                    Range("L31") = Cells(R, Acol).Value
                    Range("L32") = Cells(R, Acol + 1).Value
'最初に検索値を見つけたあとループを抜ける
                    Exit For
                End If
        Next i
'エラー無視を解除する
        On Error GoTo 0
End Sub