【转载】EXCEL VBA 关于范围选择代码集

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

End
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