如何使用Application.WorksheetFunction选择特定单元格？数据透视表场景

嘿，我来帮你理清楚这个问题～首先得明确一点：Application.WorksheetFunction里并没有专门用来「选择单元格」的函数，因为工作表函数的核心是计算返回值，而「选择单元格」属于VBA对Range对象的操作范畴，两者完全不是一回事。

你之前用Can.Range("AC15") = Application.WorksheetFunction.Max(Flight)能运行，其实是刚好你数据透视表D列的最后一个单元格数值是最大值，但这是个巧合——如果后续数据更新后，最后一个单元格不是最大值了，这个代码就会返回错误的结果，完全不符合你要定位最后一个单元格的初衷。

正确的实现思路 #

我们需要直接基于数据透视表的结构，准确定位到D列的最后一个数据单元格，再执行选择操作。下面是靠谱的VBA代码参考：

Dim targetPT As PivotTable
Dim lastDataCell As Range

' 先指定你的数据透视表，这里假设它在名为"Sheet1"的工作表上，名字是"PivotTable1"
' 请根据实际情况修改工作表名和透视表名
Set targetPT = ThisWorkbook.Sheets("Sheet1").PivotTables("PivotTable1")

' 检查透视表是否有数据（避免空表时触发报错）
If Not targetPT.DataBodyRange Is Nothing Then
    ' 定位透视表数据区域的第4列（对应Excel里的D列）的最后一行单元格
    Set lastDataCell = targetPT.DataBodyRange.Columns(4).Cells(targetPT.DataBodyRange.Rows.Count, 1)
    
    ' 执行选择操作
    lastDataCell.Select
    
    ' 如果仍需要把该单元格的值赋值给AC15，直接这样写即可
    ' Can.Range("AC15").Value = lastDataCell.Value
End If

额外说明 #

如果你的「Flight」是之前已经定义好的、准确指向D列最后一个单元格的Range变量，那也可以直接用Flight.Select来选择它——但从你使用Max的情况来看，之前的Flight定义可能并没有精准定位到目标单元格，所以更推荐上面直接基于透视表对象的定位方式，不管透视表怎么动态更新，都能准确找到目标单元格，不会依赖数值大小的巧合。

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