先帮你梳理下现有代码的问题，再给出更稳定的优化方案～

现有代码的潜在问题 #

• 未指定工作表的行数范围：Rows.Count默认引用当前活动工作表的行数，应该明确写成Can.Rows.Count，避免切换工作表时出错
• 错误的最后行查找逻辑：End(xlDown)从D14往下找，如果D14下方有空单元格，会直接跳到工作表最后一行，而非数据透视表的实际最后一行——数据透视表有专属的结构属性，不能用普通单元格的查找方法
• 变量未声明：Flight1没有提前声明，建议在模块顶部加Option Explicit，强制变量声明，避免拼写错误
• 触发时机不合理：Worksheet_SelectionChange每次选中单元格都会触发，操作数据透视表时可能频繁执行，甚至在透视表刷新未完成时就运行，导致数据错误

优化后的代码 #

如果你的需求是获取数据透视表D列的所有数据并求和到AC15，可以利用数据透视表的专属属性精准定位数据区域，同时调整触发逻辑让代码更稳定：

方式1：透视表更新时自动计算 #

Option Explicit

' 当数据透视表更新完成时自动触发计算
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
    Dim pt As PivotTable
    Dim canSheet As Worksheet
    Dim pivotDataRange As Range
    Dim dColumnData As Range
    
    Set canSheet = ThisWorkbook.Worksheets("Can")
    ' 仅处理指定的目标透视表
    Set pt = canSheet.PivotTables("Can Table")
    
    ' 判断透视表是否有数据
    If Not pt.DataBodyRange Is Nothing Then
        ' 获取透视表数据区域中的D列（这里假设D列是透视表的第4列，若列位置变化可调整数字）
        Set pivotDataRange = pt.DataBodyRange
        Set dColumnData = pivotDataRange.Columns(4)
        
        ' 将求和结果写入AC15
        canSheet.Range("AC15").Value = Application.WorksheetFunction.Sum(dColumnData)
    Else
        ' 透视表无数据时清空AC15
        canSheet.Range("AC15").Value = ""
    End If
End Sub

方式2：手动触发（更稳定可控） #

如果不想自动触发，可以写一个独立宏，绑定到工作表按钮上手动执行：

Option Explicit

Sub CalculatePivotDSum()
    Dim pt As PivotTable
    Dim canSheet As Worksheet
    Dim dColumnData As Range
    
    Set canSheet = ThisWorkbook.Worksheets("Can")
    Set pt = canSheet.PivotTables("Can Table")
    
    If Not pt.DataBodyRange Is Nothing Then
        ' 直接定位透视表数据区域的第4列（即D列）
        Set dColumnData = pt.DataBodyRange.Columns(4)
        canSheet.Range("AC15").Value = Application.WorksheetFunction.Sum(dColumnData)
    Else
        canSheet.Range("AC15").Value = ""
    End If
End Sub

关键说明 #

• pt.DataBodyRange：直接指向数据透视表的实际数据区域（不含表头和总计行，若需要总计行可单独用pt.RowRange定位）
• 列位置调整：如果透视表的D列位置可能变化，可以通过列标题查找对应列，比如用pt.PivotFields("列标题名").DataRange来获取指定列的数据
• 开启Option Explicit：在模块顶部添加这句，能帮你快速发现未声明的变量错误，减少调试时间

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