VBA操作Excel中常用对象Range的方法笔记，所有内容均来源于别怕，Excel VBA其实很简单。

Range操作

属性汇总

方法汇总

引用单元格

常规方式

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