运行Excel VBA宏时触发1004错误：选中指定范围失败求助

这个1004错误我碰到过好多次，核心问题出在工作表引用不明确，再给你补充几个潜在的坑和优化方案：

错误原因分析 #

• 你的代码里Range("A2")没有指定所属工作表，Excel会默认用当前激活的工作表来解析这个引用。如果此时激活的不是"Testable"工作表，就会出现"跨工作表引用冲突"，直接触发1004错误。
• 另外还有个隐藏问题：如果A2下方没有数据（或者A2本身是空的），Range("A2").End(xlDown)会直接跳到工作表的最后一行，导致选中巨量无效区域，甚至引发其他异常。

解决方案1：最小改动修复引用问题 #

只需要把所有Range明确绑定到"Testable"工作表，用With语句可以让代码更简洁易读：

Sub colour()
    Dim cell As Range
    Dim targetRange As Range
    
    With Worksheets("Testable")
        ' 注意前面的点(.)，代表隶属于With块里的工作表
        Set targetRange = .Range(.Range("A2"), .Range("A2").End(xlDown))
    End With
    
    For Each cell In targetRange
        cell.EntireRow.Interior.ColorIndex = 33
    Next cell
End Sub

这里的.是关键，确保所有Range操作都指向"Testable"工作表，和当前激活的工作表无关。

解决方案2：更高效的优化写法（推荐） #

其实完全不需要逐个单元格循环，直接给目标行区域上色效率更高，还能规避循环带来的性能问题：

Sub colour()
    Dim targetSheet As Worksheet
    Dim lastRow As Long
    
    Set targetSheet = Worksheets("Testable")
    
    ' 从A列底部往上找最后一个有数据的行，比End(xlDown)更可靠
    lastRow = targetSheet.Cells(targetSheet.Rows.Count, "A").End(xlUp).Row
    
    ' 只有当A2及下方有数据时才执行上色
    If lastRow >= 2 Then
        targetSheet.Rows("2:" & lastRow).Interior.ColorIndex = 33
    End If
End Sub

这个方案的优势：

• 用End(xlUp)找最后一行，不会因为中间的空白行导致选中错误区域；
• 直接操作整行区域，没有循环，数据量大的时候速度快很多；
• 增加了判断逻辑，避免A2为空时的无效操作。

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