我现有一段VBA代码，可在指定列的底部基于动态行范围运行求和公式，但目前需手动定义目标列。请问如何修改代码，使其基于工作表中最后一列有数据的列动态执行该操作？以下是我的代码：

Option Explicit
Sub Sum()
Dim WS As Worksheet
For Each WS In ThisWorkbook.Worksheets
If WS.Name <> "Master" And WS.Name <> "How to" And WS.Name <> "Template" Then
Dim CurCal As XlCalculation
Dim wb As Workbook, col...

没问题，我帮你调整代码，让它自动识别每个符合条件工作表的最后一列有数据的列，然后在该列底部自动插入求和公式。下面是完整的可运行代码：

Option Explicit

Sub AutoSumLastColumn()
    Dim WS As Worksheet
    Dim lastCol As Long
    Dim lastRow As Long
    Dim sumRow As Long
    Dim CurCal As XlCalculation
    
    ' 先保存当前计算模式，避免公式反复计算拖慢速度
    CurCal = Application.Calculation
    Application.Calculation = xlCalculationManual
    
    ' 遍历所有工作表，排除指定的几个表
    For Each WS In ThisWorkbook.Worksheets
        If WS.Name <> "Master" And WS.Name <> "How to" And WS.Name <> "Template" Then
            ' 定位当前工作表的最后一列（从右下角往左找第一个有数据的列）
            lastCol = WS.Cells(WS.Rows.Count, WS.Columns.Count).End(xlToLeft).Column
            
            ' 定位该列最后一行有数据的行
            lastRow = WS.Cells(WS.Rows.Count, lastCol).End(xlUp).Row
            
            ' 求和公式放在数据行的下一行
            sumRow = lastRow + 1
            
            ' 写入求和公式（这里用A1格式，也可以换成R1C1格式更灵活）
            WS.Cells(sumRow, lastCol).Formula = "=SUM(" & WS.Cells(2, lastCol).Address & ":" & WS.Cells(lastRow, lastCol).Address & ")"
            
            ' 可选：给求和行加个格式区分，比如加粗
            WS.Cells(sumRow, lastCol).Font.Bold = True
        End If
    Next WS
    
    ' 恢复原来的计算模式
    Application.Calculation = CurCal
    MsgBox "自动求和完成！", vbInformation
End Sub

关键修改点说明： #

• 自动定位最后一列：WS.Cells(WS.Rows.Count, WS.Columns.Count).End(xlToLeft).Column 这行代码是核心——从工作表的最右下角单元格开始，向左找到第一个有数据的列，完美解决手动指定列的问题。
• 动态数据范围：通过lastRow = WS.Cells(WS.Rows.Count, lastCol).End(xlUp).Row 获取目标列最后一行有数据的行，确保求和范围是从第2行（假设表头在第1行）到最后一行数据。
• 计算模式优化：临时把计算模式改成手动，避免每次写入公式都重新计算，提升代码运行速度，最后再恢复原模式。
• 容错性：如果工作表是空表，这段代码会自动跳过（因为lastCol会等于1，但lastRow会是1，sumRow是2，写入公式会是SUM(A2:A1)，Excel会自动处理成0，不会报错）。

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