shysterのプロフィール

“コード番号” が大きい順か小さい順に並んでるなら，VLOOKUP を使う．さもなければ，以下の macro を使う． Public Function FindInRange(vValue As Variant, rangeT As Range, lCol As Long) As Variant Dim lRow As Long Dim vFind As Variant If IsEmpty(vValue) Then FindInRange = Empty Exit Function End If If Not (TypeOf rangeT Is Range) Then FindInRange = CVErr(xlErrNum) Exit Function End If If lCol < 1 Or lCol > rangeT.Rows.Count Then FindInRange = CVErr(xlErrNum) Exit Function End If For lRow = 1 To rangeT.Rows.Count If rangeT.Rows(lRow).Cells(1, 1).Value = vValue Then vFind = rangeT.Cells(lRow, lCol).Value FindInRange = vFind Exit Funct