選擇彩色單元格並填充

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