Question

excel vba 填充单元格

例如：Sheets("sheet2").Range("A2:A44") = Sheet1.[A27]
将sheet1中单元格A27的内容填充到sheet2中A2：A44中。
现在需要实现的目标是，设一个变量r2，连续填充到A列，编写代码如下：
r1 = Sheets("Sheet2").Columns("C:E").SpecialCells(xlCellTypeLastCell).Row
If r1 = 1 Then r2 = 2 Else r2 = r1
Sheets("sheet2").Range("A&r2 : A&（r2 + 42)") = Sheet1.[A27]
但是报错，请高人指点

Answer 1

楼主：你好，对于你这个问题有个前提条件：
如果你的Excel版本是2003版，那么你只能用系统预设的56色。用VBA代码实现的其他填充色会被转换为和这56色最接近的一种。
如果你的Excel版本是2007及以上，那么单元格填充色几乎不受限制，你完全可以通过单元格填充的命令实现自定义颜色填充，支持RGB、HSL两种模式，无需借助VBA。

如果使用VBA,代码如下:
Sub test() '将A1单元格填充为红色,RGB(红，绿，蓝) ,红、绿、蓝取值在0~255，可设置不同值获得不同颜色。 Range("A1").Interior.Color = RGB(255, 0, 0) '填充为红色 '如果想去掉填充色，用这句 Range("A1").Interior.Pattern = xlnoeEnd Sub

追问

答非所问啊高人