帮我写个vba程序，需要将excel中前三列所有数据求和

好的，这里是一个简单的 VBA 程序，它会将 Excel 表格中前三列的所有数据求和，并将结果显示在第四列的第一个单元格中：

Sub SumColumns()
    Dim lastRow As Long
    Dim sum As Double
    Dim i As Long

    lastRow = Cells(Rows.Count, 1).End(xlUp).Row

    For i = 1 To lastRow
        sum = sum + Cells(i, 1).Value + Cells(i, 2).Value + Cells(i, 3).Value
    Next i

    Cells(1, 4).Value = sum
End Sub

这个程序中，我们首先定义了一个变量 `lastRow`，它表示表格中最后一行的行号。然后，我们使用一个循环来遍历表格中的所有行，将前三列的值相加，保存到变量 `sum` 中。

最后，我们将 `sum` 的值赋值给第四列的第一个单元格，这里使用了 `Cells` 函数来定位单元格，第一个参数表示行号，第二个参数表示列号。