データ検索 FIND 覚書

VBAでのファインドはワークシート操作の検索らしい。
速度も出ないし、ワークシート操作にも影響するので使わない方がよい。
でも、1件だけなら、、、

Public Function GetMakerbyID(intID As Long) As String
    Dim FC As Range
    Dim endRow As Long
    Dim svSheet As Worksheet
    Set svSheet = ActiveSheet
    MakerM.Select
    endRow = Cells(Rows.Count, 1).End(xlUp).Row
    Set FC = Range(Cells(2, 1), Cells(endRow, 1)).Find(What:=intID, LookAt:=xlWhole)
    svSheet.Select
    GetMakerbyID = FC.Offset(0, 1)
End Function