分享一段代码,可以根据RGB自动填充颜色

在sheet1处右键打开查看代码

在弹出的对话框中选择worksheet、change
输入以下内容
Private Sub Worksheet_Change(ByVal Target As Range)
For i = 2 To 91
Cells(i, 4).Interior.Color = RGB(Cells(i, 5), Cells(i, 6), Cells(i, 7))
Next i
End Sub

其中Cells(a,b)标记的是第a行第b列的单元格,大家根据自己的内容修改。For循环我图省事,因为我需要填充第2行到第91行的单元格。。。。你知道我弄了90个国家,也许以后还会添加。工程量浩大啊!
还是等我弄出第一个征服来再更新吧,到时候详细说说我的创作过程。