EXCEL-VBA选择单元格讲解学习
E X C E L-V B A选择单元
格
单元格区域引⽤⽅式的⼩结
EXCEL技巧 2008-11-29 12:10:20 阅读97 评论0 字号：⼤中⼩订阅
在使⽤ExcelVBA进⾏编程时，我们通常需要频繁地引⽤单元格区域，然后再使⽤相应的属性和⽅法对区域进⾏操作。所谓单元格区域，指的是单个的单元格、或者是由多个单元格组成的区域、或者是整⾏、整列等。下⾯，我们设定⼀些情形，以问答的形式对引⽤单元格区域的⽅式进⾏归纳。
--------------------------------------------------------------------------------
问题⼀：在VBA代码中，如何引⽤当前⼯作表中的单个单元格(例如引⽤单元格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)
--------------------------------------------------------------------------------
问题⼆：在VBA代码中，我要引⽤当前⼯作表中的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)
--------------------------------------------------------------------------------
问题三：在VBA代码中，如何使⽤变量实现对当前⼯作表中不确定单元格区域的引⽤？
回答：有时，我们需要在代码中依次获取⼯作表中特定区域内的单元格，这通常可以采取下⾯的⼏种⽅式：
(1) Range(“A” & i)
(2) Range(“A” & i & “:C” & i)
(3) Cells(i,1)
(4) Cells(i,j)
其中，i、j为变量，在循环语句中指定i和j的范围后，依次获取相应单元格。
--------------------------------------------------------------------------------
问题四：在VBA代码中，如何扩展引⽤当前⼯作表中的单元格区域？
回答：可以使⽤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属性是相对于当前活动单元格或某单元格区域中左上⾓单元格按指定的⾏数或
列数扩展单元格区域。
--------------------------------------------------------------------------------
问题五：在VBA代码中，如何在当前⼯作表中基于当前单元格区域或指定单元格区域处理其它单元格区域？
回答：可以使⽤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属性从所指定的单元格开始按指定的⾏数和列数偏移，从⽽到达⽬的单元格，但偏移的⾏数和列数不包括指定单元格本⾝。
--------------------------------------------------------------------------------
vba编程技巧
问题六：在VBA代码中，如何在当前⼯作表中引⽤交叉区域？
回答：可以使⽤Intersect⽅法，例如：
Intersect(Range("C3:E6"), Range("D5:F8"))，表⽰单元格区域D5:E6，即单元格区域C3:E6与D5:F8相重迭的区域。
--------------------------------------------------------------------------------
问题七：在VBA代码中，如何在当前⼯作表中引⽤多个区域？
回答：
(1) 可以使⽤Union⽅法，例如：
Union(Range("C3:D4"), Range("E5:F6"))，表⽰单元格区域C3:D4和E5:F6所组成的区域。
Union⽅法可以将多个⾮连续区域连接起来成为⼀个区域，从⽽可以实现对多个⾮连续区域⼀起进⾏操作。
(2) 也可以使⽤下⾯的代码：
Range("C3:D4, E5:F6")或[C3:D4, E5:F6]
注意：Range("C3:D4", "F5:G6")，表⽰单元格区域C3:G6，即将两个区域以第⼀个区域左上⾓单元格为起点，以第⼆个区域右下⾓单元格为终点连接成⼀个新区域。
同时，在引⽤区域后使⽤Rows属性和Columns属性时，注意下⾯代码的区别：
①Range("C3:D4", "F8:G10").Rows.Count，返回的值为8；
②Range("C3:D4,F8:G10").Rows.Count，返回的值为2，即只计算第⼀个单元格区域。
引⽤多个单元格区域
使⽤适当的⽅法可以很容易地同时引⽤多个单元格区域。可⽤ Range 和 Union ⽅法引⽤任意组合的单元格区域；⽤ Areas 属性可引⽤⼯作表上选定的⼀组单元格区域。
使⽤ Range 属性
通过在两个或多个引⽤之间放置逗号，可使⽤ Range 属性来引⽤多个单元格区域。下例清除了 Sheet1 上三个单元格区域的内容。
Sub ClearRanges()
Worksheets("Sheet1").Range("C5:D9,G9:H16,B14:D18"). _
ClearContents
End Sub
命名区域使得⽤ Range 属性处理多个单元格区域更为容易。下例可在三个命名区域处于同⼀⼯作表时运⾏。
Sub ClearNamed()
Range("MyRange, YourRange, HisRange").ClearContents
End Sub
使⽤ Union ⽅法
⽤ Union ⽅法可将多个单元格区域组合到⼀个 Range 对象中。下例创建了名为 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
使⽤ Areas 属性
可⽤ Areas 属性引⽤选定的单元格区域或多块选定区域中的区域集合。下述过程计算选定区域中的块数⽬，如果有多个块，
就显⽰⼀则警告消息。
Sub FindMultiple()
If Selection.Areas.Count > 1 Then
MsgBox "Cannot do this to a multiple selection."
End If
End Sub
--------------------------------------------------------------------------------
问题⼋：在VBA代码中，如何引⽤当前⼯作表中活动单元格或指定单元格所在的区域(当前区域)？
回答：可以使⽤CurrentRegion属性，例如：
(1) ActiveCell.CurrentRegion，表⽰活动单元格所在的当前区域。
(2) Range("D5").CurrentRegion，表⽰单元格D5所在的当前区域。
当前区域是指周围由空⾏或空列所围成的区域。该属性的详细使⽤参见《CurrentRegion属性⽰例》⼀⽂。
--------------------------------------------------------------------------------
问题九：在VBA代码中，如何引⽤当前⼯作表中已使⽤的区域？
回答：可以使⽤UsedRange属性，例如：
(1) www.doczj/doc/3a836c391cd9ad51f01dc281e53a580217fc5045.html edRange，表⽰当前⼯作表中已使⽤的区域。
(2) Worksheets("sheet1").UsedRange，表⽰⼯作表sheet1中已使⽤的区域。
与CurrentRegion属性不同的是，该属性代表⼯作表中已使⽤的单元格区域，包括显⽰为空⾏，但已进⾏过格式的单元格区域。该属性的详细使⽤参见《解析UsedRange属性》⼀⽂。
--------------------------------------------------------------------------------
问题⼗：如何在单元格区域内指定特定的单元格？
回答：可以使⽤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]
定义了对象变量后，像单元格⽅法⼀样，Item属性允许使⽤两个索引数值引⽤⼯作表中的任⼀单元格，例如，rng(3,4)指定单元格D3。(By Chip Pearson)
--------------------------------------------------------------------------------
问题⼗⼀：在VBA代码中，如何引⽤当前⼯作表中的整⾏或整列？
回答：见下⾯的⽰例代码：
(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⽅法对整列或整⾏进⾏调整。
--------------------------------------------------------------------------------
问题⼗⼆：在VBA代码中，如何引⽤当前⼯作表中的所有单元格？
回答：可以使⽤下⾯的代码：
(1) Cells，表⽰当前⼯作表中的所有单元格。
(2) Range(Cells(1, 1), Cells(Cells.Rows.Count, Cells. Columns.Count))，其中Cells.Rows表⽰⼯作表所有⾏，Cells. Columns表⽰⼯作表所有列。
--------------------------------------------------------------------------------
问题⼗三：在VBA代码中，如何引⽤⼯作表中的特定单元格区域？
回答：在⼯作表中，您可能使⽤过“定位条件”对话框。可以通过选择菜单“编辑——定位”，单击“定位”对话框中的“定位条件”按钮显⽰该对话框。这个对话框可以允许⽤户选择特定的单元格。例如：

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。