select彩色单元格并填充

我试图用excel写VBA的macros，但是失败了，因为这是我第一次尝试VBA。

你能帮我写一个函数来select具有特定颜色的单元格（RGB 204 255 255）并用相应的数字填充/replace它们吗？ 我需要它快。

提前致谢

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