VBA - 查找具有特定标题的列并查找该列中所有行的总和

使用VBA编程语言，可以方便地在Excel中查找具有特定标题的列，并计算该列中所有行的总和。这对于数据分析和报告生成非常有用。接下来，我们将介绍如何使用VBA编写代码来实现这个功能。

vba
Sub CalculateColumnSum()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim colTitle As String
    Dim sumRange As Range
    Dim sumValue As Double
    
    ' 设置工作表对象
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 设置列标题
    colTitle = "销售额"
    
    ' 查找列标题所在的列号
    Dim colNum As Integer
    colNum = Application.Match(colTitle, ws.Rows(1), 0)
    
    ' 如果找到了列标题
    If Not IsError(colNum) Then
        ' 获取该列的数据范围
        lastRow = ws.Cells(ws.Rows.Count, colNum).End(xlUp).Row
        Set sumRange = ws.Range(ws.Cells(2, colNum), ws.Cells(lastRow, colNum))
        
        ' 计算总和
        sumValue = Application.WorksheetFunction.Sum(sumRange)
        
        ' 打印结果
        MsgBox "总销售额为：" & sumValue
    Else
        ' 如果未找到列标题
        MsgBox "未找到标题为" & colTitle & "的列"
    End If
End Sub