Range (“A1:B2”). Select ‘选中“A1”、“A2”、“B1”、“B2”四个连续的单元格
Range (“12:12”). Select ‘选中第12行
Range (“B:B”). Select ‘选中B列
Range (“A1:A2,B7,2:2”). Select ‘选中“A1”、“A2”、“B7”五个不连续的单元格和第二行
Rows(“2:2”). Select ‘选中第2行
Rows(“2:5”). Select ‘选中2到5行
Columns ( "A:A" ). Select ‘选中A列
Columns ( "E:B" ). Select ‘选中E到B列
Columns ( "E:H" ). Columns ( "B:B" ) '利用列号引用第E-H列里的第2列
Rows. Select '选中所有行
Columns . Select '选中所有列
Cells. Select '选中所有单元
Union ( Range (Cells(1, 1), Range (Cells(3, 1))) '范围联合
cells(1,1) ‘单元格A1
EntireRow. Insert '整行插入
Range .CurrentRegion '返回活动单元格所在的周围由空行和空列组成的单元格区域(即通常所说的当前区域)，该区域为活动单元格附近不为空的单元格范围，该范围截止区域为空行、空列。
[A1] .CurrentRegion ‘A1单元格所在当前区域
Range .UsedRange '当前工作表已经使用的单元格组成的矩形区域，已使用区域
ActiveCell.CurrentRegion. Select '当前区域选择
Set tbl = ActiveCell.CurrentRegion '设定当前区域
'************************************************************************************************'
Range ( "A1" ).CurrentRegion.ListHeaderRows '返回指定(或活动)单元格所在区域中标题行的行数
Range ( "A1" ).CurrentRegion. Columns . Count '返回指定(或活动)单元格所在区域的列数
Range ( "A1" ).CurrentRegion.Cells. Count '返回指定(或活动)单元格所在区域的单元格数
Range ( "A1" ).CurrentRegion.Rows. Count '返回指定(或活动)单元格所在区域的行数
Columns ( "G:G" ).EntireColumn. AutoFit 'G列自动筛选
rng. Resize (rng.Rows. Count - rng.ListHeaderRows, rng. Columns . Count ).Offset(1, 0). Select
'选取当前区域中除标题行以外的区域'
Sheets( "sheet1" ). Range ( "A1" ).CurrentRegion. Copy Sheets( "sheet2" ). Range ( "A1" )
'复制当前区域的数据到另一位置'
***************************************************
'格式化当前区域中的数据'
With ActiveCell.CurrentRegion
. Font .Bold = True
. Font .ColorIndex = 3 With
*****************************************************
Range ( "A1" ).CurrentRegion.AutoFormat ‘A1所在区域自动套用默认的格式
***********************************************************************
'将按照第3列的数据从大到小进行排列，有标题行'
Set rng = Worksheets( "sheet1" ).Cells(1, 1).CurrentRegion
rng. Sort Key1:=rng.Cells(1, 3), Order1:=xlDescending, Header :=xlYes
*********************************************************************************
'A1单元格所在的当前区域数值化处理'
Range ( "A1" ).CurrentRegion. Value = Range ( "A1" ).CurrentRegion. Value
********************************************************************************
ActiveSheet.UsedRange.Rows. Count '激活表的行数
ActiveSheet.UsedRange. Columns . Count '激活表的列数
ActiveSheet.UsedRange.EntireRow '获取激活表当前行
ActiveSheet.UsedRange.EntireColumn '获取激活表当前列
**************************************************************************************************
Range ( "B5" ). Delete Shift :=xlUp '删除单元格
Range ( "A1" ). Select 选择单元格
Range ( "A1" ).Cells 选择其中的单元格
Range ( "A1" ).Rows 选择其中的行
Range ( "A1" ).Cells 选择其中的列
Range ( "A1" ).Offset 偏移所选区域 Range ( "A1" ).Offset(2,3). Value = 5
Range ( "A1" ). Resize 扩大或缩小所选区域 Range ( "B2" ). Resize (5,4). Select
Range ( "A1" ). End 当前区域结尾处的单元格 Range ( "C5" ). End (xlUp). Select
Range ( "A1" ). Activate 激活单元格
Range ( "A1" ). Clear 清除所有
Range ( "A1" ).ClearComents 清除批注
Range ( "A1" ).ClearContents 清除内容
Range ( "A1" ).ClearFormats 清除格式
Range ( "A1" ). Copy 复制单元格
Range ( "A1" ).PasteSpecial 黏贴单元格
Range ( "A1" ).Cut 剪切单元格
Range ( "A1" ). Value 单元格的值 Range ( "A1:A10" ). Value = 200
Range ( "A1" ).CurrentRegion 当前区域，以空行空列为边界 Range ( "B5" ).CurrentRegion. Select
Range ( "A1" ). Count 单元格数量 Range ( "B4:F10" ). Count
Range ( "A1" ).Rows. Count 行数量 ActiveSheet.UsedRange.Rows. Count
Range ( "A1" ). Columns . Count 列数量 ActiveSheet.UsedRange. Columns . Count
Range ( "A1" ).Address 地址
Range ( "A1" ).EntireRow 获取当前行
Range ( "A1" ).EntireColumn 获取当前列 Range ( "A10" ).EntireColumn
Range ( "C5" ). End (xlUp). Select '等效于ctrl+上方向键
Range ( "C5" ). End (xlDown). Select '等效于ctrl+下方向键
Range ( "C5" ). End (xlToLeft). Select '等效于ctrl+左方向键
Range ( "C5" ). End (xlToRight). Select '等效于ctrl+右方向键
Range ( "A1" ).Offset(2,3). Value = 500 '下移动2行，右移动3列
Range ( "C5:D6" ).Offset(-3,0). Select '上移动3行
Range ( "B2" ). Resize (5,4). Select '以B2位原点，5行4列
Application . Union ( Range ( "A1:A10" ), Range ( "D1:D5" )). Select 'Application对象Union方法，整合几个区域
'***************************************************************'
ActiveSheet.Rows( "3:3" ). Select '按行引用Rows
ActiveSheet.Rows( "3:5" ). Select
ActiveSheet.Rows(3). Select
ActiveSheet.Rows. Select
Rows( "3:10" ).Rows( "1:1" ). Select
ActiveCell.EntireRow. Select '激活单元格所在行的整行选择
ActiveCell.EntireRow.Offset(1, 0).Cells(1). Value = 2 ‘将值2输入到激活单元格的行下面的第一个单元格中。
Cells.ClearContents '清空整张表内容，但格式不删除
Cells. Clear '清空整张表内容，格式也删除
ActiveCell.EntireRow. Value = "NZ" '激活单元格所在行整行输入NZ值。
ActiveCell.EntireColumn. Value = "VBA" '激活单元格所在列整列输入VBA值。
ActiveCell.EntireRow.Offset(1, 0).Cells(1). Value = "欢迎" '在活动单元格的行下面的行中第一个单元格中输入 "欢迎" 。
********************************************************************
ActiveSheet. Columns ( "F:G" ). Select '按列引用Columns
ActiveSheet. Columns ( "B:B" ). Select
ActiveSheet. Columns (3). Select
ActiveSheet. Columns . Select
Columns ( "B:G" ). Columns ( "B:B" ). Select
ActiveCell.EntireColumn. Select '激活单元格所在列的整列选择
ActiveCell.EntireColumn.Cells(1). Value = 2 '将值2输入到激活单元格的列的第一个单元格中。
'*************************************************************'
[B2] '快捷方式 [] 引用单元格
[A1:D10] ' [] 是Application对象的Evaluate方法的简写，但是不能在括号上使用变量。
[A1:D10,C1:D10,E1:D10]
[B1:B10 A5:d5]
[n] '名称n代表的单元格
****************************************************************
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 '不带参数选中活动工作表中的单元格
'*****************************************************************************'
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 '两个参数表示两个区域围成的矩形
**********************************************************************************
Range ( "A1" ). Select '复制Copy&PasteSpecial
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
*************************************************************************
Range ( "A1:E5" ).Cut Destination:= Range ( "G1" )
Range ( "A6:E10" ).Cut Range ( "G6" ) '剪切单元格Cut
*****************************************************************************
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