VBA在Excel中的应用（一）

目录

ActiveCell

ActiveWorkbook

AdvancedFilter

AutoFill

ActiveCell

1.检查活动单元格是否存在

Sub activeCell()
If ActiveCell Is　Nothing　Then　End If
End Sub

2.通过指定偏移量设置活动单元格

Sub offset()
ActiveCell.Offset(RowOffset:=-2, ColumnOffset:=4).Activate
End Sub

Offset函数的第一个参数为Row的偏移量，第二个参数为Column的偏移量（可以不指定），使用时可以直接给定值，如Offset(2, 4)。值小于0向相反方向偏移。Offset().Activate与Offset().Select在效果上等同。

3.设置活动单元格的当前值

Sub SetValue
ActiveCell.Value =　"Hello World!"
End Sub

4.为当前活动单元格设置公式

Sub fomula()
ActiveCell.Formula =　"=SUM($G$12:$G$22)"
End Sub

将公式的表达式直接赋值给Formula属性，公式表达式可以参考Excel中的公式菜单，如求和、计数、求平均值等。

5.获取当前活动单元格的地址

Sub selectRange()
MsgBox ActiveCell.Address
End Sub

地址的格式如：$A$11。