VBA -find在具有多个条件的颜色字段的范围内

Sub FindColorFields()
    Dim rng As Range
    Dim cell As Range
    Dim color1 As Long
    Dim color2 As Long
    
    ' 设置要查找的颜色值
    color1 = RGB(255, 0, 0) ' 红色
    color2 = RGB(0, 255, 0) ' 绿色
    
    ' 设置要查找的范围
    Set rng = Range("A1:A10") ' 假设要在A1:A10范围内查找
    
    ' 遍历范围内的每个单元格
    For Each cell In rng
        ' 检查单元格的字体颜色是否满足条件
        If cell.Font.Color = color1 Or cell.Font.Color = color2 Then
            ' 如果满足条件，则执行相应的操作
            ' 这里可以根据需要进行处理，比如将满足条件的单元格的值复制到其他位置
            MsgBox "找到一个满足条件的单元格：" & cell.Address
        End If
    Next cell
End Sub