选择彩色单元格并填充

时间:2014-02-10 14:59:39

标签: excel vba excel-vba excel-formula excel-2010

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

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

提前致谢

1 个答案:

答案 0 :(得分:3)

尝试一下:

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