《Excel-VBA实例教程》由会员分享，可在线阅读，更多相关《Excel-VBA实例教程（66页珍藏版）》请在金锄头文库上搜索。
1、目录单元格的引用方法2选定单元格区域的方法9获得指定行、列中的最后一个非空单元格12定位单元格14查找单元格16替换单元格内字符串22复制单元格区域23仅复制数值到另一区域27单元格自动进入编辑状态28禁用单元格拖放功能29单元格格式操作30单元格中的数据有效性37单元格中的公式43单元格中的批注49合并单元格操作51高亮显示单元格区域58双击被保护单元格时不显示提示消息框60重新计算工作表指定区域62输入数据后单元格自动保护63工作表事件Target参数的使用方法64单元格的引用方法在VBA中经常需要引用单元格或单元格区域区域，主要有以下几种方法。1、使用Range属性VBA中可以使用Ran
2、ge属性返回单元格或单元格区域，如下面的代码所示。 1. Sub RngSelect() 2. Sheet1.Range(A3:F6, B1:C5).Select3. End Sub复制代码代码解析：RngSelect过程使用Select方法选中A3:F6，B1:C5单元格区域。Range属性返回一个Range对象，该对象代表一个单元格或单元格区域，语法如下： 1. Range(Cell1, Cell2)复制代码参数Cell1是必需的，必须为 A1 样式引用的宏语言，可包括区域操作符（冒号）、相交区域操作符（空格）或合并区域操作符（逗号）。也可包括美元符号（即绝对地址，如“$A$1”）。可在区
3、域中任一部分使用局部定义名称，如Range(B2:LastCell)，其中LastCell为已定义的单元格区域名称。参数Cell2是可选的，区域左上角和右下角的单元格。运行Sub RngSelect过程，选中A3:F6, B1:C5单元格区域，如图 1 所示。下载 (21.95 KB)2010-5-20 16:00图 1 使用Range属性引用单元格区域注意 如果没有使用对象识别符，Range属性返回活动表的一个区域，如果活动表不是工作表，则该属性无效。2、使用Cells属性使用Cells属性返回一个Range对象，如下面的代码所示。 1. Sub Cell()2. Dim icell As
4、Integer3. For icell = 1 To 1004. Sheet2.Cells(icell, 1).Value = icell5. Next6. End Sub复制代码代码解析：Cell过程使用For.Next语句为工作表中的A1:A100单元格区域填入序号。Cells属性指定单元格区域中的单元格，语法如下： 1. Cells(RowIndex, ColumnIndex)复制代码参数RowIndex是可选的，表示引用区域中的行序号。参数ColumnIndex是可选的，表示引用区域中的列序号。如果缺省参数，Cells属性返回引用对象的所有单元格。Cells属性的参数可以使用变量，因此
5、经常应用于在单元格区域中循环。3、使用快捷记号在VBA中可以将A1引用样式或命名区域名称使用方括号括起来，作为Range属性的快捷方式，这样就不必键入单词“Range”或使用引号，如下面的代码所示。 1. Sub Fastmark()2. A1：A5 = 23. Fast = 44. End Sub复制代码代码解析：Fastmark过程使用快捷记号为单元格区域赋值。第2行代码使用快捷记号将活动工作表中的A1：A5单元格赋值为2。第3行代码将工作簿中已命名为“Fast”的单元格区域赋值为4。注意 使用快捷记号引用单元格区域时只能使用固定字符串而不能使用变量。4、使用Offset属性可以使用Ran
6、ge对象的Offset属性返回一个基于引用的Range对象的单元格区域，如下面的代码所示。 1. Sub Offset()2. Sheet3.Range(A1:C3).Offset(3, 3).Select3. End Sub复制代码代码解析：Offset过程使用Range对象的Offset属性选中A1：A3单元格偏移三行三列后的区域。应用于Range对象的Offset 属性的语法如下：expression.Offset(RowOffset, ColumnOffset)参数expression是必需的，该表达式返回一个Range对象。参数RowOffset是可选的，区域偏移的行数（正值、负值或
7、 0（零）。正值表示向下偏移，负值表示向上偏移，默认值为 0。参数ColumnOffset是可选的，区域偏移的列数（正值、负值或 0（零）。正值表示向右偏移，负值表示向左偏移，默认值为 0。运行Offset过程，选中A1：A3单元格偏称三行三列后的区域，如图2所示。下载 (20.99 KB)2010-5-20 16:00图2 使用Range对象的Offset属性5、使用Resize属性使用Range对象的Resize属性调整指定区域的大小，并返回调整大小后的单元格区域，如下面的代码所示。 1. Sub Resize()2. Sheet4.Range(A1).Resize(3, 3).Selec
8、t3. End Sub复制代码代码解析：Resize过程使用Range对象的Resize属性选中A1单元格扩展为三行三列后的区域。Resize属性的语法如下： 1. expression.Resize(RowSize, ColumnSize)复制代码参数expression是必需的，返回要调整大小的Range 对象参数RowSize是可选的，新区域中的行数。如果省略该参数，则该区域中的行数保持不变。参数ColumnSize是可选的，新区域中的列数。如果省略该参数。则该区域中的列数保持不变。运行Resize过程，选中A1单元格扩展为三行三列后的区域，如图 3所示。下载 (14.59 KB)201
9、0-5-20 16:00图 3 使用Resize属性调整区域大小6、使用Union方法使用Union方法可以将多个非连续区域连接起来成为一个区域，从而可以实现对多个非连续区域一起进行操作，如下面的代码所示。 1. Sub UnSelect()2. Union(Sheet5.Range(A1:D4), Sheet5.Range(E5:H8).Select3. End Sub复制代码代码解析：UnSelect过程选择单元格A1:D4和E5:H8所组成的区域。Union方法返回两个或多个区域的合并区域，语法如下： 1. expression.Union(Arg1, Arg2, .)复制代码其中参数e
10、xpression是可选的，返回一个Application对象。参数Arg1, Arg2, .是必需的，至少指定两个Range对象。运行UnSelect过程，选中单元格A1:D4和E5:H8所组成的区域，如图 4所示。下载 (32.92 KB)2010-5-20 16:00图 4 使用Union方法将多个非连续区域连接成一个区域7、使用UsedRange属性使用UsedRange属性返回指定工作表上已使用单元格组成的区域，如下面的代码所示。 1. Sub UseSelect()2. Sheet6.UsedRange.Select3. End Sub复制代码代码解析：UseSelect过程使用U
11、sedRange属性选择工作表上已使用单元格组成的区域，包括空单元格。如工作表中已使用A1单元格和D8单元格，运行UseSelect过程将选择A1到D8单元格区域，如图 5所示。下载 (5.64 KB)2010-5-20 16:00图 5 使用UsedRange属性选择已使用区域8 使用CurrentRegion属性使用CurrentRegion属性返回指定工作表上当前的区域，如下面的代码所示。 1. Sub CurrentSelect()2. Sheet7.Range(A5).CurrentRegion.Select3. End Sub复制代码代码解析：CurrentSelect过程使用Cu
12、rrentRegion属性选择工作表上A5单元格当前的区域，当前区域是一个边缘是任意空行和空列组合成的范围。运行CurrentSelect过程将选择A5到B6单元格区域，如图 6所示。下载 (4.05 KB)2010-5-20 16:00图 6 CurrentRegion属性选择当前的区域选定单元格区域的方法1、使用Select方法在VBA中一般使用Select方法选定单元格或单元格区域，如下面的代码所示。 1. Sub RngSelect()2. Sheet3.Activate3. Sheet3.Range(A1：B10).Select4. End Sub复制代码代码解析：RngSelect
13、过程使用Select方法选定Sheet3中的A1：B10单元格区域，Select方法应用于Range对象时语法如下： 1. expression.Select(Replace)复制代码参数expression是必需的，一个有效的对象。参数Replace是可选的，要替换的对象。使用Select方法选定单元格时，单元格所在的工作表必需为活动工作表，所以在第2行代码中先使用Activate方法使Sheet3成为活动工作表，否则Select方法有可能出错，显示如图1所示的错误提示。下载 (6.77 KB)2010-5-20 16:11图 1 Select方法无效提示2、使用Activate方法还可以使
14、用Activate方法选定单元格或单元格区域，如下面的代码所示。 1. Sub RngActivate()2. Sheet3.Activate3. Sheet3.Range(A1:B10).Activate4. End Sub复制代码代码解析：RngActivate过程使用Activate方法选定Sheet3中的A1：B10单元格区域，Activate方法应用于Range对象时语法如下： 1. expression.Activate复制代码使用Activate方法选定单元格时，单元格所在的工作表也必需为活动工作表，否则Activate方法有可能出错，显示如图 2 2所示的错误提示。下载 (6.71 KB)2010-5-20 16:11图 2 Activate方法无效提示3、使用Goto方法使用Goto方法无需使单元格所在的工作表成为活动工作表，如下面的代码所示。 1. Sub RngGoto()2. Application.Goto Reference:=Sheet3.Range(A1：B10), scroll:=True3. End Sub复制代码代码解析：RngGo
