VBA在Excel中的应用经验分享（一）
操作方法
- 01
目录 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。 6. 获取从当时活动单元格开端到鸿沟单元格的区域' 从当时单元格到最顶端 Sub SelectUp() Range(ActiveCell, ActiveCell.End(xlUp)).Select End Sub '从当时单元格到最底端 Sub SelectDown() Range(ActiveCell, ActiveCell.End(xlDown)).Select End Sub '从当时单元格到最右端（同等于xlEnd） Sub SelectToRight() Range(ActiveCell, ActiveCell.End(xlToRight)).Select End Sub '从当时单元格到最左端 Sub SelectToLeft() Range(ActiveCell, ActiveCell.End(xlToLeft)).Select End Sub 7. 当时活动单元格地点区域挑选 Sub SelectCurrentRegion() ActiveCell.CurrentRegion.Select End Sub 对CurrentRegion特点所代表的区域的阐明： CurrentRegion回来活动单元格地点的周围由空行和空列组成的单元格区域（这个好像有点不太好了解） ，能够看下图的示例： 能够这样了解CurrentRegion特点所代表的区域，即以活动单元格为中间，它所包括的矩形区域的每一行和每一列中至少包括有一个数据，上图中的蓝色暗影区域中，无论活动单元格是哪一个，其地点的当时区域均为同一区域，如B5:D7区域中的B5和C6单元格。A4的当时区域表明为A1:D7，A8的当时区域表明为A5:D11，A12的当时区域只要它本身。 运用CurrentRegion特点相当于在Excel作业表中挑选菜单“修改-定位”指令，在弹出的“定位”对话框中单击“定位条件”按钮，然后在“定位条件”对话框中选中“当时区域”选项按钮，或许相当于运用Ctrl+Shift+*组合键。在Excel2007中，该指令在以下当地能够找到： 鄙人拉菜单中挑选“Go To Special…” ，在对话框中挑选“Current region”。 有关运用CurrentRegion的一些比如： 鄙人图中，要运用空白单元格上方的有数据的单元格中的数据来填充空白单元格。 代码如下，Sub FillBlankCells() Worksheets("sheet1").Range("A1").CurrentRegion.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C" Worksheets("sheet1").Range("A1").CurrentRegion.Value = Worksheets("sheet1").Range("A1").CurrentRegion.Value End Sub 履行之后，作业表中单元格A1地点当时区域中的空白单元格被相应数据填充。