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

在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

在上述代码中，首先通过Set关键字将要求和的范围和存放结果的范围分别赋值给range1、range2和sumRange变量。然后使用For循环遍历范围向量中的每个元素，将对应位置的两个范围向量的值相加，并将结果存放在sumRange范围中。

请注意，上述代码仅适用于两个范围向量的行数相同的情况。如果两个范围向量的行数不同，需要根据实际情况进行调整。

此外，VBA中还提供了一些内置函数，如Sum函数可以用于对范围向量求和。例如，可以使用以下代码实现相同的功能：

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

在上述代码中，通过将range1和range2的地址传递给SUM函数的公式，可以直接在sumRange范围中显示求和结果。

这是一个简单的示例，你可以根据实际需求进行修改和扩展。