选择彩色单元格并填充

Question

我尝试在excel上用VBA写一个宏，但失败了，因为这是我第一次尝试使用VBA。

你能帮我写一个功能，选择具有特定颜色（RGB 204 255 255）的单元格并用相应的数字填充/替换它们吗？我需要快速。

提前致谢

Answer 1

尝试一下：

Sub AssignValues()
    Dim i As Long
    i = 1
    For Each r In ActiveSheet.UsedRange
        If r.Interior.Color = RGB(205, 255, 255) Then
            r.Value = i
            i = i + 1
        End If
    Next r
End Sub