range 对象 应用(上)
.net技术 2010-09-16 12:01:53 阅读47 评论0 字号:大中小 订阅
[应用1]引用当前工作表中的单个单元格(例如引用单元格C3)
可以使用下面列举的任一方式引用当前工作表中的单元格(C3):
(1)Range(”C3″)
(2)[C3]
(3)Cells(3, 3)
(4)Cells(3, “C”)
(5)Range(”C4″).Offset(-1)
Range(”D3″).Offset(, -1)
Range(”A1″).Offset(2, 2)
(6)若C3为当前单元格,则可使用:ActiveCell
(7)若将C3单元格命名为“Range1”,则可使用:Range(”Range1″)或[Range1]
(8)Cells(4, 3).Offset(-1)
(9)Range(”A1″).Range(”C3″)
此外,可以使用下面的代码选择当前工作表中的单元格D5:
ActiveSheet.Cells(5, 4).Select
或:ActiveSheet.Range(”D5″).Select
[应用2]引用当前工作表中的B2:D6单元格区域
可以使用下面列举的任一方式引用当前工作表中的单元格区域B2:D6:
(1)Range(“B2:D6”)
(2)Range(”B2″, “D6″)
(3)[B2:D6]
(4)Range(Range(”B2″), Range(”D6″))
(5)Range(Cells(2, 2), Cells(6, 4))
(6)若将B2:D6区域命名为“MyRange”,则又可以使用下面的语句引用该区域:
① Range(”MyRange”)
② [MyRange]
(7)Range(”B2″).Resize(5, 3)
(8)Range(”A1:C5″).Offset(1, 1)
(9)若单元格B2为当前单元格,则可使用语句:Range(ActiveCell, ActiveCell.Offset(4, 2))
(10)若单元格D6为当前单元格,则可使用语句:Range(”B2″, ActiveCell)
下面的过程将单元格区域 A1:D5 的字体设置为加粗。
Sub FormatRange() Workbooks("Book1").Sheets("Sheet1").Range("A1:D5") _ .Font.Bold = True End Sub
下面是给单元格赋值的几个例子。
示例1:
Sub test1() Worksheets("Sheet1").Range("A5").Value = 22 MsgBox "工作表Sheet1内单元格A5中的值为" _ & Worksheets("Sheet1").Range("A5").Value End Sub
Sub test2() Worksheets("Sheet1").Range("A1").Value = _ Worksheets("Sheet1").Range("A5").Value MsgBox "现在A1单元格中的值也为" & _ Worksheets("Sheet1").Range("A5").Value End Sub
Sub test3() MsgBox "用公式填充单元格,本例为随机数公式" Range("A1:H8").Formula = "=Rand()" End Sub
Sub test4() Worksheets(1).Cells(1, 1).Value = 24 MsgBox "现在单元格A1的值为24" End Sub
Sub test5() MsgBox "给单元格设置公式,求B2至B5单元格区域之和" ActiveSheet.Cells(2, 1).Formula = "=Sum(B1:B5)" End Sub
Sub test6() MsgBox "设置单元格C5中的公式." Worksheets(1).Range("C5:C10").Cells(1, 1).Formula = "=Rand()" End Sub
Sub test7() MsgBox "给命名区域赋值." ActiveSheet.Range("MyCell").Value = 1 End Sub
[应用3]引用当前工作表中不确定的单元格区域
有时,我们需要在代码中依次获取工作表中特定区域内的单元格,这通常可以采取下面的几种方式:
(1)Range(”A” & i)
(2)Range(”A” & i & “:C” & i)
(3)Cells(i,1)
(4)Cells(i,j)
其中,i、j为变量,在循环语句中指定i和j的范围后,依次获取相应单元格。
在下例中,Cells(6,1)返回Sheet1上的单元格A6,然后将Value属性设置为 10。
Sub EnterValue() Worksheets("Sheet1").Cells(6, 1).Value = 10 End Sub
Sub CycleThrough() Dim Counter As Integer For Counter = 1 To 20 Worksheets("Sheet1").Cells(Counter, 3).Value = Counter Next Counter End Sub
[应用4]扩展引用当前工作表中的单元格区域
可以使用Resize属性,例如:
(1)ActiveCell.Resize(4, 4),表示自当前单元格开始创建一个4行4列的区域。
(2)Range(”B2″).Resize(2, 2),表示创建B2:C3单元格区域。
(3)Range(”B2″).Resize(2),表示创建B2:B3单元格区域。
(4)Range(”B2″).Resize(, 2),表示创建B2:C2单元格区域。
如果是在一个单元格区域(如B3:E6),或者一个命名区域中(如将单元格区域B3:E6命名为“MyRange”)使用Resize属性,则只是相对於单元格区域左上角单元格扩展区域,例如:
代码Range(”C3:E6″).Resize(, 2),表示单元格区域C3:D6,并且扩展的单元格区域可以不在原单元格区域内。
因此,可以知道Resize属性是相对于当前活动单元格或某单元格区域中左上角单元格按指定的行数或列数扩展单元格区域。
再举一些例子。
例1:要选择当前工作表中名为“Database”区域,然后将该区域向下扩展5行,可以使用下面的代码:
Range("Database").Select Selection.Resize(Selection.Rows.Count + 5, Selection.Columns.Count).Select
Range("Database").Select Selection.Offset(4, 3).Resize(Selection.Rows.Count + 2, Selection.Columns.Count + 1).Select
可以使用Offset属性,例如:
(1)Range(”A1″).Offset(2, 2),表示单元格C3。
(2)ActiveCell.Offset(, 1),表示当前单元格下一列的单元格。
(3)ActiveCell.Offset(1),表示当前单元格下一行的单元格。
(4)Range(”C3:D5″).Offset(, 1),表示单元格区域D3:E5,即将整个区域偏移一列。
从上面的代码示例可知,Offset属性从所指定的单元格开始按指定的行数和列数偏移,从而到达目的单元格,但偏移的行数和列数不包括指定单元格本身。正值表示向下和向右,负值表示向上和向左,零值则是指当前单元格。
例如,要选择距当前单元格下面5行左侧4列的单元格,可以使用下面的代码:
ActiveCell.Offset(5, -4).Select
ActiveCell.Offset(-2, 3).Select
又如,要选择距单元格C7下方5行右侧4列的单元格,可以使用下面的代码:
ActiveSheet.Cells(7, 3).Offset(5, 4).Select
ActiveSheet.Range("C7").Offset(5, 4).Select
例如,要选择与名为“Test”的区域大小相同但在该区域下方4行右侧3列的一个区域,可以使用下面的代码:
ActiveSheet.Range("Test").Offset(4, 3).Select
Sheets("Sheet3").Activate ActiveSheet.Range("Test").Offset(4, 3).Select
Sub MovingAvg() Dim rng As Range Dim lngRow As Long Set rng = Range("B1:B3") For lngRow = 3 To 12 Cells(lngRow, "C").Value = WorksheetFunction.Sum(rng) / 3 Set rng = rng.Offset(1, 0) Next lngRow End Sub
[应用6]在当前工作表中引用交叉区域
可以使用Intersect方法,例如:
Intersect(Range("C3:E6"), Range("D5:F8"))
又如,要选择名为“Test”和“Sample”的两个区域的交叉区域,可以使用下面的代码:
Application.Intersect(Range("Test"), Range("Sample")).Select
注意,如果两个区域不存在交叉,那么该方法返回Nothing。
例如,下面的代码选择两个命名区域的交叉部分,如果不存在交叉,则显示一条消息。
Sub IntersectSample() Worksheets("Sheet1").Activate Set Intersect = Application.Intersect(Range("rng1"), Range("rng2")) If Intersect Is Nothing Then MsgBox "不存在交叉区域." Else Intersect.Select End If End Sub
(1)可以使用Union方法,将多个区域组合到一个Range对象中。例如:
Union(Range("C3:D4"), Range("E5:F6"))
Union方法可以将多个非连续区域连接起来成为一个区域,从而可以实现对多个非连续区域一起进行操作。
(2)也可以使用下面的代码,即通过在两个或多个引用之间插入逗号,可使用Range属性引用多个区域:
Range("C3:D4, E5:F6")
[C3:D4, E5:F6]
同时,在引用区域后使用Rows属性和Columns属性时,注意下面代码的区别:
①Range(”C3:D4″, “F8:G10″).Rows.Count,返回的值为8;
②Range(”C3:D4,F8:G10″).Rows.Count,返回的值为2,即只计算第一个单元格区域。
(3)可用Areas属性引用选定的单元格区域或多块选定区域中的区域集合。
例1:以下示例清除了 Sheet1 上三个区域的内容。
Sub ClearRanges() Worksheets("Sheet1").Range("C5:D9,G9:H16,B14:D18"). _ ClearContents End Sub
Sub ClearNamed() Range("MyRange, YourRange, HisRange").ClearContents End Sub
Application.Union(Range("Test"), Range("Sample")).Select
Set y = Application.Union(Range("Sheet1!A1:B2"), Range("Sheet1!C3:D4"))
Set y = Application.Union(Range("Sheet1!A1:B2"), Range("Sheet2!C3:D4"))
例3:以下示例创建了名为 myMultipleRange 的 Range 对象,并将其定义为区域 A1:B2 和 C3:D4 的组合,然后将该组合区域的字体设置为加粗。
Sub MultipleRange() Dim r1, r2, myMultipleRange As Range Set r1 = Sheets("Sheet1").Range("A1:B2") Set r2 = Sheets("Sheet1").Range("C3:D4") Set myMultipleRange = Union(r1, r2) myMultipleRange.Font.Bold = True End Sub
Sub FindMultiple() If Selection.Areas.Count > 1 Then MsgBox "不能对多个选区进行操作." End If End Sub
可以使用CurrentRegion属性,例如:
(1)ActiveCell.CurrentRegion,表示活动单元格所在的当前区域。
(2)Range(”D5″).CurrentRegion,表示单元格D5所在的当前区域。
当前区域是指周围由空行或空列所围成的区域。
下面的示例将当前工作表当前区域的值复制到剪贴板,然后将这些值插入到新工作表:
Sub CopyCurrentRegionValue() Range("D5").Activate ActiveCell.CurrentRegion.Select Selection.Copy Sheets.Add After:=Sheets(Sheets.Count) Sheets(Sheets.Count).Name = "Sample" Sheets("Sample").Select Range("D5").Activate ActiveSheet.Paste End Sub
可以使用UsedRange属性,例如:
(1)Activesheet.UsedRange,表示当前工作表中已使用的区域。
(2)Worksheets(”sheet1″).UsedRange,表示工作表sheet1中已使用的区域。
与CurrentRegion属性不同的是,该属性代表工作表中已使用的单元格区域,包括显示为空行,但已进行过格式的单元格区域。
'选取当前工作表中已使用的单元格区域 Sub SelectUsedRange() MsgBox "选取当前工作表中已使用的单元格区域" _ & vbCrLf & "并显示其地址" ActiveSheet.UsedRange.Select MsgBox ActiveSheet.UsedRange.Address End Sub
可以使用Item属性,例如:
(1)Range(”A1:B10″).Item(5,3)指定单元格C5,这个单元格处于以区域中左上角单元格A1(即区域中第1行第1列的单元格)为起点的第5行第3列。因为Item属性为默认属性,因此也可以简写为:Range(”A1:B10″)(5,3)。
如果将A1:B10区域命名为”MyRange”,那么Range(”MyRange”)(5,3)也指定单元格C5。
(2)Range(”A1:B10″)(12,13)指定单元格M12,即用这种方式引用单元格,该单元格不必一定要包含在区域内。
同时,也不需要索引数值是正值,例如:
① Range(”D4:F6″)(0,0)代表单元格C3;
② Range(”D4:F6″)(-1,-2)代表单元格A2。
而Range(”D4:F6″)(1,1)代表单元格D4。
(3)也可以在单元格区域中循环,例如:
Range(”D4:F6″)(2,2)(3,4)代表单元格H7,即该单元格位于作为左上角单元格E5的第3行第4列(因为E5是开始于区域中左上角单元格D4起的第2行第2列)。
(4)也能使用一个单个的索引数值进行引用。计数方式为从左向右,即在区域中的第一行开始从左向右计数,第一行结束后,然后从第二行开始从左到右接着计数,依次类推。(注:从区域中第一行第一个单元格开始计数,当第一行结束时,转入第二行最左边的单元格,这样按一行一行从左向右依次计数。以单元格区域中第1个单元格开始,按上述规则依次为第2个单元格、第3个单元格….等等),例如:
Range(”A1:B2″)(1) 代表单元格A1;
Range(”A1:B2″)(2) 代表单元格B1;
Range(”A1:B2″)(3) 代表单元格A2;
Range(”A1:B2″)(4) 代表单元格B2。
这种方法可在工作表中连续向下引用单元格(即不一定是在单元格区域内,但在遵循相同的规律),例如:
Range(”A1:B2″)(5)代表单元格A3;
Range(”A1:B2″)(14)代表单元格B7,等等。
也可以使用单个的负数索引值。
这种使用单个索引值的方法对遍历列是有用的,例如,Range(”D4″)(1)代表单元格D4,Range(”D4″)(2)代表单元格D5,Range (”D4″)(11)代表单元格D14,等等。
同理,稍作调整后也可遍历行,例如:
Range(”D4″).Columns(2)代表单元格E4,Range(”D4″).Columns(5)指定单元格H4,等等。
(5)当与对象变量配合使用时,Item属性能提供简洁并有效的代码,例如:
Set rng = Worksheets(1).[A1]
[应用11]引用当前工作表中的整行或整列
见下面的示例代码:
(1)Range(”C:C”).Select,表示选择C列。
Range(”C:E”).Select,表示选择C列至E列。
(2)Range(”1:1″).Select,表示选择第一行。
Range(”1:3″).Select,表示选择第1行至第3行。
(3)Range(”C:C”).EntireColumn,表示C列;
Range(”D1″).EntireColumn,表示D列。
同样的方式,也可以选择整行,然后可以使用如AutoFit方法对整列或整行进行调整。
此外,可用Rows属性或Columns属性来处理整行或整列。这两个属性返回代表单元格区域的Range对象。在下例中,Rows(1)返回Sheet1上的第一行,然后将区域字体加粗。
Sub RowBold() Worksheets("Sheet1").Rows(1).Font.Bold = True End Sub
若要同时处理若干行或列,可创建一个对象变量并使用Union方法,将对Rows属性或Columns属性的多个调用组合起来。下例将活动工作簿中第一张工作表上的第一行、第三行和第五行的字体设置为加粗。
Sub SeveralRows() Worksheets("Sheet1").Activate Dim myUnion As Range Set myUnion = Union(Rows(1), Rows(3), Rows(5)) myUnion.Font.Bold = True End Sub
可以使用下面的代码:
(1)Cells,表示当前工作表中的所有单元格。
(2)Range(Cells(1, 1), Cells(Cells.Rows.Count, Cells. Columns.Count)),其中Cells.Rows表示工作表所有行,Cells. Columns表示工作表所有列。
下面的过程清除活动工作簿中Sheet1上所有单元格的内容。
Sub ClearSheet() Worksheets("Sheet1").Cells.ClearContents End Sub
在工作表中,您可能使用过“定位条件”对话框。可以通过选择菜单“编辑——定位”,单击“定位”对话框中的“定位条件”按钮显示该对话框。这个对话框可以允许用户选择特定的单元格。例如:
(1)Worksheets(”sheet1″).Cells.SpecialCells(xlCellTypeAllFormatConditions),表示工作表sheet1中由带有条件格式的单元格所组成的区域。
(2)ActiveCell.CurrentRegion.SpecialCells(xlCellTypeBlanks),表示当前工作表中活动单元格所在区域中所有空白单元格所组成的区域。
(3)选择所有公式单元格
Sub SelectSpecialCells() MsgBox "选择当前工作表中所有公式单元格" ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas).Select End Sub
[应用14]引用命名区域
使用名称比使用A1样式记号更容易标识单元格区域。若要命名选定的单元格区域,请单击编辑栏左端的名称框,键入名称,再按回车键。
例1:要选择当前工作表中名为“Test”的区域,可以使用下面的代码:
Range("Test").Select
Application.Goto "Test"
Application.Goto Sheets("Sheet1").Range("Test")
Sheets("Sheet1").Activate Range("Test").Select
Application.Goto Workbooks("BOOK2.XLS").Sheets("Sheet2").Range("Test")
Workbooks("BOOK2.XLS").Sheets("Sheet2").Activate Range("Test").Select
Sub FormatRange() Range("MyBook.xls!MyRange").Font.Italic = True End Sub
Sub FormatSales() Range("[Report.xls]Sheet1!Sales").BorderAround Weight:=xlThin End Sub
Sub ClearRange() Application.Goto Reference:="MyBook.xls!MyRange" Selection.ClearContents End Sub
Sub ClearRange() Application.Goto Reference:="MyRange" Selection.ClearContents End Sub
Sub ApplyColor() Const Limit As Integer = 25 For Each c In Range("MyRange") If c.Value > Limit Then c.Interior.ColorIndex = 27 End If Next c End Sub
ActiveSheet.Range("A1").End(xlDown).Select
'选取最下方的单元格 Sub SelectEndCell() MsgBox "选取当前单元格区域内最下方的单元格" ActiveCell.End(xlDown).Select End Sub
例2:选择连续数据列底部的空单元格
要选择连续单元格区域下面的空单元格,可以使用下面的代码:
ActiveSheet.Range("A1").End(xlDown).Offset(1, 0).Select
例3:选择某列中连续数据单元格区域
要选择列A中连续数据单元格区域,可以使用下面的代码:
ActiveSheet.Range("A1", ActiveSheet.Range("A1").End(xlDown)).Select
ActiveSheet.Range("A1:" & ActiveSheet.Range("A1").End(xlDown).Address).Select
例4:选择某列中非连续数据单元格区域
要选择某列中非连续数据单元格区域,可以使用下面的代码:
ActiveSheet.Range("A1", ActiveSheet.Range("A65536").End(xlUp)).Select
ActiveSheet.Range("A1:" & ActiveSheet.Range("A1").End(xlDown).Address).Select
例5:选择一个矩形(规则的)单元格区域
要选择围绕某单元格的一个矩形区域,可以使用CurrentRegion属性。CurrentRegion属性将选择四周被空行和空列围绕的区域,如下面的代码:
ActiveSheet.Range("A1").CurrentRegion.Select
ActiveSheet.Range("A1", ActiveSheet.Range("A1").End(xlDown).End(xlToRight)).Select
ActiveSheet.Range("A1:" & ActiveSheet.Range("A1").End(xlDown).End(xlToRight).Address).Select
lastCol = ActiveSheet.Range("A1").End(xlToRight).Column lastRow = ActiveSheet.Cells(65536, lastCol).End(xlUp).Row ActiveSheet.Range("A1", ActiveSheet.Cells(lastRow, lastCol)).Select
lastCol = ActiveSheet.Range("A1").End(xlToRight).Column lastRow = ActiveSheet.Cells(65536, lastCol).End(xlUp).Row ActiveSheet.Range("A1:" & ActiveSheet.Cells(lastRow, lastCol).Address).Select
StartRange = "A1" EndRange = "C1" Set a = Range(StartRange, Range(StartRange).End(xlDown)) Set b = Range(EndRange, Range(EndRange).End(xlDown)) Union(a, b).Select
Sub SetCellValue() MsgBox "将当前单元格中前面的单元格值设为""我前面的单元格""" & vbCrLf _ & "后面的单元格值设为""我后面的单元格""" ActiveCell.Previous.Value = "我前面的单元格" ActiveCell.Next.Value = "我后面的单元格" End Sub
要引用其它工作表或其它工作簿中的单元格区域,只需在单元格对象前加上相应的引用对象即可,例如:
(1)Worksheets(”Sheet3″).Range(”C3:D5″),表示引用工作表sheet3中的单元格区域C3:D5。
(2)Workbooks(”MyBook.xls”).Worksheets(”sheet1″).Range(”B2″),表示引用MyBook工作簿中工作表Sheet1上的单元格B2。
此外,要选择同一工作簿中另一工作表上的单元格E6,可以使用下面的代码:
Application.Goto ActiveWorkbook.Sheets("Sheet2").Cells(6, 5)
Application.Goto (ActiveWorkbook.Sheets("Sheet2").Range("E6"))
Sheets("Sheet2").Activate ActiveSheet.Cells(6, 5).Select
Application.Goto Workbooks("BOOK2.XLS").Sheets("Sheet1").Cells(7, 6)
Application.Goto Workbooks("BOOK2.XLS").Sheets("Sheet1").Range("F7")
Workbooks("BOOK2.XLS").Sheets("Sheet1").Activate ActiveSheet.Cells(7, 6).Select
Application.Goto ActiveWorkbook.Sheets("Sheet3").Range("D3:E11")
Application.Goto ActiveWorkbook.Sheets("Sheet3").Range("D3", "E11")
Sheets("Sheet3").Activate ActiveSheet.Range(Cells(3, 4), Cells(11, 5)).Select
Application.Goto Workbooks("BOOK2.XLS").Sheets("Sheet1").Range("E4:F12")
Application.Goto Workbooks("BOOK2.XLS").Sheets("Sheet1").Range("E4", "F12")
Workbooks("BOOK2.XLS").Sheets("Sheet1").Activate ActiveSheet.Range(Cells(4, 5), Cells(12, 6)).Select
Application.Goto Sheets("Sheet1").Range(Sheets("Sheet1").Range(Sheets("Sheet1").Cells(2, 3), Sheets("Sheet1").Cells(4, 5)))
如果要处理若干工作表上相同位置的单元格区域,可用Array函数选定两张或多张工作表。下例设置三维单元格区域的边框格式。
Sub FormatSheets() Sheets(Array("Sheet2", "Sheet3", "Sheet5")).Select Range("A1:H1").Select Selection.Borders(xlBottom).LineStyle = xlDouble End Sub
Sub FillAll() Worksheets("Sheet2").Range("A1:H1") _ .Borders(xlBottom).LineStyle = xlDouble Worksheets.FillAcrossSheets (Worksheets("Sheet2") _ .Range("A1:H1")) End Sub
如果将对象变量设置为Range对象,即可以使用变量名轻松地操作单元格区域。
以下过程将创建对象变量myRange,然后将活动工作簿中Sheet1上的区域A1:D5赋予该变量。随后的语句用该变量名称代替Range对象,以修改该区域的属性。
Sub Random() Dim myRange As Range Set myRange = Worksheets("Sheet1").Range("A1:D5") myRange.Formula = "=RAND()" myRange.Font.Bold = True End Sub
对于Excel 2007以前的版本来说:
(1)Cells(15),表示单元格O1,即可在Cells属性中指定单元格数字来选择单元格,其计数顺序为自左至右、从上到下,又如Cells(257),表示单元格B1。
(2)Cells(, 256),表示单元格IV1,但是如果Cells(, 257),则会返回错误。
Excel 2007中增加了工作表列数和行数,因此上述限制相应改变。
说明:上面的一些代码在选择单元格或单元格区域时,先激活工作表后选择,这只是为了说明的方便。实际上,在操作单元格时,只要引用了相应的单元格或单元格区域,不必先激活工作表。
小结:我们使用VBA对Excel进行处理,一般是对其工作表中的数据进行处理,因此,引用单元格区域是ExcelVBA编程中最基本的操作之一,只有确定了所处理的单元格区域,才能使用相应的属性和方法进行下一步的操作。
上面列举了一些引用单元格区域的情形和方式,可以看出,引用单元格区域有很多方式,有一些可能不常用,可以根据工作表的所处的环境和个人编程习惯进行选择使用。
当然,在编写程序时,也可能会将上面的一些属性联合使用,以达到选取特定操作对象的目的,例如Offset属性、Resize属性、CurrentRegion属性、UsedRange属性等的组合。
下面对Range对象的一些常用属性和方法进行简单的小结。
1、Activate与Select
试验下面的过程:
Sub SelectAndActivate() Range("B3:E10").Select Range("C5").Activate End Sub
图3:Select与Activate
即选取单元格区域B3:E10并将单元格C5选中。
Selection指单元格区域B3:E10,而ActiveCell则是单元格C5;ActiveCell代表单个的单元格,而Selection则可以代表单个单元格,也可以代表单元格区域。
2、Range属性
可以使用Application对象的Range属性引用Range对象,如
Application.Range("B2") '代表当前工作表中的单元格B2
Range("A1:D10") '代表当前工作表中的单元格区域A1:D10 Range("A1:A10,C1:C10,E1:E10") '代表当前工作表中非连续的三个区域组成的单元格区域
Range("A1","D10") '代表单元格区域A1:D10
Range("Data") '代表名为Data的数据区域
Range("A1",Range("LastCell"))
可以在引用区域两侧加上方括号来快速引用单元格区域,如:
[B2]
[A1:D10]
[A1:A10,C1:C10,E1:E10]
[Data]
但其引用的是绝对区域。
4、Cells属性
可以使用Cells属性来引用Range对象。如:
ActiveSheet.Cells Application.Cells '引用当前工作表中的所有单元格 Cell(2,2) Cell(2,"B") '引用单元格B2 Range(Cells(1,1),Cells(10,5)) '引用单元格区域A1:E10
也可以使用Cells属性进行相对引用,如:
Range("D10:G20").Cells(2,3) '表示引用单元格区域D10:G20中第2行第3列的单元格,即单元格F11
5、Offset属性
Offset属性基于当前单元格按所给参数进行偏移,与Cells属性不同的是,它基于0即基准单元格为0,如:
Range(”A10″).Cells(1,1)和Range(”A10″).Offset(0,0)都表示单元格A10
当想引用于基准单元格区域同样大小的单元格区域时,则Offset属性是有用的。
6、Resize属性
可使用Resize属性获取相对于原单元格区域左上角单元格指定大小的区域。
7、SpecialCells方法
SpecialCells方法对应于“定位条件”对话框,如图05-02所示:
图4:“定位条件”对话框
8、CurrentRegion属性
使用CurrentRegion属性可以选取当前单元格所在区域,即周围是空行和空列所围成的矩形区域,等价于“Ctrl+Shift+*”快捷键。
9、End属性
End属性所代表的操作等价于“Ctrl+方向箭”的操作,使用常量xlUp、xlDown、xlToLeft和xlToRight分别代表上、下、左、右箭。
例如,下面的代码汇总活动单元格下方列的值:
Sub SumBelow() Dim rng As Range '汇总活动单元格下方单元格的值 With ActiveCell Set rng = Range(.Offset(1), .Offset(1).End(xlDown)) .Formula = "=SUM(" & _ rng.Address(RowAbsolute:=False, ColumnAbsolute:=False) & ")" .Copy Destination:=Range(.Cells(1), .Offset(1).End(xlToRight).Offset(-1)) End With End Sub
Columns属性和Rows属性分别返回单元格区域中的所有列和所有行。
11、Areas集合
在多个非连续的单元格区域中使用Columns属性和Rows属性时,只是返回第一个区域的行或列,如:
Range("A1:B5,C6:D10,E11:F15").Rows.Count
此时应使用Areas集合来返回区域中每个块的地址,如:
For Each rng In Range("A1:B5,C6:D10,E11:F15").Areas MsgBox rng.Address Next rng
当想从两个或多个单元格区域中生成一个单元格区域时,使用Union方法;当找到两个或多个单元格区域共同拥有的单元格区域时,使用Intersect方法。
当然,操作单元格或单元格区域有很多有用的技巧,这需要在实践中总结和归纳。接下来的文章,我们将对Range对象的常用属性和方法进行详解。
当然,在Excel中,有许多可以用来查找最后一行的方法,比如End(xlUp)属性、UsedRange属性、CurrentRegion属性、SpecialCells方法、以及Find方法等,这些方法可以在不同的情形下使用。但正如前面所讲述的,关键是要清楚Excel将“已使用范围”、“当前区域”、和一些常量如xlCellTypeLastCell在工作表中代表什么区域,以及您是在什么情形下查找最后一行,然后选用合适的方法,以确保找到正确的最后一行,否则,可能所找到的并不是您所想要的最后一行。
“最后一行”可能的情形
在查找最后一行时,可能是查找以下情形单元格所在的“最后一行”,即:
- 含有公式的单元格
- 格式化的单元格
- 含有颜色的单元格
- 包含数据有效性的单元格
- 包含批注的单元格
- 直接输入数据(文本和/或数字)的单元格
- 由公式生成数据(文本和/或数字)的单元格
- 直接输入数据(文本和/或数字)或者由公式生成数据(文本和/或数字)的单元格
- 直接输入数字的单元格
- 由公式生成数字的单元格
- 直接输入数字或由公式生成数字的单元格
- 直接输入文本的单元格
- 由公式生成文本的单元格
- 直接输入文本或由公式生成文本的单元格
- 其它情形
- 包含上述所有情形的单元格
下面,我们来讨论查找最后一行的方法以及可能出现的一些情况。
找到最后一行的一些方法探讨
使用End属性
在Excel VBA中,使用End(xlUp)查找最后一行是最常使用且最为简单的方法,它假设有一列总会包含有数据(数字、文本和公式等),并且在该列中最后输入数据的单元格的下一行不会包含数据,因此不必担心会覆盖掉已有数据。但该方法有两个缺点:
(1)仅局限于查找指定列的最后一行。
(2)如果该列中最后一行被隐藏,那么该隐藏行将被视作最后一行。因此,在最后一行被隐藏时,其数据可能会被覆盖。但该列中间的隐藏行不会影响查找的结果。
[示例代码01]
Sub EndxlUp_OneColLastRow() If Range("A" & Rows.Count).End(xlUp) = Empty Then GoTo Finish '获取最后一行 MsgBox "最后一行是第" & Range("A" & Rows.Count).End(xlUp).Row & "行." Exit Sub Finish: MsgBox "没有发现公式或数据! " End Sub
Sub NextRowInColumnUsedAsSub() '包含所有数据和公式,忽略隐藏的最后一行 Range("A" & Range("A" & Rows.Count).End(xlUp).Row + 1).Select End Sub
Sub NextRowInColumnUsedAsFunction() '包含所有数据和公式,忽略隐藏的最后一行 Range("A" & LastRowInColumn("A") + 1).Select End Sub Public Function LastRowInColumn(Column As String) As Long LastRowInColumn = Range(Column & Rows.Count).End(xlUp).Row End Function
使用Find方法
Find方法在当前工作表数据中进行查找,不需要指定列,也可以确保不会意外地覆盖掉已有数据。其中,参数LookIn指定所查找的类型,有三个常量可供选择,即xlValues、xlFormulas和xlComments。
(1) 常量xlFormulas将包含零值的单元格作为有数据的单元格。(当设置零值不显示时,该单元格看起来为空,但该参数仍将该单元格视为有数据的单元格)
(2) 常量xlValues将包含零值的单元格(如果设置零值不显示时)作为空白单元格,此时,若该单元格在最后一行,则Find方法会认为该单元格所在的行为空行,因此,该单元格中的内容可能会被新数据所覆盖。
[注:在Excel中,选择菜单“工具”——“选项”,在打开的“选项”对话框中,选择“视图”选项卡,将其中的“零值”前的复选框取消选中,则工作表中的零值都不会显示]
如果在参数LookIn中使用常量xlValues的话,还存在一个问题是:如果您将最后一行隐藏,则Find方法会认为倒数第二行是最后一行,此时您在最后一行的下一行输入数据,则会将实际的最后一行的数据覆盖。
您可以在隐藏最后一行与不隐藏最后一行,或者是最后一行显示零值与不显示零值时,运行下面的示例代码04,看看所得的结果有什么不同。
[示例代码04]
Sub Find_LastRowxlValues() On Error GoTo Finish '获取最后一行 MsgBox "最后一行是第" & Cells.Find("*", _ SearchOrder:=xlByRows, LookIn:=xlValues, _ SearchDirection:=xlPrevious).EntireRow.Row & "行" Exit Sub Finish: MsgBox "没有发现数值!" End Sub
[示例代码05]
Sub Find_LastRowxlFormulas() On Error GoTo Finish '获取最后一行 MsgBox "最后一行是第" & Cells.Find("*", _ SearchOrder:=xlByRows, LookIn:=xlFormulas, _ SearchDirection:=xlPrevious).EntireRow.Row & "行" Exit Sub Finish: MsgBox "没发现数值或公式!" End Sub
[示例代码06]
Sub NextRowUsedAsSub() '选取最后一行的下一行 Range("A" & Cells.Find("*", LookIn:=xlFormulas, SearchDirection:=xlPrevious).Row + 1).Select End Sub
Sub NextRowUsedAsFunction() '选取最后一行的下一行(调用函数) Range("A" & LastRow + 1).Select End Sub Public Function LastRow() As Long '本代码包含隐藏行 '使用常量xlFormulas,因为常量xlValues会忽略隐藏的最后一行 LastRow = Cells.Find("*", LookIn:=xlFormulas, SearchDirection:=xlPrevious).Row End Function
使用SpecialCells方法
SpecialCells方法用于查找指定类型的值,其语法为SpecialCells(Type,Value),有两种主要的使用方式:
(1)若参数Type仅考虑常量,则在查找时会忽略和覆盖由公式生成的任何数据,如示例代码08所示。
(2)若参数Type仅考虑由公式生成的数据,则在查找时会忽略和覆盖任何常量数据,如示例代码09所示。
如果参数Type是xlCellTypeConstants或者是xlCellTypeFormulas,则Value参数可使用常量决定哪种类型的单元格将被包含在结果中,这些常量值能组合而返回多个类型,其缺省设置是选择所有的常量或公式,而不管是何类型,可使用下面四个可选的常量:
1)xlTextValues(包含文本) 2)xlNumbers(包含数字)
3)xlErrors(包含错误值) 4)xlLogical(包含逻辑值)
自已在工作表输入一些含有数值和公式的数据,隐藏或不隐藏最后一行或公式所在的行,体验下面的两段示例代码。
[示例代码08]
'当最后一行为公式或隐藏了最后行时,会忽略,即认为倒数第二行为最后一行 Sub NextConstantRowFunction() Range("A" & LastConstantRow(True, True, True, True) + 1).Select End Sub Public Function LastConstantRow(Optional IncludeText As Boolean, _ Optional IncludeNumbers As Boolean, _ Optional IncludeErrors As Boolean, _ Optional IncludeLogicals As Boolean) As Long Dim Text As Long, Numbers As Long, Errors As Long Dim Logical As Long, AllTypes As Long If IncludeText Then Text = xlTextValues Else Text = 0 If IncludeNumbers Then Numbers = xlNumbers Else Numbers = 0 If IncludeErrors Then Errors = xlErrors Else Errors = 0 If IncludeLogicals Then Logical = xlLogical Else Logical = 0 AllTypes = Text + Numbers + Errors + Logical On Error GoTo Finish LastConstantRow = Split(Cells.SpecialCells(xlCellTypeConstants, AllTypes).Address, "$") _ (UBound(Split(Cells.SpecialCells(xlCellTypeConstants, AllTypes).Address, "$"))) Exit Function Finish: MsgBox "没有发现数据!" End Function
'查找含有公式的单元格所在的行,忽略该行以后的常量和隐藏的行 Sub NextFormulaRowFunction() Range("A" & LastFormulaRow(True, True, True, True) + 1).Select End Sub Public Function LastFormulaRow(Optional IncludeText As Boolean, _ Optional IncludeNumbers As Boolean, _ Optional IncludeErrors As Boolean, _ Optional IncludeLogicals As Boolean) As Long Dim Text As Long, Numbers As Long, Errors As Long Dim Logical As Long, AllTypes As Long If IncludeText Then Text = xlTextValues Else Text = 0 If IncludeNumbers Then Numbers = xlNumbers Else Numbers = 0 If IncludeErrors Then Errors = xlErrors Else Errors = 0 If IncludeLogicals Then Logical = xlLogical Else Logical = 0 AllTypes = Text + Numbers + Errors + Logical On Error GoTo Finish LastFormulaRow = Split(Cells.SpecialCells(xlCellTypeFormulas, AllTypes).Address, "$") _ (UBound(Split(Cells.SpecialCells(xlCellTypeFormulas, AllTypes).Address, "$"))) Exit Function Finish: MsgBox "没有发现数据!" End Function
[示例代码10]
Sub SpecialCells_LastRowxlCellTypeConstants() Dim MyRow As Range On Error GoTo Finish Set MyRow = Intersect([A:A], Cells. _ SpecialCells(xlCellTypeConstants).EntireRow).EntireRow '获取最后一行 MsgBox "最后一行是第" & Split(MyRow.Address, "$") _ (UBound(Split(MyRow.Address, "$"))) & "行" Set MyRow = Nothing Exit Sub Finish: MsgBox "没有发现数据!" End Sub
该方法也允许我们指定单个数据类型,诸如数字数据或文本数据,如下所示。
下面,我们查找的最后一行是仅在行中有数字(而不包含公式)的单元格的最后一行。
[示例代码11]
Sub SpecialCells_LastRowxlCellTypeNumberConstants() Dim MyRow As Range On Error GoTo Finish Set MyRow = Intersect([A:A], Cells. _ SpecialCells(xlCellTypeConstants, xlNumbers).EntireRow) '获取最后一行 MsgBox "最后一行是第" & Split(MyRow.Address, "$") _ (UBound(Split(MyRow.Address, "$"))) & "行" Set MyRow = Nothing Exit Sub Finish: MsgBox "没有发现数据!" End Sub
[示例代码12]
Sub SpecialCells_LastRowxlCellTypeTextConstants() Dim MyRow As Range On Error GoTo Finish Set MyRow = Intersect([A:A], Cells. _ SpecialCells(xlCellTypeConstants, xlTextValues).EntireRow) '获取最后一行 MsgBox "最后一行是第" & Split(MyRow.Address, "$") _ (UBound(Split(MyRow.Address, "$"))) & "行" Set MyRow = Nothing Exit Sub Finish: MsgBox "没有发现数据!" End Sub
[示例代码13]
Sub SpecialCells_LastRowxlCellTypeFormulas() Dim MyRow As Range On Error GoTo Finish Set MyRow = Intersect([A:A], Cells. _ SpecialCells(xlCellTypeFormulas).EntireRow).EntireRow '获取最后一行 MsgBox "最后一行是第" & Split(MyRow.Address, "$") _ (UBound(Split(MyRow.Address, "$"))) & "行" Set MyRow = Nothing Exit Sub Finish: MsgBox "没有发现数据!" End Sub
XlCellTypeAllFormatConditions (任何格式的单元格)
XlCellTypeAllValidation (带有数据有效性的单元格)
XlCellTypeBlanks (所使用区域中的空白单元格)
XlCellTypeComments (包含有批注的单元格)
XlCellTypeConstants (包含有常量的单元格)
XlCellTypeFormulas (包含有公式的单元格)
XlCellTypeLastCell (已使用区域中的最后一个单元格(看下面))
XlCellTypeSameFormatConditions (有相同格式的单元格)
XlCellTypeSameValidation (有相同数据有效性条件的单元格)
XlCellTypeVisible (工作表中所有可见的单元格)
使用UsedRange属性(及SpecialCells方法)
UsedRange方法可用于在工作表中已使用区域查找最后一行,该区域包括可能以前使用过的任何单元格,但现在其中的数据被删除了,比如目前的工作表中只有第1行至第5行共5行,其它行都无数据,但在第6行中有些单元格以前使用过(可能仅仅格式化或内容清除了,总之该行现在不含有数据),那么第6行也包含在该已使用的区域中。此外,如果最后一行被隐藏,那么使用该方法查找最后一行是无规律且不可靠的,它通常可能会得到预料不到的结果。
有时,与UsedRange属性相似的技术也能用SpecialCells方法实现,其常量xlCellTypeLastCell代表在“已使用区域”中的最后一个单元格,与UsedRange属性稍有不同的是,当您在最后一行中输入数据后,又将其删除,则此数据所在的单元格也包含在已使用的区域中,并且如果最后的行被隐藏,则将可见行的最后一行当作最后一行。下面有两段代码您可以在工作表中进行调试,看看其特点。
[示例代码14]
Sub NextUsedRowSub() ' 选取可见的最后一行的下一行 Range("A" & Cells.SpecialCells(xlCellTypeLastCell).Row + 1).Select End Sub
Sub NextUsedRowFunction() Range("A" & LastUsedRow + 1).Select End Sub Public Function LastUsedRow() As Long LastUsedRow = Cells.SpecialCells(xlCellTypeLastCell).Row End Function
使用CurrentRegion属性
CurrentRegion属性返回代表单元格所在的当前区域,即四周有空行的独立区域,因此,可使用此属性查找当前区域的最后一行。但是使用其查找最后一行的一个缺点是,必须首先选取当前区域,然后进行查找。
交叉参考
在《在汇总工作表中合并多个工作表中的数据》和《将多个工作簿中的数据合并到一个工作簿》中也有查找最后一个单元格、最后一行或最后一列的优秀代码示例。
小结
正如开始所讲述的一样,使用各种方法来查找最后一行都有其优缺点,并且都能找到您想要的最后一行,关键是您要了解各种方法的特性,以及工作表的状态,以便于选择所使用的方法来找到您需要的最后一行。
上述内容可能有不准确的地方,也可能有遗漏之处,您也可以在调试中体会和改进。
您可能经常在程序代码中看到CurrentRegion属性,它是一个非常有用的属性,返回活动单元格所在的周围由空行和空列组成的单元格区域(即通常所说的当前区域),如图1所示。
图1
具体地说,当前区域即活动单元格所在的矩形区域,该矩形区域的每一行和每一列中至少包含有一个数据,其周围是空行和空列,图1中列举了其中的4种情形(见蓝色阴影区域)。在当前区域范围内,不管活动单元格是哪一个单元格,其所在的当前区域均为同一区域,如上例中的B5:D7区域,活动单元格B5的当前区域为B5:D7,当活动单元格为C6时,其当前区域仍为B5:D7。
使用CurrentRegion属性相当于在Excel工作表中选择菜单“编辑——定位”命令,在弹出的“定位”对话框中单击“定位条件”按钮,然后在“定位条件”对话框中选中“当前区域”选项按钮,或者相当于使用Ctrl+Shift+*组合键。
CurrentRegion属性的一些基本应用
CurrentRegion属性可用于很多操作,下面通过如图2所示的工作表示例讲解该属性的应用。
图2
(1)返回指定(或活动)单元格所在区域中标题行的行数
Worksheets("sheet1").Range("H2").Value = _ Worksheets("sheet1").Range("A1").CurrentRegion.ListHeaderRows
(2)返回指定(或活动)单元格所在区域的行数
Worksheets("sheet1").Range("H3").Value = _ Worksheets("sheet1").Range("A1").CurrentRegion.Rows.Count
(3)返回指定(或活动)单元格所在区域的列数
Worksheets("sheet1").Range("H4").Value = _ Worksheets("sheet1").Range("A1").CurrentRegion.Columns.Count
(4)返回指定(或活动)单元格所在区域的单元格数
Worksheets("sheet1").Range("H5").Value = _ Worksheets("sheet1").Range("A1").CurrentRegion.Cells.Count
(5)在指定(或活动)单元格所在区域中选取除标题行以外的数据区域
Worksheets("sheet1").Range("A1").CurrentRegion.Resize( _ Worksheets("sheet1").Range("A1").CurrentRegion.Rows.Count - Worksheets("sheet1"). _ Range("A1").CurrentRegion.ListHeaderRows, Worksheets("sheet1").Range("A1").CurrentRegion. _ Columns.Count).Offset(1, 0).Select
下面,将上述代码综合成一个完整的示例以演示CurrentRegion属性的一些用法。程序代码如下:
Sub testCurrentRegion() Dim rng As Range, ws As Worksheet Set ws = ActiveWorkbook.Worksheets("sheet1") Set rng = ws.Range("A1").CurrentRegion ws.Range("G2") = "当前区域标题行数" ws.Range("H2").Value = rng.ListHeaderRows ws.Range("G3") = "当前区域的行数" ws.Range("H3").Value = rng.Rows.Count ws.Range("G4") = "当前区域的列数" ws.Range("H4").Value = rng.Columns.Count ws.Range("G5").Value = "当前区域的单元格数" ws.Range("H5").Value = rng.Cells.Count ws.Columns("G:G").EntireColumn.AutoFit MsgBox "选取当前区域中除标题行以外的区域" rng.Resize(rng.Rows.Count - rng.ListHeaderRows, rng.Columns.Count).Offset(1, 0).Select End Sub
Sub CopyCurrentRegion() Sheets("sheet1").Range("A1").CurrentRegion.Copy Sheets("sheet2").Range("A1") End Sub
(7)格式化当前区域中的数据
Sub FormatCurrentRegion() With ActiveCell.CurrentRegion .Font.Bold = True .Font.ColorIndex = 3 End With End Sub
(8)在当前区域中自动套用格式
Sub testAutoFormatCurrentRegion() Worksheets("sheet1").Range("A1").CurrentRegion.AutoFormat End Sub
一些示例
[示例1]在当前区域中查找空白单元格并填充
如下图4所示的工作表,现在要使用空白单元格上方的有数据的单元格中的数据来填充空白单元格。
图4
可以编写如下的代码:
Sub FillBlankCells() Worksheets("sheet1").Range("A1").CurrentRegion.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C" Worksheets("sheet1").Range("A1").CurrentRegion.Value = Worksheets("sheet1").Range("A1").CurrentRegion.Value End Sub
图5
示例下载:
[示例2] 一个排序的简单示例
如图6所示的工作表,现在对第3列进行排序,按降序排列。
图6
编写的代码如下:
Sub testSort() Dim rng As Range Set rng = Worksheets("sheet1").Cells(1, 1).CurrentRegion rng.Sort Key1:=rng.Cells(1, 3), Order1:=xlDescending, Header:=xlYes End Sub