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

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

谢谢啦~

代码如下:

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

温馨提示:答案为网友推荐,仅供参考
相似回答