概述

Range和Cells这两个函数，都可以获取单元格内容和将内容写入单元格。既然这两个功能相同，那么速度就成为了选择的关键。

注：Range有着比Cells更强大的功能，大家千万不要把这两个函数完全等同。当然了，这也从侧面反应了速度上必然Range更慢。

测试速度的代码

Private Declare Function QueryPerformanceCounter Lib "KERNEL32" (lpPerformanceCount As Currency) As Long
Private Declare Function QueryPerformanceFrequency Lib "KERNEL32" (lpFrequency As Currency) As Long

Private m_Frequency   As Currency
Private m_Start       As Currency
Private m_Now         As Currency
Private m_Available   As Boolean

Sub test()
Dim i As Long
Dim a As String

m_Available = (QueryPerformanceFrequency(m_Frequency) <> 0)
If Not m_Available Then
 Debug.Print "Performance Counter not available"
End If

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

QueryPerformanceCounter m_Start

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

QueryPerformanceCounter m_Now

Elapsed = 1000 * (m_Now - m_Start) / m_Frequency
Debug.Print Elapsed
End Sub

测试结果

测试结果的时间单位是毫秒。