打开错误Excel工作表时执行VBA代码触发应用程序定义错误求助

这个问题我太熟了！本质是你代码里的Cells对象没有明确绑定到目标工作表，导致激活不同工作表时引用错位，咱们一步步拆解：

问题根源 #

当你在Tab2运行代码时，未限定工作表的Cells()会默认指向当前激活的工作表（也就是Tab2），但YE_forecast是来自Forecast工作表（应该就是你的Tab1）的单元格，它的Row和Column是Tab1的位置。这就导致你试图用Tab2的单元格去匹配Tab1的行列位置，自然会抛出引用错误——而在Tab1运行时，Cells默认指向Tab1，所以能正常工作。

修复方案 #

给所有Cells对象明确指定所属的工作表Forecast，确保不管当前激活哪个工作表，引用的都是Tab1里的单元格：

修改出错代码行：

' 原错误代码
Set YE_last = Forecast.Range(Cells(YE_forecast.Row + 1, YE_forecast.Column + i - 1), Cells(YE_forecast.Row + 1, YE_forecast.Column + i - 1))

' 修改后的代码
Set YE_last = Forecast.Cells(YE_forecast.Row + 1, YE_forecast.Column + i - 1)

额外优化说明 #

因为你这里Range的两个参数是完全相同的单元格，直接用Forecast.Cells()就能获取单个单元格对象，没必要用Range包裹，这样代码更简洁高效。

通用建议 #

写跨工作表操作的VBA代码时，一定要养成给所有Range、Cells、Rows、Columns对象明确指定工作表的习惯，比如：

• 避免直接写Cells(1,1)，改用Sheet1.Cells(1,1)
• 避免Range("A1")，改用Sheet1.Range("A1")

这样能彻底避免因当前激活工作表变化导致的引用错误。

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