在VBA(Visual Basic for Applications)中,求和可以通过使用`Sum`函数来实现。以下是一个基本的VBA求和表达式的例子:
```vba
Dim Total As Double
Total = Sum(Range("A1:A10"))
```
在这个例子中,`Sum`函数用于计算从单元格A1到A10的数值总和。`Range("A1:A10")`指定了要计算的单元格范围。
如果你需要在循环中对一系列值进行求和,可以使用以下代码:
```vba
Dim Total As Double
Dim i As Integer
Total = 0
For i = 1 To 10 ' 假设你有一个包含10个值的数组
Total = Total + i ' 将每个值加到Total变量上
Next i
```
在上面的代码中,我们使用了一个`For`循环来迭代一个范围(在这个例子中是1到10),然后将每个值累加到`Total`变量中。
如果你需要从工作表中的多个不连续的单元格范围求和,可以这样做:
```vba
Dim Total As Double
Total = Sum(Range("A1"), Range("B2"), Range("C3")) ' 对A1, B2, C3单元格求和
```
或者,如果你有多个单元格范围需要求和,可以使用以下方式:
```vba
Dim Total As Double
Dim CellRange1 As Range
Dim CellRange2 As Range
Dim CellRange3 As Range
Set CellRange1 = Range("A1:A10")
Set CellRange2 = Range("B1:B10")
Set CellRange3 = Range("C1:C10")
Total = Sum(CellRange1, CellRange2, CellRange3) ' 对A1:A10, B1:B10, C1:C10单元格范围求和
```
请根据你的具体需求调整上述代码。