如何在VBA中对两个范围向量求和？

Sub SumTwoRanges()
    Dim range1 As Range
    Dim range2 As Range
    Dim sumRange As Range
    Dim i As Integer
    
    ' 设置要求和的范围
    Set range1 = Range("A1:A5")
    Set range2 = Range("B1:B5")
    
    ' 设置存放求和结果的范围
    Set sumRange = Range("C1:C5")
    
    ' 循环遍历范围向量并求和
    For i = 1 To range1.Rows.Count
        sumRange.Cells(i, 1).Value = range1.Cells(i, 1).Value + range2.Cells(i, 1).Value
    Next i
End Sub

Sub SumTwoRanges()
    Dim range1 As Range
    Dim range2 As Range
    Dim sumRange As Range
    
    ' 设置要求和的范围
    Set range1 = Range("A1:A5")
    Set range2 = Range("B1:B5")
    
    ' 设置存放求和结果的范围
    Set sumRange = Range("C1:C5")
    
    ' 使用Sum函数对范围向量求和
    sumRange.Formula = "=SUM(" & range1.Address & "," & range2.Address & ")"
End Sub