Question

这段vba代码错在哪里？

我想用变量wcolor代替某个单元格的颜色：

Set wcolor = Cells(r, "a").EntireRow.Interior.Color

Answer 1

1. color是个十进制数，不需要用set

2. 给wcolor赋值以后，wcolor改变不会引起单元格颜色改变，反过来也是

3. 一般用colorindex吧
   

追问

请问为什么改变wcolor不会引起单元格颜色改变？

追答

因为赋值给wcolor以后单元格颜色并不会和这个变量产生关联，在改变wcolor以后必须把wcolor的值再赋予单元格颜色才行，和set语句不同，set语句是把一个变量指向一个对象，这样对于这个变量的操作其实是对那个对象的操作。

Answer 2

dim wcolor
wcolor = Cells(r, "a").Interior.Color

Answer 3

set 是对象赋值才用到
你 这里是具体一下值，而不是对象，所以不用set