Range() VS Cells() - 运行时间

使用Excel VBA编程时，我们经常需要处理大量的数据。为了提高代码的效率和运行速度，我们需要选择合适的方法来读取和写入数据。在这篇文章中，我将介绍两种常用的方法：Range()和Cells()，并比较它们的运行时间。

vba
Sub RangeExample()
    Dim rng As Range
    Dim cell As Range
    Dim sum As Double
    
    '选择A1到A10范围的单元格
    Set rng = Range("A1:A10")
    
    '遍历每个单元格，并计算它们的和
    For Each cell In rng
        sum = sum + cell.Value
    Next cell
    
    '将计算结果输出到B1单元格
    Range("B1").Value = sum
End Sub

vba
Sub CellsExample()
    Dim i As Integer
    Dim sum As Double
    
    '遍历1到10行的单元格，并计算它们的和
    For i = 1 To 10
        sum = sum + Cells(i, 1).Value
    Next i
    
    '将计算结果输出到B1单元格
    Cells(1, 2).Value = sum
End Sub

vba
Sub CompareTime()
    Dim startTime As Double
    Dim rangeTime As Double
    Dim cellsTime As Double
    
    '使用Range()方法计算运行时间
    startTime = Timer
    Range("A1:A10000").Copy
    rangeTime = Timer - startTime
    
    '使用Cells()方法计算运行时间
    startTime = Timer
    Range(Cells(1, 1), Cells(10000, 1)).Copy
    cellsTime = Timer - startTime
    
    '输出运行时间
    Range("B1").Value = "Range()方法运行时间：" & rangeTime & "秒"
    Range("B2").Value = "Cells()方法运行时间：" & cellsTime & "秒"
End Sub