Excelワークシート関数を有効活用しよう

Excelワークシート関数を有効活用しよう

http://officetanaka.net/excel/vba/speed/s9.htm

Sub Test2()
    Dim i As Long, Ans As Long
    For i = 1 To 5000
        Ans = WorksheetFunction.Sum(Range("M1:M100"))
    Next i
End Sub

Sub Test2()
    Dim fc  As Variant, j As Long, Ans As Long
    For j = 1 To 30
        Ans = WorksheetFunction.VLookup("田中亨", Range("A1:B10001"), 2, False)
    Next j
End Sub

Sub Test2()
    Dim fc  As Variant, j As Long, Ans As Long
    For j = 1 To 30
        Ans = WorksheetFunction.VLookup("田中亨", Range("A1:B10001"), 2, False)
    Next j
End Sub


Sub Test3()
    Dim fc  As Variant, j As Long, Ans As Long
    For j = 1 To 30
        Set fc = Range("A1:A1001").Find(What:="田中亨")
        If Not fc Is Nothing Then Ans = fc.Offset(0, 1).Value
    Next j
End Sub