在excel中如何使用vba将两个单元格的填充颜色互换

Question

就是假设其中一个单元格A1是红色的，另一个单元格B2是黄色的，要在执行之后是A1为黄色，B2为红色

谢谢啦~

Answer 1

代码如下：

Sub test()
Dim tmp As Integer
tmp = [a1].Interior.ColorIndex '将A1的填充色存入变量
[a1].Interior.ColorIndex = [b2].Interior.ColorIndex '以B2的填充色作为a1的填充
[b2].Interior.ColorIndex = tmp
End Sub