VBA常用代码解析

1、解析EXCEL VBA公共代码Range对象是Excel应用程序中最常用的对象。Range对象表示单元格、行、列、一个或多个单元格区域(可以是连续单元格或非连续单元格)中选定的单元格或多个工作表中的单元格组，并且在操作Excel内的区域之前必须表示为Range对象。然后使用Range对象的方法和属性。参考001单元的方法通常，您需要在VBA中参考储存格或储存格区域，主要有以下几种方法：001-1使用Range特性您可以在VBA中使用Range属性返回单元格或单元格区域，如以下代码所示：Sub RngSelect()Sheet1 .范围( A3:F6，B1:C5 )。SelectEnd Sub代

2、码语法分析：RangeSelect过程使用Select方法选择A3:F6、B1:C5单元格区域。Range属性返回Range对象，该对象使用以下语法表示单元格或单元格区域：范围(单元1、单元2)Cell1参数是必需的，需要参考A1样式的宏语言，可以包含区域运算符(冒号)、交叉区域运算符(空格)或合并区域运算符(逗号)。还可以包含美元符号，例如“$A$1”。区域的任何部分都可以使用本地定义名称，例如Range (b 23360 LastCell )。其中lastcell是定义的单元格区域名称。Cell2参数是可选的，是区域左上角和右下角的单元格。运行RangeSelect进程，选择单元格a 33

3、690f 6、B1:C5的区域。使用001-2 Cells特性使用Cells属性返回Range对象，如以下代码所示：Sub Cell()Dim icell As IntegerFor icell=1 To 100Sheet2 .Cells(icell，1)。Value=icell下一个End Sub代码语法分析：Cell流程包括For.使用Next语句填充工作表的A1:A100单元格区域的序列号。Cells属性指定单元格区域中的单元格。语法如下：Cells(RowIndex、ColumnIndex)RowIndex参数是可选的，表示参照区域中的行序列号。ColumnIndex参数是可选的，表示

4、引用区域中的列序列号。如果是基本参数，则Cells属性返回引用对象的所有单元格。Cells属性中的参数可以使用变量，因此经常适用于在单元格区域中循环。使用001-3快捷方式记号您可以输入单字Range，或在VBA中使用A1参考型式或具名区域名称做为Range属性的捷径，而无需使用引号，如下列程式码所示：Subfastcark()a1: a5=2Fast=4End Sub代码语法分析：Fastmark程序使用快速键将值指派给储存格区域。代码2使用快捷记号将活动工作表的单元格a1: a5中的值指定为2。第三行代码将工作簿中名为 Fast 的单元格区域的值指定为4。使用快捷键引用单元区域时，只能使用

5、固定字符串，不能使用变量。使用001-4 Offset性质您可以使用Range物件的Offset属性，根据参照Range物件传回储存格区域，如下列程式码所示：Sub Offset()图纸3。范围( a 1: c 3 )。offset (3，3)。SelectEnd Sub代码语法分析：Offset流程使用Range对象的Offset属性选择单元格a1: a3偏移三行三列之后的区域。适用于Range对象的Offset属性的语法如下：Expression。Offset(RowOffset，ColumnOffset)参数expression是必需的。此表达式返回Range对象。RowOffset参数

6、是可选的，区域偏移的行数(正数、负数或0)。正值表示向下偏移，负值表示向上偏移，默认值为0。ColumnOffset参数是可选的，是区域偏移的列数(正值、负值或0)。正值表示向右偏移，负值表示向左偏移，默认值为0。运行Offset过程以选择单元格a1: a3指向三行中的三列之后的区域。使用001-5 Resize特性使用Range对象的Resize属性调整指定区域的大小并返回调整大小后的单元格区域，如以下代码所示：Sub Resize()Sheet4。Range(A1 )。Resize(3，3)。SelectEnd Sub代码语法分析：Resize进程使用Range对象的Resize属性选择单

7、元格A1展开到三行三列后的区域。Resize属性的语法如下：Expression。Resize(RowSize，ColumnSize)参数expression是必需的，并返回要调整大小的Range对象RowSize参数是可选的，是新区中的行数。如果省略此参数，则该区域的行数将保持不变。ColumnSize参数是可选的，是新区中的列数。如果省略此参数。此区域中的列数不会更改。运行Resize过程以选择单元格A1展开到三行三列后的区域。使用001-6 Union方法使用Union方法，可以将多个非连续区域连接为一个区域，从而一起操作多个非连续区域，如以下代码所示：Sub UnSelect()Uni

8、on(Sheet5 .范围( A1:D4 )，图纸5。范围( e 53360h 8 )。selectEnd Sub代码语法分析：UnSelect程序会选取由A1:D4和e53360 h 8储存格组成的区域。Union方法返回两个或多个区域的组合区域，其语法为：Expression。Union(Arg1、Arg2、）其中参数expression是可选的，它返回一个Application对象。参数Arg1、Arg2、是必需的，并且至少指定两个Range对象。运行UnSelect进程，选择包含A1:D4和e53360 h 8单元格的区域。使用001-7 UsedRange特性使用UsedRange属

9、性返回指定工作表中已使用单元格构建的区域，如以下代码所示：Sub UseSelect()Sheet6 .UsedRange.SelectEnd Sub代码语法分析：UseSelect进程使用UsedRange属性选择工作表中已使用的单元格(包括空单元格)组成的区域。如果工作表已使用单元格A1和单元格D8，则运行UseSelect过程将选择A1中的单元格D8区域。使用001-8 CurrentRegion性质使用CurrentRegion属性返回指定工作表的当前区域，如以下代码所示：Sub CurrentSelect()图纸7。range (a5 )。current region.selectE

10、nd Sub代码语法分析：CurrentSelect进程使用CurrentRegion属性选择工作表单元格A5中的当前区域。当前区域是空行和空行的组合边。执行CurrentSelect程序时，会选取A5至B6储存格区域。如何选择002单元区域使用002-1选择方法在VBA中，通常使用Select方法选择单元或单元区域，如以下代码所示：Sub RngSelect()Sheet3 .ActivateSheet3 .范围( a1: b10 )。selectEnd Sub代码语法分析：RngSelect程序使用Select方法选取Sheet3的a1: b10储存格区域，然后将Select方法套用至Ra

11、nge物件，语法如下：Expression。Select(Replace)参数expression是必需的有效对象。参数Replace是可选的，是要替换的对象。使用Select方法选择单元格时，由于包含单元格的工作表必须是活动工作表，因此首先使用Activate方法使Sheet3成为活动工作表。否则，Select方法可能会出错，并显示错误提示。使用002-2 Activate方法您也可以使用Activate方法选取储存格或储存格区域，如下列程式码所示：Sub RngActivate()Sheet3 .Activate图纸3。范围( a 1:b 10 )。activateEnd Sub代码语法分

12、析：RngActivate程序使用Activate方法选取Sheet3的储存格a1: b10区域，并将Activate方法套用至Range物件时，语法如下：Expression。Activate如果使用Activate方法选择了单元格，则包含单元格的工作表也必须是活动工作表。否则，Activate方法可能会出错，并显示错误提示。使用002-3 Goto方法使用Goto方法(如以下代码所示)，无需使包含单元格的工作表成为活动工作表：Sub RngGoto()application . goto reference :=sheet 3 . range( a1:b10 )，scroll:=TrueE

13、nd Sub代码语法分析：RngGoto程序使用Goto方法选取Sheet3的储存格a1: b10区域，然后卷动工作表以显示该储存格。Goto方法选择所有工作簿区域或Visual Basic流程，如果未激活工作簿，请使用以下语法激活工作簿：Expression。Goto(Reference，Scroll)参数expression是必需的，并返回Application对象。参数Reference指定目标为可选的变量类型。可以是Range对象、包含R1C1样式标记的单元格引用字符串或包含Visual Basic过程名的字符串。如果省略此参数，则目标为Goto方法最近选择的区域。Scroll参数是可

14、选的Variant类型True值表示滚动到目标区域左上角的单元格出现在窗口左上角。如果此值为False，则窗口不滚动。默认值为False。003获取指定行，列中最后一个非空单元使用VBA处理工作表时，通常会移至指定列或栏中的最后一个非空白储存格，如下列程式码所示：Range对象的End属性使您可以获取单元格相关的属性，如单元格地址、行号、数值等，如以下代码所示：Sub LastRow()Dim RNG As RangeSetrng=sheet1.range (a 65536 )。end (xlup)MsgBox A列中的最后一个非空单元格为 rng.address (0，0) _，行号 rng

15、。Row，数字rng。ValueSet RNG=NothingEnd Sub代码语法分析：LastRow进程使用消息框显示工作表a列中最后一个非空单元格的地址、行号和数值。End属性返回Range对象，该对象表示包含源区域的区域末尾的单元格。键、或的语法如下：Expression。End(目录)参数expression是必需的有效对象。Direction参数是可选的，移动的方向可以是XlDirection常量之一。Range对象的End属性返回Range对象，因此您可以直接使用该对象的属性和方法。您可以修改参数，以取得指定列中的最后一个非空白储存格，如下列程式码所示：Sub LastColum

16、n()Dim RNG As RangeSetrng=sheet1.range (iv1 )。end (xlt oleft)“MsgBox”的第一行中的最后一个非空单元格为“rng.address (0，0) _，列号 rng。Column，数字rng。ValueSet RNG=NothingEnd Sub代码语法分析：LastColumn过程使用消息框显示工作表第一行中最后一个非空单元格的地址、列号和数值。004定位单元在Excel中，使用“定位”对话框选择工作表中的特定单元区域，然后在VBA中使用SpecialCells方法，如以下代码所示：Sub SpecialAddress()Dim RNG As Rangesetrng=sheet 1 . used range . special cells(xlcelltypeformulas)Rng .Select“MsgBox”工作表包含公式的单元格为rng .Addre