excel vba填充单元格颜色(可否一句代码代表一个单元填充颜色)

Question

C列填充最后一个单元为绿色(图示色)
C列填充最后一个单元为的下一单元为青色(图示色)
D列填充最后第4个单元为绿色(图示色)

Answer 1

Sub Test()
Dim i, j As Double
i = 1048576
Cells(Cells(i, 3).End(xlUp).Row, 3).Interior.Color = vbGreen
Cells(Cells(i, 3).End(xlUp).Row + 1, 3).Interior.Color = 15773696
For j = 1 To 4
Cells(Cells(i, 4).End(xlUp).Row - j + 1, 4).Interior.Color = vbGreen
Next
End Sub追问

Cells(Cells(i, 3).End(xlUp).Row, 3).Interior.Color = vbGreen这里提示
颜色能用数字来表示吗
我对代码不懂能注解一下吗

追答

vbgreen代表绿色，类似的还有vbred, vbyellow等。可以用65280代表绿色。

Sub Test()
Dim i, j As Double
i = 1048576
Cells(Cells(i, 3).End(xlUp).Row, 3).Interior.Color = vbGreen'end(xlup)，取最后行；Interior.Color=vbgreen，填充颜色
Cells(Cells(i, 3).End(xlUp).Row + 1, 3).Interior.Color = 15773696'填充淡蓝色（你所谓青色）
For j = 1 To 4'从最后一行向上循环
Cells(Cells(i, 4).End(xlUp).Row - j + 1, 4).Interior.Color = vbGreen
Next
End Sub追问

这里提示定义对象错落误
Cells(Cells(i, 3).End(xlUp).Row, 3).Interior.Color = vbGreen 'end(xlup)，取最后行；Interior.Color=vbgreen，填充颜色
Row + 1, 3)这里是什么意思
Row - j + 1, 4这里是什么意思
Interior.Color=3，这里改成3红色可以吗？代码会出错吗？

追答

3似乎是黑色，纯红是255。
复制先前的代码在应用的sheet中（未在单元格前增加sheet名）。
后面的代码我是在网页里直接编辑未经调试。