excel - 查找范围内所有彩色单元格的脚本

Question

我需要创建一个脚本，该脚本将在给定范围内的每个彩色单元格中键入一个值
我对这一切都很陌生，所以请原谅我的无知。
从我所做的阅读中我想出了这个

Sub Macro1()
    Dim colors As Range, found As Boolean

    Set colors = ActiveSheet.Range("D19:CV68")

            found = VBA.IsNull(colors.DisplayFormat.Interior.ColorIndex)
            
            colors = IIf(found, "1", " ")
End Sub

这让我非常接近我需要的东西，但不是将 1 放在彩色单元格中，而是将 1 放在范围内的每个单元格中。
我确信有一种非常基本的方法可以做到这一点，我只是不知道。
我很感激我能得到的任何帮助。
谢谢!

Answer 1

您需要遍历范围测试中的每个单元格以确保没有颜色。

    Dim colors As Range
    Dim cell As Range

    Set colors = Range("D19:CV68")
    
    For Each cell In colors
        If cell.Interior.ColorIndex = xlColorIndexNone Then
            cell.Value = ""
        Else
            cell.Value = 1
        End If
    Next cell