动态工作表中跨表计算特定列总和的VBA宏开发求助

嗨，作为VBA新手，你已经迈出了很棒的第一步！咱们来一步步梳理你代码里的问题，然后给出能正常运行的版本，帮你实现需求。

首先，先说说现有代码里几个关键的问题：

• With Worksheets(vItem).Activate 写法错误，Activate是一个操作，返回的是是否激活成功的布尔值，不能用在With语句里，咱们应该直接引用工作表对象
• wrkSht变量没有被赋值，一直是空的，后续用它操作单元格肯定会报错
• 你固定用了第6列（Cells(lRow, 6)），但需求是找到"Monthly Salary"列，所以得用找到的列号
• 计算最后一行的时候，你用了第1列的最后一行，应该用目标列的最后一行才对

下面是修正后的代码，我会逐行解释：

Sub CalculateSalaryTotal()
    Dim targetSheet As Worksheet
    Dim targetCol As Range
    Dim lastDataRow As Long
    Dim totalRow As Long
    ' 这里把你需要处理的7个工作表名称都放进数组里（你原来写了5个，记得补全剩下的）
    Dim sheetNames() As Variant
    sheetNames = Array("Employees 1", "Employees 2", "Employees 3", "Employees 4", "Employees 5", "Employees 6", "Employees 7")
    
    ' 遍历每个目标工作表
    For Each sheetName In sheetNames
        Set targetSheet = ThisWorkbook.Worksheets(sheetName)
        
        ' 在第一行查找"Monthly Salary"列，精确匹配列名
        Set targetCol = targetSheet.Rows(1).Find(What:="Monthly Salary", LookIn:=xlValues, LookAt:=xlWhole)
        
        ' 检查是否找到该列，避免找不到时代码崩溃
        If Not targetCol Is Nothing Then
            ' 找到目标列最后一行有数据的单元格
            lastDataRow = targetSheet.Cells(targetSheet.Rows.Count, targetCol.Column).End(xlUp).Row
            ' 总和放在最后一行的下一行
            totalRow = lastDataRow + 1
            
            ' 在目标列的totalRow行写入SUBTOTAL公式，自动适配目标列范围
            targetSheet.Cells(totalRow, targetCol.Column).FormulaR1C1 = "=SUBTOTAL(9,R2C:R[-1]C)"
            ' 可选：给总和行加个标识，方便识别
            targetSheet.Cells(totalRow, targetCol.Column - 1).Value = "Total:"
        Else
            ' 如果没找到列，弹出提示
            MsgBox "工作表 '" & sheetName & "' 中未找到 'Monthly Salary' 列！", vbExclamation
        End If
    Next sheetName
End Sub

关键细节解释： #

1. 高效工作表引用：直接用Set targetSheet = ThisWorkbook.Worksheets(sheetName)获取工作表对象，避免使用Activate，这是VBA里更高效也更安全的写法，不会因为工作表切换出问题
2. 精确列查找：Find方法里加了LookAt:=xlWhole，确保只匹配完全等于"Monthly Salary"的列名，不会误判包含该文本的其他列
3. 错误防护：用If Not targetCol Is Nothing Then判断是否找到目标列，防止找不到时代码崩溃
4. 动态行号计算：通过targetCol.Column拿到目标列的列号，再用这个列号找最后一行数据，确保是目标列的真实最后一行，不会受其他列数据影响
5. 自适应公式：用FormulaR1C1写公式，不管目标列是哪一列，公式范围都会自动对应到该列的第2行到最后一行数据

你可以把代码里的工作表数组补全成7个，然后运行试试。如果还有细节想调整，随时问哦！

内容的提问来源于stack exchange，提问作者matt