VBA选中特定颜色单元格报错问题求助

你的代码触发1004错误的核心原因是：通过字符串拼接单元格地址的方式，当符合条件的单元格数量较多时，拼接后的地址字符串长度会超过Excel允许的Range()方法参数最大长度限制，导致Excel无法解析这个范围。

修正方案：使用Union方法合并目标单元格 #

直接通过Union方法逐个将符合条件的单元格合并到一个Range对象中，既避免了字符串长度限制的问题，也比字符串拼接更高效。

修正后的代码：

Sub select_cells_with_colour()
    Dim selected_Range As Range
    Dim coloredCells As Range
    Dim cellitem As Range
    
    Set selected_Range = Range("H20:I33")
    
    For Each cellitem In selected_Range
        If cellitem.Interior.ColorIndex = 37 Then
            ' 首次找到目标单元格时直接赋值，后续用Union合并
            If coloredCells Is Nothing Then
                Set coloredCells = cellitem
            Else
                Set coloredCells = Union(coloredCells, cellitem)
            End If
        End If
    Next
    
    If coloredCells Is Nothing Then
        MsgBox "No colored cell found"
    Else
        coloredCells.Select
    End If
End Sub

代码说明 #

• 初始化coloredCells变量存储所有符合条件的单元格
• 遍历过程中，每找到一个目标颜色单元格，就用Union将其合并到coloredCells中
• 最后判断coloredCells是否为空，为空则提示无匹配，否则选中该范围

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