Excel VBA导出PDF时打印区域异常输出数百页问题求助

你的排查方向准确，问题核心是Data_Filter过程操作LTXN Formatting Sort工作表时选中范围过大，将空单元格的格式、残留属性一并复制到了报表工作表，生成了大量无实际数据的"幽灵单元格"，导致Excel的已用区域异常膨胀。此时用Cells(Rows.Count, 6).End(xlUp)定位打印区域下边界时，会错误定位到带残留属性的空行位置，最终打印区域覆盖到工作表极靠下的位置，导出数百页空白页。

你最初怀疑的空返回值公式不是核心诱因：公式返回空文本""的单元格不会被End(xlUp)识别为有效数据终止点，只有存在格式残留、手动编辑痕迹、复制带入的单元格属性时，才会干扰边界定位。

不需要重写现有嵌套公式为VBA，也不需要大改两段核心过程的逻辑，按优先级选择方案即可：

• 代码层修复（推荐，3行代码永久生效，零副作用）
  在Create_PDF过程执行打印区域定位逻辑前，先清理目标报表工作表的残留空行、强制刷新已用区域缓存，再执行原有定位逻辑，示例代码如下：

  ' 把下面代码放到打印区域定位语句之前，替换为实际的报表工作表名称
  With Sheets("Print to PDF 绑定的报表工作表名")
      ' 清理F列所有有效数据范围外的残留内容、格式、公式
      .Range("F" & .UsedRange.Row + .UsedRange.Rows.Count & ":F" & .Rows.Count).Clear
      ' 强制刷新工作表已用区域缓存
      .UsedRange
      ' 保留原有最后一行定位代码即可，例：
      ' lastValidRow = .Cells(.Rows.Count, 6).End(xlUp).Row
      ' .PageSetup.PrintArea = .Range("A1:F" & lastValidRow).Address
  End With
  

  注意：必须用Clear方法而不是ClearContents，前者会同时清空单元格格式、条件格式、数据验证等所有残留属性，彻底清除幽灵单元格。

• 临时手动修复（不想改代码时用）
  打开报表工作表，选中实际有效数据下的第一行空行，按Ctrl+Shift+↓选中下方所有空行，右键选择「删除整行」；再选中实际有效数据右侧第一列空列，按Ctrl+Shift+→选中右侧所有空列，右键选择「删除整列」，保存文件后重新运行宏即可恢复正常。

不要直接依赖UsedRange.Rows.Count获取最后一行号，该属性存在本地缓存机制，只要历史操作中访问过靠下的单元格，即使后续清空内容，缓存也不会自动更新，必须先执行清理+主动调用.UsedRange触发缓存刷新，才能拿到准确的已用范围。

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