VBA常用代码析.docVIP

EXCEL VBA常用代码解析 Range对象是Excel应用程序中最常用的对象，一个Range对象代表一个单元格、一行、一列、包含一个或者更多单元格区域(可以是连续的单元格，也可以是不连续的单元格)中选定的单元格，甚至是多个工作表上的一组单元格，在操作Excel 内的任何区域之前都需要将其表示为一个Range对象，然后使用该Range对象的方法和属性。 ▲001 单元格的引用方法 在VBA中经常需要引用单元格或单元格区域区域，主要有以下几种方法。 001-1 使用Range属性 VBA中可以使用Range属性返回单元格或单元格区域，如下面的代码所示。 Sub RngSelect() Sheet1.Range(A3:F6，B1:C5).Select Range(Cell1，Cell2) Sub Cell() Dim icell As Integer For icell = 1 To 100 Sheet2.Cells(icell，1).Value = icell Next Cells(RowIndex，ColumnIndex) Sub Fastmark() [A1：A5] = 2 [Fast] = 4 End Sub 代码解析： Fastmark过程使用快捷记号为单元格区域赋值。 第2行代码使用快捷记号将活动工作表中的A1：A5单元格赋值为2。 第3行代码将工作簿中已命名为“Fast”的单元格区域赋值为4。 注意 使用快捷记号引用单元格区域时只能使用固定字符串而不能使用变量。 001-4 使用Offset属性 可以使用Range对象的Offset属性返回一个基于引用的Range对象的单元格区域，如下面的代码所示。 Sub Offset() Sheet3.Range(A1:C3).Offset(3，3).Select expression.Offset(RowOffset，ColumnOffset) Sub Resize() Sheet4.Range(A1).Resize(3，3).Select expression.Resize(RowSize，ColumnSize) Sub UnSelect() Union(Sheet5.Range(A1:D4)，Sheet5.Range(E5:H8)).Select expression.Union(Arg1，Arg2，...) Sub UseSelect() Sheet6.UsedRange.Select End Sub 代码解析： UseSelect过程使用UsedRange属性选择工作表上已使用单元格组成的区域，包括空单元格。如工作表中已使用A1单元格和D8单元格，运行UseSelect过程将选择A1到D8单元格区域。 001-8 使用CurrentRegion属性 使用CurrentRegion属性返回指定工作表上当前的区域，如下面的代码所示。 Sub CurrentSelect() Sheet7.Range(A5).CurrentRegion.Select End Sub 代码解析： CurrentSelect过程使用CurrentRegion属性选择工作表上A5单元格当前的区域，当前区域是一个边缘是任意空行和空列组合成的范围。 运行CurrentSelect过程将选择A5到B6单元格区域。 ▲002 选定单元格区域的方法 002-1 使用Select方法 在VBA中一般使用Select方法选定单元格或单元格区域，如下面的代码所示。 Sub RngSelect() Sheet3.Activate Sheet3.Range(A1：B10).Select End Sub 代码解析： RngSelect过程使用Select方法选定Sheet3中的A1：B10单元格区域，Select方法应用于Range对象时语法如下： expression.Select(Replace) 参数expression是必需的，一个有效的对象。 参数Replace是可选的，要替换的对象。 使用Select方法选定单元格时，单元格所在的工作表必需为活动工作表，所以先使用Activate方法使Sheet3成为活动工作表，否则Select方法有可能出错，显示错误提示。 002-2 使用Activate方法 还可以使用Activate方法选定单元格或单元格区域，如下面的代码所示。 Sub RngActivate() Sheet3.Activate S