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