VBA(Excel), 개체변수를 사용한 속도향상

test 1과 test2의 수행속도중 개체변수를 사용한 test2가 더 빠름

Application.ScreenUpdating = False 를 사용하면 속도는 더욱 빨라짐

Sub test1()
Dim i&
Dim st
st = Timer
For i = 1 To 10000
    ThisWorkbook.Sheets(5).Range("A1").Value = i
Next i
MsgBox Format(Timer - st, "#0.000")
End Sub

Sub test2()
Dim i&
Dim st
Dim cel As Range
st = Timer
Set cel = ThisWorkbook.Sheets(5).Range("A1")
For i = 1 To 10000
    cel.Value = i
Next i
MsgBox Format(Timer - st, "#0.000")
End Sub

 

#_속도 비교

	ScreenUpdating
	True	False	생략
test1	7.678	1.441	7.551
test2	7.460	0.902	7.399

True > 생략 > False