文字列型関数を使う

VBAで文字列を操作するケースはよくあります。文字列操作でおなじみに関数といえば、Left、Right、Midでしょう。しかし、これらの文字列操作関数には関数名の末尾に「$」が付くLeft$、Right$、Mid$があるのをご存じですか？今回は、この「$」ありと「$」なし関数による速度の違いを検証してみます。

Sub Test1()
    Dim buf As String, i As Long
    For i = 1 To 5000000
        buf = Mid("Office TANAKA", 4, 5)
    Next i
End Sub

Sub Test2()
    Dim buf As String, i As Long
    For i = 1 To 5000000
        buf = Mid$("Office TANAKA", 4, 5)
    Next i
End Sub

	Test1	Test2	%
1回目	00:05	00:02	40.0%
2回目	00:06	00:03	50.0%
3回目	00:05	00:02	40.0%
4回目	00:06	00:03	50.0%
5回目	00:06	00:02	33.3%
6回目	00:05	00:03	60.0%
7回目	00:06	00:03	50.0%
8回目	00:05	00:02	40.0%
9回目	00:06	00:03	50.0%
10回目	00:05	00:02	40.0%
平均	00:05	00:03	45.3%

Mid関数よりMid$関数の方が約50%高速です。それには理由があります。$なしのMid関数などは、ヘルプに「バリアント型 (内部処理形式 String の Variant) の値を返します」と明記されています。対して末尾に$が付くMid$関数などは「文字列型」を返すんです。バリアント型と文字列型、どちらが高速はおわかりですよね。