Excel VBA选中指定工作表特定单元格及解决Select方法1004错误

• VBA 中Range对象的Select方法只能作用于当前处于激活状态的工作表内的单元格，你在通用模块运行代码时，如果Awaiting Completion工作表未被提前激活，直接调用该表下单元格的Select方法就会触发1004错误。
• 第二种写法还有适配问题：如果A列实际有值的行数超过999行，Range("A999").End(xlUp)会定位到错误的行，无法适配大数据量场景。

方案1：需要实际选中该单元格的写法 #

如果你的业务逻辑确实需要光标定位到最后一个值的单元格，先激活目标工作表再执行选中操作即可：

Dim targetSheet As Worksheet
Set targetSheet = ThisWorkbook.Sheets("Awaiting Completion")
' 先激活目标工作表，再执行选中操作
targetSheet.Activate
' 从A列最后一行向上找第一个非空单元格，适配所有行数场景
targetSheet.Range("A" & targetSheet.Rows.Count).End(xlUp).Select

方案2：仅需操作最后一个值、不需要选中的写法 #

绝大多数场景下你不需要真的选中单元格，直接操作单元格对象即可，既不会触发报错，运行效率也更高：

Dim targetSheet As Worksheet, lastCell As Range
Set targetSheet = ThisWorkbook.Sheets("Awaiting Completion")
' 直接获取A列最后一个非空单元格对象，不需要激活、不需要选中
Set lastCell = targetSheet.Range("A" & targetSheet.Rows.Count).End(xlUp)

' 示例操作：读取值、修改格式等
MsgBox "A列最后一个值为：" & lastCell.Value
lastCell.Interior.Color = RGB(255, 255, 0) ' 给单元格设置黄色背景

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