如何用VBA查找区域内红色背景单元格并输出其地址及内容？

原代码存在的问题 #

• 变量声明错误：i As Object应改为Dim i As Range，因为遍历的是单元格（Range对象），而非通用Object。
• Range对象赋值错误：需用Set关键字赋值Range对象，且原代码中Range("k2:014")是笔误，应为Range("K2:O14")（字母O而非数字0）。
• 输出逻辑不符合需求：原代码仅在找到第一个红色单元格时输出"red"并终止循环，未实现输出所有红色单元格的地址与内容的要求。

修正后的代码 #

Sub MacroTest()
    Dim rng As Range
    Dim cell As Range
    Dim outputRow As Integer
    
    ' 指定要检查的单元格区域（修正了原笔误的0为O）
    Set rng = Range("K2:O14")
    ' 初始化输出起始行（从C5开始）
    outputRow = 5
    
    ' 遍历区域内的每个单元格
    For Each cell In rng
        ' 判断单元格背景是否为红色（255对应纯红色，也可使用RGB(255, 0, 0)）
        If cell.Interior.Color = 255 Then
            ' 在C列对应行输出单元格地址和内容
            Range("C" & outputRow).Value = "地址：" & cell.Address & "，内容：" & cell.Value
            ' 输出行号自增，下一个结果写到下一行
            outputRow = outputRow + 1
        End If
    Next cell
    
    ' 如果没有找到红色单元格，提示信息
    If outputRow = 5 Then
        Range("C5").Value = "未找到背景为红色的单元格"
    End If
End Sub

代码说明 #

• 用Set正确赋值要检查的Range对象，修正了原代码的区域地址笔误。
• 使用cell As Range明确遍历的是单元格对象，类型更精准。
• 新增outputRow变量控制输出位置，找到红色单元格时自动往下换行输出地址和内容。
• 增加了未找到红色单元格时的提示逻辑，避免C5为空。

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