VBAでセルに色付けする
セルの色を変更するVBAマクロ
(500列500行目まで、、)
Option Explicit Sub NavyToPink() ' 49 紺色 ' 7 ピンク Dim x As Integer Dim y As Integer x = 0 y = 0 For x = 1 To 500 For y = 1 To 500 If Cells(x, y).Interior.ColorIndex = 49 Then Cells(x, y).Interior.ColorIndex = 7 End If Next Next End Sub
color indexは好きな色を直接指定しても良いのですが、「このセルと同じ色が良い!」という場合は以下の方法で調べられます。
ColorIndexプロパティ値をイミディエイトウィンドウから調べる