VBA之插入整行单元格

ActiveCell.Range("A1:I1").Select

Selection.Copy

ActiveCell.Offset(2, 0).Range("A1").Select

Selection.Insert Shift:=xlDown

Application.CutCopyMode = False

Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove

ActiveCell.Rows("1:1").EntireRow.Select

Selection.ClearFormats

ActiveCell.Offset(1, 1).Range("A1").Select

直接用单元格引用等于某个值就好了，如要在a1返回当前活动单元格的地址。

sub dd()

activesheet.range("a1") = activecell.address

end sub

楼主：你好，对于你这个问题有个前提条件：

如果你的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

---