在第256列后使用xlToLeft设置范围失败
我一直在使用 VBA 从一些原始数据文件中循环和复制数据。对于每次迭代，我一直使用以下代码来定义目标范围：
Set destinationRange = WorksheetRange.Cells(2, Columns.Count).End(xlToLeft).Offset(0, 1)
这一直工作到第 256 列。在此之后，不是将目标范围设置为第 2 行中的下一个空单元格，而是返回到单元格 (2,2)，就好像起始参考单元格 (.Cells(2, Columns.Count)) 在占用的范围内一样，并且.End 方法将返回到占用范围的开头。但这不应该是这种情况，即使在运行时我也验证了 Columns.Count 应该等于 16384。那么为什么代码似乎使用单元格 (2,256) 作为 .Cells(2, Columns.Count) 的结果？我还尝试将值添加到超过 256 列的单元格中，以尝试删除涉及 Columns.Count 的占位符值的任何类型的行为，但这也不起作用。
感谢您对此的任何见解。还值得注意的是，不会触发运行时错误，复制的数据在到达第 256 列后只是开始覆盖第 2 列。
回答
“运行代码的工作表是当前版本的 Excel，但源数据文件是 xl2003”。
可能你被一个隐含的东西咬了ActiveSheet：
WorksheetRange.Cells(2, Columns.Count).End(xlToLeft).Offset(0, 1)
应该
WorksheetRange.Cells(2, WorksheetRange.Columns.Count).End(xlToLeft).Offset(0, 1)
由于ActiveSheet(xl2003) 只有 256 列，因此End(xlToLeft)在第 256 列之后返回到第 1 列。