在Excel中使用VBA编程求和，可以通过以下几种方法实现：
方法一：使用InputBox输入加数并求和
1. 打开Excel中的VBA编程界面。
2. 插入一个新的过程（Sub）。
3. 在编辑界面输入以下程序：
```vba
Public Sub 求和（）
Dim a As Integer
Dim b As Integer
Dim sum As Integer
a = InputBox（"第一个加数"）
b = InputBox（"第二个加数"）
sum = a + b
MsgBox a & "+" & b & "=" & sum
End Sub
```
4. 按下F5运行该程序，根据提示输入两个加数，最后系统会显示两数之和。
方法二：使用WorksheetFunction.Sum函数求和
1. 定义一个变量来存储求和的值。
2. 使用`WorksheetFunction.Sum`函数计算需要求和的列或行的范围。
3. 把求和的结果赋值给之前定义的变量，并通过消息框显示结果。
```vba
Sub VBA求和_Sum函数（）
Dim rng As Range
Dim sumValue As Double
Set rng = Range（"A1:A10"）
sumValue = WorksheetFunction.Sum（rng）
MsgBox "A1:A10 的和是：" & sumValue
End Sub
```
方法三：使用循环求和
1. 定义一个循环变量和一个求和变量。
2. 遍历指定的数据范围，对满足条件的数据进行求和。
```vba
Sub VBA求和_循环（）
Dim i As Integer
Dim sumValue As Double
Dim myRange As Range
Set myRange = Range（"B1:B10"）
For i = 1 To 10
If myRange.Cells（i, 1）.Value > 0 Then
sumValue = sumValue + myRange.Cells（i, 1）.Value
End If
Next i
MsgBox "大于0的数的和是：" & sumValue
End Sub
```
方法四：自定义求和函数
1. 创建一个新的模块。
2. 编写一个自定义的求和函数，接受一个范围作为参数，并返回求和结果。
```vba
Function SumCells（rng As Range） As Double
Dim cell As Range
Dim total As Double
total = 0
For Each cell In rng
If IsNumeric（cell.Value） Then
total = total + cell.Value
End If
Next cell
SumCells = total
End Function
```
3. 在Excel工作表中使用该函数进行求和，例如：
```vba
=SumCells（A1:A10）
```
这些方法可以根据不同的需求和数据结构选择使用。对于简单的求和操作，方法一和方法二比较简单直接；对于需要灵活处理数据的情况，方法三和方法四更为适用。