VBA操作Excel中常用对象Range的方法笔记，所有内容均来源于别怕，Excel VBA其实很简单。
Range操作
属性汇总
| 属性名称 | 属性内容 | 例子 |
|---|---|---|
| Value | 单元格的值 | Range("A1:A10").Value = 200 |
| CurrentRegion | 当前区域，以空行空列为边界 | Range("B5").CurrentRegion.Select |
| Count | 单元格数量 | Range("B4:F10").Count |
| Rows.Count | 行数量 | ActiveSheet.UsedRange.Rows.Count |
| Columns.Count | 列数量 | ActiveSheet.UsedRange.Columns.Count |
| Address | 地址 | |
| EntireRow | 获取当前行 | |
| EntireColumn | 获取当前列 | Range("A10").EntireColumn |
方法汇总
| 方法名称 | 方法内容 | 例子 |
|---|---|---|
| Select | 选择单元格 | |
| Cells | 选择其中的单元格 | |
| Rows | 选择其中的行 | |
| Cells | 选择其中的列 | |
| Offset | 偏移所选区域 | Range("A1").Offset(2,3).Value = 5 |
| Resize | 扩大或缩小所选区域 | Range("B2").Resize(5,4).Select |
| End | 当前区域结尾处的单元格 | Range("C5").End(xlUp).Select |
| Activate | 激活单元格 | |
| Select | 选中单元格 | |
| Clear | 清除所有 | |
| ClearComents | 清除批注 | |
| ClearContents | 清除内容 | |
| ClearFormats | 清除格式 | |
| Copy | 复制单元格 | |
| PasteSpecial | 黏贴单元格 | |
| Cut | 剪切单元格 | |
| Delete | 删除单元格 | Range("B5").Delete Shift:=xlUp |
引用单元格
常规方式
Worksheets("Sheet").Range("A1").Value = 50 '设置A1单元格的值为50
Range("A1:A10").Value = 200 '设置A1:A10单元格的值为200
Range("date").value = 100 '设置名称为date的单元格的值为100（先定义名称）
Range("A1:A10,A4,E6,C3:D9").Select '引用多个不连续的区域，各区域间用逗号分隔
Range("B1:B10 A4:D6").Select '选中多个单元格区域的交集，用空格分隔
Range("B6:B10","D2:D8").Select '两个参数表示两个区域围成的矩形
单元格引用Cells
Cells是Range对象的方法，返回指定行与列相交的单元格，但Cells属性只能引用单个单元格。
单元格按照从左往右，从上往下的顺序编号。
ActiveSheet.Cells(3,4).Value = 20 '3行4列
ActiveSheet.Cells(3,"D").Value = 20 '3行D列
Range("B3:F9").Cells(2,3).Value = 100 'D4单元格
Range(Cells(1,1),Cells(10,5)).Select 'Cells属性作为Range方法的参数
Range(Range("A1"),Range("E10")).Select '与上句等效
ActiveSheet.Cells(2).Value = 200 'B1单元格
ActiveSheet.Cells.Select '不带参数选中活动工作表中的单元格
快捷方式[]引用单元格
[]是Application对象的Evaluate方法的简写，但是不能在括号上使用变量。
[B2]
[A1:D10]
[A1:D10,C1:D10,E1:D10]
[B1:B10 A5:d5]
[n] '名称n代表的单元格
按行引用Rows
ActiveSheet.Rows("3:3").Select
ActiveSheet.Rows("3:5").Select
ActiveSheet.Rows(3).Select
ActiveSheet.Rows.Select
Rows("3:10").Rows("1:1").Select
按列引用Columns
ActiveSheet.Columns("F:G").Select
ActiveSheet.Columns("B:B").Select
ActiveSheet.Columns(3).Select
ActiveSheet.Columns.Select
Columns("B:G").Columns("B:B").Select
Application对象的Union方法
Application.Union(Range("A1:A10"),Range("D1:D5")).Select
当前所选单元格Selection
Selection.Address
变换单元格
平移Offset
Range("A1").Offset(2,3).Value = 500 '下移动2行，右移动3列
Range("C5:D6").Offset(-3,0).Select '上移动3行
扩大或缩小区域Resize
Range("B2").Resize(5,4).Select '以B2位原点，5行4列
移动到边界End
Range("C5").End(xlUp).Select '等效于ctrl+上方向键
Range("C5").End(xlDown).Select '等效于ctrl+下方向键
Range("C5").End(xlToLeft).Select '等效于ctrl+左方向键
Range("C5").End(xlToRight).Select '等效于ctrl+右方向键
操作单元格
选中单元格Activate/Select
选中单元格前，单元格所在的工作表必须为活动工作表。
选中单元格区域后，再使用Activate方法激活该区域里的一个单元格，该区域依然呈选中状态，只改变活动单元格为激活单元格。如果使用Select方法来选中区域里的一个单元格，则只有Select方法选中的单元格呈选中状态。
清除单元格Clear
Range("A1").Clear '清除全部
Range("A1").ClearComments '清除全部
Range("A1").ClearContents '清除全部
Range("A1").ClearFormats '清除全部
复制Copy&PasteSpecial
Range("A1").Select
Selection.Copy
Range("C1").Select
ActiveSheet.Paste
Range("A1").Copy Range("C1") '复制A1单元格到C1
Range("A1").Copy Destination:=Range("C1") '与上句等效
Range("A1").CurrentRegion.Copy Range("G1")
Range("A1:D10").Copy
Range("F1:F10").PasteSpecial Paste:=xlPasteValues '仅复制数值
Range("F1:I10").Value = Range("A1:D10").Value
剪切单元格Cut
Range("A1:E5").Cut Destination:=Range("G1")
Range("A6:E10").Cut Range("G6")
删除单元格Delete
Range("B5").Delete Shift:=xlToLeft
Range("B5").Delete Shift:=xlUp '默认删除格式，下方单元格上移
Range("B5").EntireRow.Delete
Range("B5").EntireColumn.Delete
常用示例
获取最后一行非空单元格
ActiveSheet.Range("A65536").End(xlUp).Offset(1,0).Value = 1
Dim xrow As Long
xrow = ActiveSheet.UsedRange.Rows.Count + 1
Cells(xrow,"A").Value = 1
Dim xrow As Long
xrow = Range("A1").CurrentRegion.Rows.Count + 1
Cells(xrow,"A").Value = 1
网友评论