VBA 中 Range 和 Cells 的速度

目錄

• 概述
• 測試速度的代碼
• 測試結果
• 結論

概述

Range和Cells這兩個函數，均可以獲取單元格內容和將內容寫入單元格。既然這兩個功能相同，那麼速度就成爲了選擇的關鍵。

注：Range有着比Cells更強大的功能，你們千萬不要把這兩個函數徹底等同。固然了，這也從側面反應了速度上必然Range更慢。

測試速度的代碼

' 先用 Fill 填充內容，而後用 TestSpeet 測試速度。

Sub TestSpeet ()

For i = 1 To 100000 Step 1
    Cells(i, 1) = CStr(i)
Next i

End Sub

Sub test()

Dim i As Long
Dim a As String

For i = 1 To 100000 Step 1
    ' 下面四句中選一句執行
    a = Range("A" & CStr(i)) 'Range read
    a = Cells(i, 1)          'Cells read
    Cells(i, 1) = a          'Cells write
    Range("A" & CStr(i)) = a 'Range write
Next i

End Sub

測試結果

測試結果的時間單位是毫秒。

第幾回測試	Range read	Cells read	Range write	Cells write
1	1019.9720	344.1759	6220.0159	5105.3813
2	1020.0355	346.0292	6216.2530	5103.4524
3	1020.8382	345.4371	6207.0230	5079.1922
4	1023.1144	344.1790	6198.1607	5090.5974
5	1018.8067	344.7482	6188.6159	5091.1590
6	1024.7189	344.8035	6181.9272	5085.4331
7	1017.7546	342.1849	6183.4536	5100.7955
8	1023.6095	344.1097	6188.9005	5074.8064
9	1015.5275	344.2437	6186.2355	5076.1584
10	1021.1321	343.7072	6187.4848	5083.3936

結論

不管讀仍是寫，使用Range進行轉字符串再傳入的方式，比Cells直接傳入數值，要慢。

因此應該優先使用Cells。