精华内容
下载资源
问答
  • VBA中引用单元格区域

    千次阅读 2018-01-29 22:14:51
    在Visual Basic中,Range对象既可表示单个单元格,也可表示单元格区域。  引用 含义 Range("A1") 单元格A1 Range("A1:B5")   从单元格A1到单元格B5的区域 Range("C5:D9,G9:H16") 多块选定区域 Range...

    在Visual Basic中,Range对象既可表示单个单元格,也可表示单元格区域。

       引用   含义

    Range("A1")        单元格A1

    Range("A1:B5")    从单元格A1到单元格B5的区域

    Range("C5:D9,G9:H16")    多块选定区域

    Range("A:A")       A列

    Range("1:1")                      第一行

    Range("A:C")                     从A列到C列的区域

    Range("1:5")                     从第一行到第五行的区域

    Range("1:1,3:3,8:8")          第1、3 和8行

    Range("A:A,C:C,F:F")         A、C 和F列

    通过使用行列编号来引用单元格,可用Cells来引用单个单元格。该属性返回代表单个单元格的Range对象

    cells(行数,列数)

    因为可用变量替代编号,所以Cells属性非常适合于在单元格区域中循环,例如:

    Sub CycleThrough()
     Dim Counter As Integer
     For Counter = 1 To 20
      Worksheets("Sheet1").Cells(Counter, 3).Value = Counter
     Next Counter
    End Sub

    如果对工作表应用Cells属性时不指定编号,该属性将返回代表工作表上所有单元格的Range对象。下述Sub过程清除活动工作簿中Sheet1上的所有单元格的内容。

    Sub ClearSheet()
    Worksheets("Sheet1").Cells.ClearContents
    End Sub

    引用行和列

    可用Rows属性或Columns属性来处理整行或整列。这两个属性返回代表单元格区域的Range对象。下面举例说明了使用Rows和Columns属性的一些行和列的引用;

    引用    含义
    Rows(1)                   第一行
    Rows                       工作表上所有的行
    Columns(1)             第一列
    Columns("A")         第一列
    Columns                工作表上所有的列

    用快捷记号引用单元格

    可用方括号将A1引用样式或命名区域括起来,作为Range属性的快捷方式。这样就不必键入单词“Range”或使用引号,如下例所示。

    Sub SetValue()
     [A1].Value = 30
    End Sub

    展开全文
  • 问题一:在VBA代码中,如何引用当前工作表中的单个单元格(例如引用单元格C3)? 回答:可以使用下面列举的任一方式对当前工作表中的单元格(C3)进行引用。 (1) Range("C3") (2) [C3] (3) Cells(3, 3) ...

    问题一:在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)

    (9) Range("A1").Range("C3")

    问题二:在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代码中,如何在当前工作表中引用交叉区域?

    回答:可以使用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,即只计算第一个单元格区域。

    问题八:在VBA代码中,如何引用当前工作表中活动单元格或指定单元格所在的区域(当前区域)?

    回答:可以使用CurrentRegion属性,例如:

    (1) ActiveCell.CurrentRegion,表示活动单元格所在的当前区域。

    (2) Range("D5").CurrentRegion,表示单元格D5所在的当前区域。

    当前区域是指周围由空行或空列所围成的区域。该属性的详细使用参见《CurrentRegion属性示例》一文。

    问题九:在VBA代码中,如何引用当前工作表中已使用的区域?

    回答:可以使用UsedRange属性,例如:

    (1) Activesheet.UsedRange,表示当前工作表中已使用的区域。

    (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 ChipPearson)

    问题十一:在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代码中,如何引用工作表中的特定单元格区域?

    回答:在工作表中,您可能使用过“定位条件”对话框。可以通过选择菜单“编辑——定位”,单击“定位”对话框中的“定位条件”按钮显示该对话框。这个对话框可以允许用户选择特定的单元格。例如:

    (1)Worksheets("sheet1").Cells.SpecialCells(xlCellTypeAllFormatConditions),表示工作表sheet1中由带有条件格式的单元格所组成的区域。

    (2)ActiveCell.CurrentRegion.SpecialCells(xlCellTypeBlanks),表示当前工作表中活动单元格所在区域中所有空白单元格所组成的区域。

    问题十四:在VBA代码中,如何引用其它工作表或其它工作簿中的单元格区域?

    回答:要引用其它工作表或其它工作簿中的单元格区域,只需在单元格对象前加上相应的引用对象即可,例如:

    (1) Worksheets(“Sheet3”).Range(“C3:D5”),表示引用工作表sheet3中的单元格区域C3:D5。

    (2)Workbooks(“MyBook.xls”).Worksheets(“sheet1”).Range(“B2”),表示引用MyBook工作簿中工作表Sheet1上的单元格B2。

    问题十五:还有其它的一些情形吗?

    回答:列举如下:

    (1)Cells(15),表示单元格O1,即可在Cells属性中指定单元格数字来选择单元格,其计数顺序为自左至右、从上到下,又如Cells(257),表示单元格B1。

    (2) Cells(, 256),表示单元格IV1,但是如果Cells(, 257),则会返回错误。

    结语

    我们用VBA对Excel进行处理,一般是对其工作表中的数据进行处理,因此,引用单元格区域是ExcelVBA编程中最基本的操作之一,只有确定了所处理的单元格区域,才能使用相应的属性和方法进行下一步的操作。

    上面列举了一些引用单元格区域的情形和方式,可以看出,引用单元格区域有很多方式,有一些可能不常用,可以根据工作表的所处的环境和个人编程习惯进行选择使用。

    当然,在编写程序时,也可能会将上面的一些属性联合使用,以达到选取特定操作对象的目的,例如Offset属性、Resize属性、CurrentRegion属性、UsedRange属性等的组合。

    如何选择当前工作表中的单元格?

    例如,可以使用下面的代码选择当前工作表中的单元格D5:

    ActiveSheet.Cells(5, 4).Select

    或:ActiveSheet.Range("D5").Select

    如何选择同一工作簿中其它工作表上的单元格?

    例如,要选择同一工作簿中另一工作表上的单元格E6,可以使用下面的代码:

    Application.Goto ActiveWorkbook.Sheets("Sheet2").Cells(6, 5)

    或:Application.Goto (ActiveWorkbook.Sheets("Sheet2").Range("E6"))

    也可以先激活该工作表,然后再选择:

    Sheets("Sheet2").Activate

    ActiveSheet.Cells(6, 5).Select

    如何选择不同工作簿中的单元格?

    例如,要选择另一工作簿中的一个工作表上的单元格F7,可以使用下面的代码:

    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

    如何选择当前工作表中的单元格区域?

    例如,要选择当前工作表中的单元格区域C2:D10,可以使用下面的代码:

    ActiveSheet.Range(Cells(2, 3), Cells(10, 4)).Select

    或:ActiveSheet.Range("C2:D10").Select

    或:ActiveSheet.Range("C2", "D10").Select

    如何选择同一工作簿中另一工作表上的单元格区域?

    例如,要选择同一工作簿中另一工作表上的单元格区域D3:E11,可以使用下面的代码:

    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

    如何选择不同工作簿中工作表上的单元格区域?

    例如,要选择另一工作簿中某工作表上的单元格区域E4:F12,可以使用下面的代码:

    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

    如何在当前工作表中选择命名区域?

    例如,要选择当前工作表中名为“Test”的区域,可以使用下面的代码:

    Range("Test").Select

    或:Application.Goto "Test"

    如何选择同一工作簿中另一工作表上的命名区域?

    例如,选择同一工作簿中另一工作表上名为“Test”的区域,可使用下面的代码:

    Application.Goto Sheets("Sheet1").Range("Test")

    也可以先激活工作表,再选择:

    Sheets("Sheet1").Activate

    Range("Test").Select

    如何选择不同工作簿中工作表上的命名区域?

    例如,要选择不同工作簿中工作表上名为“Test”的区域,可使用下面的代码:

    Application.Goto Workbooks("BOOK2.XLS").Sheets("Sheet2").Range("Test")

    也可以先激活工作表,再选择:

    Workbooks("BOOK2.XLS").Sheets("Sheet2").Activate

    Range("Test").Select

    如何选择与当前单元格相关的单元格?

    例如,要选择距当前单元格下面5行左侧4列的单元格,可以使用下面的代码:

    ActiveCell.Offset(5, -4).Select

    要选择距当前单元格上方2行右侧3列的单元格,可以使用下面的代码:

    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

    如何选择一个指定的区域并扩展区域的大小?

    例如,要选择当前工作表中名为“Database”区域,然后将该区域向下扩展5行,可以使用下面的代码:

    Range("Database").Select

    Selection.Resize(Selection.Rows.Count + 5, Selection.Columns.Count).Select

    如何选择一个指定的区域,再偏离,然后扩展区域的大小?

    例如,选择名为“Database”区域下方4行右侧3列的一个区域,然后扩展2行和1列,可以使用下面的代码:

    Range("Database").Select

    Selection.Offset(4, 3).Resize(Selection.Rows.Count + 2, Selection.Columns.Count + 1).Select

    如何选择两个或多个指定区域?

    例如,为了同时选择名为“Test”和“Sample”的两个区域,可以使用下面的代码:

    Application.Union(Range("Test"), Range("Sample")).Select

    注意,这两个区域须在同一工作表中,如下面的代码:

    Set y = Application.Union(Range("Sheet1!A1:B2"), Range("Sheet1!C3:D4"))

    但Union方法不能处理不同工作表中的区域,可下面的代码:

    Set y = Application.Union(Range("Sheet1!A1:B2"), Range("Sheet2!C3:D4"))

    将会出错。

    如何选择两个或多个指定区域的交叉区域?

    例如,要选择名为“Test”和“Sample”的两个区域的交叉区域,可以使用下面的代码:

    Application.Intersect(Range("Test"), Range("Sample")).Select

    注意,两个区域必须在同一工作表中。

    = = = = = = = = = = = = = = = = = = = = = = = = =

    下面的示例使用了如下图所示的工作表。

     

    如何选择连续数据列中的最后一个单元格?

    例如,要选择一个连续列中的最后一个单元格,可以使用下面的代码:

    ActiveSheet.Range("a1").End(xlDown).Select

    该代码使用在上面的工作表中,单元格A4被选择。

    如何选择连续数据列底部的空单元格?

    例如,要选择连续单元格区域下面的单元格,可以使用下面的代码:

    ActiveSheet.Range("a1").End(xlDown).Offset(1, 0).Select

    该代码使用在上面的工作表中,单元格A5被选择。

    如何选择某列中连续数据单元格区域?

    例如,要选择一列中的连续数据单元格区域,可以使用下面的代码:

    ActiveSheet.Range("a1", ActiveSheet.Range("a1").End(xlDown)).Select

    或:ActiveSheet.Range("a1:" & ActiveSheet.Range("a1").End(xlDown).Address).Select

    该代码使用在上面的工作表中,单元格区域A1:A4将被选择。

    如何选择某列中非连续数据单元格区域?

    例如,要选择某列中非连续数据单元格区域,可以使用下面的代码:

    ActiveSheet.Range("a1", ActiveSheet.Range("a65536").End(xlUp)).Select

    或:ActiveSheet.Range("a1:" & ActiveSheet.Range("a65536").End(xlUp).Address).Select

    该代码使用在上面的工作表中,单元格区域A1:A6将被选择。

    如何选择一个矩形(规则的)单元格区域?

    要选择围绕某单元格的一个矩形区域,可以使用CurrentRegion方法。CurrentRegion方法将选择四周被空行和空列围绕的区域,如下面的代码:

    ActiveSheet.Range("a1").CurrentRegion.Select

    该代码使用在上面的工作表中,将选择单元格区域A1:C4。也可以使用下面的代码:

    ActiveSheet.Range("a1", ActiveSheet.Range("a1").End(xlDown).End(xlToRight)).Select

    或:

    ActiveSheet.Range("a1:" & ActiveSheet.Range("a1").End(xlDown).End(xlToRight).Address).Select

    若想选择单元格区域A1:C6,可使用下面的代码:

    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

    = = = = = = = = = = = = = = = = = = = =

    如何选择多个不同长度的非连续列?

    例如,有下图所示的工作表:

     

    要同时选择A列和C列中的数据,即单元格区域A1:A3和C1:C6,可使用下面的代码:

    StartRange = "A1"

    EndRange = "C1"

    Set a = Range(StartRange, Range(StartRange).End(xlDown))

    Set b = Range(EndRange, Range(EndRange).End(xlDown))

    Union(a, b).Select

    = = = = = = = = = = = = = = = = = = = =

    注:使用Application.Goto方法,如果指定另一工作表(不是当前工作表)中的指定区域,在Range属性中使用两个Cells属性时,则必须包括Sheets对象,如:

    Application.Goto Sheets("Sheet1").Range(Sheets("Sheet1").Range(Sheets("Sheet1").Cells(2, 3), Sheets("Sheet1").Cells(4, 5)))

    = = = = = = = = = = = = = = = = = = = =

    在VBA中,Range 对象既可表示单个单元格,也可表示单元格区域。下面的内容说明了标识和处理Range对象最常用的方法。

    引用工作表上的所有单元格

    如果对工作表应用 Cells 属性时不指定索引号,该方法将返回代表工作表上所有单元格的 Range 对象。以下 Sub 过程清除活动工作簿中 Sheet1 上的所有单元格的内容。

    Sub ClearSheet()

    Worksheets("Sheet1").Cells.ClearContents

    End Sub

    使用 A1 表示法引用单元格和区域

    可使用 Range 属性引用 A1 引用样式中的单元格或单元格区域。下述子例程将单元格区域 A1:D5 的字体设置为加粗。

    Sub FormatRange()

    Workbooks("Book1").Sheets("Sheet1").Range("A1:D5") _

    .Font.Bold = True

    End Sub

    下表演示了使用 Range 属性的一些 A1 样式引用。

    引用 含义

    Range("A1") 单元格 A1

    Range("A1:B5") 从单元格 A1 到单元格 B5 的区域

    Range("C5:D9,G9:H16") 多块选定区域

    Range("A:A") A 列

    Range("1:1") 第一行

    Range("A:C") 从 A 列到 C 列的区域

    Range("1:5") 从第一行到第五行的区域

    Range("1:1,3:3,8:8") 第 1、3 和 8 行

    Range("A:A,C:C,F:F") A 、C 和 F 列

    引用行和列

    可用 Rows 属性或 Columns 属性来处理整行或整列。这两个属性返回代表单元格区域的 Range 对象。在下例中,Rows(1) 返回 Sheet1 上的第一行,然后将区域字体加粗。

    Sub RowBold()

    Worksheets("Sheet1").Rows(1).Font.Bold = True

    End Sub

    下表举例说明了使用 Rows 和 Columns 属性的一些行和列的引用。

    引用 含义

    Rows(1) 第一行

    Rows 工作表上所有的行

    Columns(1) 第一列

    Columns("A") 第一列

    Columns 工作表上所有的列

    若要同时处理若干行或列,可创建一个对象变量并使用 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

    使用索引号引用单元格

    通过使用行列索引号,可用 Cells 属性引用单个单元格。该属性返回代表单个单元格的 Range 对象。在下例中,Cells(6,1) 返回 Sheet1 上的单元格 A6,然后将 Value 属性设置为 10。

    Sub EnterValue()

    Worksheets("Sheet1").Cells(6, 1).Value = 10

    End Sub

    因为可用变量替代编号,所以 Cells 属性非常适合于在单元格区域中循环,如下例中所示。

    Sub CycleThrough()

    Dim Counter As Integer

    For Counter = 1 To 20

    Worksheets("Sheet1").Cells(Counter, 3).Value = Counter

    Next Counter

    End Sub

    如果要同时更改某个区域中所有单元格的属性(或将方法应用于该区域中的所有单元格),建议使用 Range 属性。

    使用快捷表示法引用单元格

    可用方括号将 A1 引用样式或命名区域括起来,作为 Range 属性的快捷方式。这样就不必键入单词“Range”或使用引号了,如下例中所示。

    Sub ClearRange()

    Worksheets("Sheet1").[A1:B5].ClearContents

    End Sub

    Sub SetValue()

    [MyRange].Value = 30

    End Sub

    使用 Range 对象引用单元格

    如果将对象变量设置为 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

    引用命名区域

    用名称比用 A1 样式记号更容易标识单元格区域。若要命名选定的单元格区域,请单击编辑栏左端的名称框,键入名称,再按 Enter。

    引用命名区域

    以下示例引用名为“MyBook.xls”的工作簿中名为“MyRange”的区域。

    Sub FormatRange()

    Range("MyBook.xls!MyRange").Font.Italic = True

    End Sub

    以下示例引用名为“Report.xls”的工作簿中特定于工作表的区域“Sheet1!Sales”。

    Sub FormatSales()

    Range("[Report.xls]Sheet1!Sales").BorderAround Weight:=xlthin

    End Sub

    要选定命名区域,可使用 GoTo 方法,该方法将激活工作簿和工作表,然后选定该区域。

    Sub ClearRange()

    Application.Goto Reference:="MyBook.xls!MyRange"

    Selection.ClearContents

    End Sub

    以下示例显示对于活动工作簿将如何编写与上例相同的过程。

    Sub ClearRange()

    Application.Goto Reference:="MyRange"

    Selection.ClearContents

    End Sub

    在命名区域中的单元格上循环

    下例用 For Each...Next 循环语句在命名区域中的每一个单元格上循环。如果该区域中的任一单元格的值超过 limit 的值,就将该单元格的颜色更改为黄色。

    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

    引用多个区域

    使用适当的方法可以很容易地同时引用多个单元格区域。可用 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 "不能对多个选区进行操作."

    End If

    End Sub

    处理三维区域

    如果要处理若干工作表上相同位置的单元格区域,可用 Array 函数选定两张或多张工作表。下例设置三维单元格区域的边框格式。

    Sub FormatSheets()

    Sheets(Array("Sheet2", "Sheet3", "Sheet5")).Select

    Range("A1:H1").Select

    Selection.Borders(xlBottom).LineStyle = xlDouble

    End Sub

    下例应用 FillAcrossSheets 方法,将 Sheet2 上的区域中的格式和所有数据传送到活动工作簿中所有工作表上的相应区域。

    Sub FillAll()

    Worksheets("Sheet2").Range("A1:H1") _

    .Borders(xlBottom).LineStyle = xlDouble

    Worksheets.FillAcrossSheets (Worksheets("Sheet2") _

    .Range("A1:H1"))

    End Sub

    展开全文
  • VBA-选定Excel单元格区域的方法

    千次阅读 2020-02-23 14:13:34
    VBA 中一般使用 Select 方法选定单元格或单元格区域,格式为:.select。但是需要注意的是在使用该函数之前保证单元格所在工作表为活动工作表。 Sub test1() Range("a1:d4").Select Sheet2.Activate '激活工作表...

    选定单元格区域的方法

    1、使用select方法

    在 VBA 中一般使用 Select 方法选定单元格或单元格区域,格式为:.select。但是需要注意的是在使用该函数之前保证单元格所在工作表为活动工作表。

    Sub test1()
        Range("a1:d4").Select
        Sheet2.Activate '激活工作表
        Sheet2.Range("a1:d3").Select '选择区域
    End Sub
    

    2、使用activate方法

    该函数的使用方法和select方法基本类似,同时也需要单元格所在工作表为活动工作表。

    Sub test2()
        Range("a1:d5").Activate
        Sheet2.Activate '激活工作表
        Sheet2.Range("a1:d3").Activate  '选择区域
    End Sub
    

    3、使用 goto 方法

    使用该方法可以选择某一区域,并且指定是否滚动窗口直至目标区域的左上角单元格出现在窗口的左上角,其格式为:expression.Goto(Reference, Scroll)

    • 参数 expression 是必需的,返回一个 Application 对象。
    • reference用于指定将要选择的区域。
    • scroll:逻辑值。true则代表滚动窗口直至目标区域的左上角单元格出现在窗口的左上角;false代表不滚动窗口。

    需要注意的是该方法不同于上述两个方法:不需要事先激活单元格所在工作表为活动工作表。

    Sub test3()
        Application.Goto reference:=Sheet3.Range("A4:B10"), scroll:=True
        Application.Goto reference:=Sheet3.Range("a4:b10"), scroll:=False
    End Sub
    
    展开全文
  • VBA操作Excel之获取单元格区域

    千次阅读 2020-10-17 12:02:48
    VBA操作Excel之获取单元格区域一、VBA通过索引引用工作表二、VBA获取单元格区域三、VBA调用方法参数传值参考文档 一、VBA通过索引引用工作表 VBA打开工作簿后,通常一个工作簿有若干个工作表Sheet,访问其中一个工作...

    一、VBA通过索引引用工作表

    VBA打开工作簿后,通常一个工作簿有若干个工作表Sheet,访问其中一个工作表有三种方法,代码如下:

    ThisWorkbook.Sheets(1)
    ThisWorkbook.Sheets.Item (1)
    ThisWorkbook.Sheets("Sheet1")'Sheet1为工作表名称
    

    二、VBA获取单元格区域

    Excel对象中主要有四种方法获取单元格区域,分别是Range,Cells,[],Rows和Columns,下面分别介绍
    Range选择区域
    通常使用类似于Range(“A2”),即使用字符串,第一个字符为列字母索引,第二个字符为行数字索引。也可以设置单元格区域名称,然后通过名称进行选择,如Range(“name01”),但这种方法需要先对名称进行设置,一般不常用。
    Range引用多个不连续的区域,用逗号隔开:

    Range("A1:A10,A4:E6,C3:D9").Value = 200
    

    用空格而不是逗号,则表示选中区域交集部分:

    Range("A1:B10 A4:D9").Value = 200
    

    Cells选择区域
    方法为Cells(Row,Col),第一个参数为行数字索引,Row可为整数类型和字符串类型,第二个参数Col)为列索引,类型为整数数字索引或字符串字母索引,即例如选择某行第二列,那么语法为Cells(Row,2)或Cells(Row,“b”),如果写成Cells(Row,“2”)会报错。
    [ ]选择区域
    [ ]是Application对象的Evaluate方法的简写形式,这种简写形式非常适合饮用一个固定的Range对象,但是因为不能在方括号中使用变量,所以这种引用方式缺少灵活性。
    选择行跟列
    当需要整行或整列选择时,通常使用Rows和Columns方法,Rows使用代码如下:

    ActiveSheet.Rows '选中活动工作表的所有行
    ActiveSheet.Rows(3).Select '选中活动工作表的第3行
    ActiveSheet.Rows("3:3").Select '选中活动工作表的第3行
    ActiveSheet.Rows("3:5").Select '选中活动工作表的第3行到第5行
    Rows("3:10").Rows("1:1").Select '选中第3行到第10行区域内的第一行
    

    Columns使用代码如下:

    ActiveSheet.Columns  '选中活动工作表的所有列
    ActiveSheet.Columns (6) '选中活动工作表中的第6列
    ActiveSheet.Columns ("F:G") '选中活动工作表中的F至G列
    Columns("B:G").Columns("B:B").Select '选中B:G区域中的第2列
    

    三、VBA调用方法参数传值

    VBA在调用没有返回值的方法时,参数传值主要有三种方法,以MsgBox为例,代码如下:

    MsgBox ("hello")
    MsgBox "hello"
    MsgBox prompt:="hello"
    

    参考文档

    Excel-VBA常用对象(Application、Workbook、Worksheet、Range)
    VBA变量声明和赋值
    程序开发版资料汇总(第4部分)

    展开全文
  • 以地址表示矩形单元格区域对象 以对角单元格表示矩形单元格区域对象 不规则单元格区域表示 使用Union方法获取合并区域 使用Intersect方法获取多个区域的交集 以地址表示矩形单元格区域对象 在Excel中,如要...
  • Range(“a1:a10”).Select '表示选中单元格A1:A10的区域 Range(“a2”).Value = 1 '表示单元格赋值为1,Range的默认属性就是Value Range(“a1”).Offset(2, 3).Select '以单元格a1为基准,下移2行,右移3列,...
  • VBA示例之 在特定的区域内查找文本,返回值是包含查找文本的单元格,供初学者参考,大牛勿进~~~~~~~
  • Excel VBA Range单元格操作实例

    千次阅读 2020-02-16 21:51:53
    四、Range操作 4.2取得最后一个非空单元格 xlDown/xlToRight/xlToLeft/xlUp ...4.3 复制单元格区域 注意:使用PasteSpecial方法时指定xlPasteAll(粘贴全部),并不包括粘贴列宽 Sub CopyWithSameCol...
  • Excel VBA单元格选取

    万次阅读 2017-05-14 00:34:24
    Option Explicit '1 表示一个单元格(a1) Sub s() Range("a1").Select Cells(1, 1).Select Range("A" & 1).Select Cells(1, "A").Select Cells(1).Select ...'2 表示相邻单元格区域 Sub d() '
  • '用union函数将区域连接起来 Set op_range = Union(Range("a1:d3"), Range("a7:d7")) For Each cell In op_range '操作语句填写在这里 'cell.Value = Left(cell.Value, Len(cell.Value) - 3) Next cell
  • 意思就是当前应用程序(excel)下面的已经打开的第一个工作薄下面的第一个工作表里面的A1单元格,但一般情况下我们不需要这么麻烦,如果我们只对当前的表格操作,前面的都可以省略,只需要写range(“A1
  • Excel VBA单元格对象

    2020-06-18 15:08:38
    Cells(1,1)方式——表示A1单元格(cells属性返回单元格区域中指定行和列相交的单元格) Cells(1,“A”)方式——表示A1单元格Cells(2,1)方式——表示A2单元格 [A1]方式——表示A1单元格 注意:①列标不区分大小写 ②...
  • VBA之活动单元格

    千次阅读 2019-09-26 00:37:05
    不论你点击一个单元格还是选择一个区域,你最先点击的单元格就是活动单元格 1 '活动单元格:activecell,工作表中活动单元格只有一个 2 Sub activecells() 3 a = activecell.Address '取得活动单元格地址 4...
  • 下面的程序在合并单元格后将保留合并单元格区域中所有单元格中的数据。 Sub MergeCellsAndValues() Dim rng AsRange Dim strResult As String On ErrorResume Next For Eachrng In Selection '可
  • 目录 单元格对象的Value属性 单元格对象的Text属性 自动列出成员 单元格的数字格式属性 ... Value属性为单元格对象的默认属性,当需要获取某个对象的默认属性时,可以直接用对象表示。 非特...
  • excel vba怎么获得当前选中单元格

    千次阅读 2021-06-04 08:49:04
    获取代码如下 ... [a6] = Target.Address(0, 0) '获取选中单元格名称(字符名称 例如 C5 ) [a7] = ActiveCell.Cells.Row '获取选中单元格的行编号 数值 [a8] = ActiveCell.Cells.Column '获取选中单元.
  • VBA选择单元格的语句

    万次阅读 2013-08-27 21:11:56
    如何选择当前工作表中的单元格? 例如,可以使用下面的代码选择当前工作表中的单元格D5: ActiveSheet.Cells(5, 4).Select 或:ActiveSheet.Range("D5").Select 如何选择同一工作簿中其它工作表上的单元格? ...
  • 在使用ExcelVBA进行编程时,我们通常需要频繁地引用单元格区域,然后再使用相应的属性和方法对区域进行操作。所谓单元格区域,指的是单个的单元格、或者是由多个单元格组成的区域、或者是整行、整列等。下面,我们...
  • EXCEL随机数据 使用 单元格表达式 以及 Excel VBA 快速生成随机数据。使用单元格表达式(函数)在指定范围产生随机整数、小数、大小写英文字符、字符串、随机日期和随机时间,并设定输出的时间格式和日期格式。产生...
  • Excel VBA单元格错误值

    千次阅读 2017-01-05 21:27:48
    可将单元格错误值插入单元格,或者用 CVErr函数测试单元格的值是否为某个错误值。单元格错误值可为以下 XlCVError 常量之一。 常量 错误号 单元格错误值 xlErrDiv0 2007 #DIV/0! xlErrNA 2042...
  • VBA处理工作表合并单元格 - 格式篇

    千次阅读 2018-03-01 01:49:30
    Excel合并单元格是有人爱有人恨的功能,一般来说数据分析师都非常憎恨这个功能,因为合并单元格常常闹幺蛾子,导致数据统计和格式化障碍重重。 格式篇 对于普通的规整数据,如果需要设置成间隔填充颜色,可以...
  • 3, excel vba 获取表格里的单元格的值

    万次阅读 2018-01-22 15:20:02
    通过上一节, 我们己经可以掌握进入vba的...如下图: 单元格 A1 里有一个值: 点点didi3 接下来我们要用vba得到这个值.并像上节一样显示出来 1, 按 alt + f11 打开编辑窗. 复制粘贴以下代码, Public Sub 点点
  • VBA单元格、工作表、工作簿

    千次阅读 2019-04-30 23:08:35
    详解VBA单元格、工作表、工作簿各种表示、方法,注意事项。
  • VBA单元格操作1

    2020-03-25 01:25:03
    VBA单元格操作1 select 选中 delete删除 copy复制 clearcontents清空 1.一列数据,如何定位到该列最后一个数据: range(“a65536”).End(xlUp).Row 2.复制一整行数据,到指定位置 range("a1).EntireRow.Copy range...
  • Function firstnoblank(myrange...For Each sheet In myrange '遍历区域里的每一个单元格 If Not IsNull(sheet) And sheet <> "" Then firstnoblank = sheet.Value Exit Function End I...
  • 使用vba在word中处理表格时,有时要判断这一行表格是否为空白,无内容,以便中止或者跳过读取数据,编辑内容。 可以使用Table对象的Rows属性返回具体的行,然后判断第一个单元格无内容.再做下一步操作. 在word中,空白...
  • Range(Cells(pos_fst, pos_ems), Cells(maxrow, pos_ems))这种表示方法只适合当前工作表,如果非当前工作表,在前面加上sheets的限定后,就会报错,但sheets(1).range("a1:a10")这种表示方法没有问题。 下面给一...
  • '1 表示一个单元格(a1) Sub s() Range("a1").Select Cells(1, 1).Select Range("A" & 1).Select Cells(1, "A").Select Cells(1).Select [a1].Select End Sub ...
  • 前面介绍了三种引用方式,Range、Cells、[单元格区域],这里做了一下简单的对比
  • Sub 合并单元格() Dim i As Integer, j%, rng As Range,strng as range Application.DisplayAlerts = False i = Cells(Rows.Count, 1).End(xlUp).Row set strng =Application.InputBox("请选择要...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 1,785
精华内容 714
关键字:

vba表示单元格区域