精华内容
下载资源
问答
  • 问题一: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

    展开全文
  • 计算机习题110、 在Excel工作表的单元格区域A1:A8各单元格中均存放数值1,单元格A9为空,单元格A10为一字符计算机习题110、 在Excel工作表的单元格区域A1:A8各单元格中均存放数值1,单元格A9为空,单元格A10为一字符串,...

    计算机习题110、 在Excel工作表的单元格区域A1:A8各单元格中均存放数值1,单元格A9为空,单元格A10为一字符

    计算机习题1

    10、 在Excel工作表的单元格区域A1:A8各单元格中均存放数值1,单元格A9为空,

    单元格A10为一字符串,则函数=AVERAGE(A1:A10)的结果是________.

    A) 1

    B) 0.8

    C) 8/9

    D) 0.9

    请选择-> A B C D

    11、 在Excel工作表的单元格区域A1:A8各单元格中均存放数值1,单元格A9为空,

    单元格A10为一字符串,则函数=COUNT(A1:A10)的结果是________.

    A) 10

    B) 9

    C) 8

    D) 1

    请选择-> A B C D

    12、 已知有一张工作表如下所示:

    ┌———┬———┬———┐

    │ │ A │ B │

    ├———┼———┼———┤

    │ 1 │1 │2 │

    ├———┼———┼———┤

    │ 2 │3 │3 │

    ├———┼———┼———┤

    │ 3 │ │5 │

    ├———┼———┼———┤

    │ 4 │6 │7 │

    └———┴———┴———┘

    其中A3为一空白单元,若在该单元中输入数值0,则以下统计函数________

    结果将发生变化.

    A) =SUM(A1:B4)

    B) =MAX(A1:B4)

    C) =COUNT(A1:B4)

    D) 以上函数结果均不改变

    请选择-> A B C D

    13、 在Excel中,各运算符号的优先级由高到低的顺序为________.

    A) 数学运算符、比较运算符、字符串运算符

    B) 数学运算符、字符串运算符、比较运算符

    C) 比较运算符、字符串运算符、数学运算符

    D) 字符串运算符、数学运算符、比较运算符

    请选择-> A B C D

    14、 函数TRIM的功能是________.

    A) 删除字符串中的所有空格

    B) 删除字符串前面的空格

    C) 删除字符串后面的空格

    D) 删除字符串前后的空格,保留字符之间的空格

    请选择-> A B C D

    15、 在Excel工作表的单元格区域A1:A10中,从上向下已经输入了数据1,2,3,

    ……,10,为在单元格Bi中计算单元格区域A1:Ai中所有数字之和,应先在

    单元格B1中输入公式________,然后复制公式到单元格区域B2:B10即可.

    A) =SUM(A1:A10)

    B) =SUM($B1:$B1)

    C) =SUM($A$1:A1)

    D) =SUM(A1:A1)

    请选择-> A B C D

    16、 如果在sheet2的C1单元格中输入公式时,需要引用sheet1中A2单元格的数据,

    正确引用为_________.

    A) sheet1!A2

    B) sheet1(A2)

    C) sheet1A2

    D) sheet1!(A2)

    请选择-> A B C D

    17、 在Excel中,函数=RIGHT("ABCD计算机应用",8)的返回值是________.

    A) BCD计算机应用

    B) 算机应用

    C) ABCD计算

    D) ABCD计算机应用

    请选择-> A B C D

    18、 若向单元格A1中输入函数=IF(2+9/3>1+2*3,"对","错"),则确认后

    A1单元格的结果为________.

    A) 错

    B) 对

    C) #VALUE!

    D) #REF!

    请选择-> A B C D

    1年前

    已收到2个回答

    展开全文
  • Sub 提取带公式的单元格()  Dim FormulaCells As Range, Cell As Range  Dim FormulaSheet As Worksheet  Dim Row As Integer    '创建Range对象  On Error Resume Next  Set FormulaCells = Range(
    Sub 提取带公式的单元格()
    
        Dim FormulaCells As Range, Cell As Range
        Dim FormulaSheet As Worksheet
        Dim Row As Integer
        
        '创建Range对象
        On Error Resume Next
        Set FormulaCells = Range("A1").SpecialCells(xlCellTypeFormulas, 23)
        
        '没有找到公式
        If FormulaCells Is Nothing Then
            MsgBox "当前工作表中没有公式!"
            Exit Sub
        End If
        
        '增加一个新工作表
        Application.ScreenUpdating = False
        Set FormulaSheet = ActiveWorkbook.Worksheets.Add
        FormulaSheet.Name = "“" & FormulaCells.Parent.Name & "”表中的公式"
        
        '列标题
        With FormulaSheet
            Range("A1") = "公式所在单元格"
            Range("B1") = "公式"
            Range("C1") = "值"
            Range("A1:C1").Font.Bold = True
        End With
        
        '读取公式,同时在状态栏中显示进度。
        Row = 2
        For Each Cell In FormulaCells
            Application.StatusBar = Format((Row - 1) / FormulaCells.Count, "0%")
            With FormulaSheet
                Cells(Row, 1) = Cell.Address _
                    (RowAbsolute:=False, ColumnAbsolute:=False)
                Cells(Row, 2) = " " & Cell.Formula
                Cells(Row, 3) = Cell.Value
                Row = Row + 1
            End With
        Next Cell
        
        '调整列宽
        FormulaSheet.Columns("A:C").AutoFit
        Application.StatusBar = False

    End Sub


    ---------------------------------------------------

    Sub 提取带公式的单元格()
        Dim FormulaCells As Range, Cell As Range
        Dim FormulaSheet As Worksheet
        Dim Row As Integer
        
        '创建Range对象
        On Error Resume Next
        Set FormulaCells = Range("A1").SpecialCells(xlFormulas, 23)
        
        '没有找到公式
        If FormulaCells Is Nothing Then
            MsgBox "当前工作表中没有公式!"
            Exit Sub
        End If
        
        '增加一个新工作表
        Application.ScreenUpdating = False
        Set FormulaSheet = ActiveWorkbook.Worksheets.Add
        FormulaSheet.Name = "“" & FormulaCells.Parent.Name & "”表中的公式"
        
        '列标题
        With FormulaSheet
            Range("A1") = "公式所在单元格"
            Range("B1") = "公式"
            Range("C1") = "值"
            Range("A1:C1").Font.Bold = True
        End With
        
        '读取公式,同时在状态栏中显示进度。
        Row = 2
        For Each Cell In FormulaCells
            Application.StatusBar = Format((Row - 1) / FormulaCells.Count, "0%")
            With FormulaSheet
                Cells(Row, 1) = Cell.Address _
                    (RowAbsolute:=False, ColumnAbsolute:=False)
                Cells(Row, 2) = " " & Cell.Formula
                Cells(Row, 3) = Cell.Value
                Row = Row + 1
            End With
        Next Cell
        
        '调整列宽
        FormulaSheet.Columns("A:C").AutoFit
        Application.StatusBar = False
    End Sub
    展开全文
  • 为了快速输入数据,您可以让 Microsoft Office Excel 自动重复数据,或者自动填充数据,自动重复列中已输入的项目如果在单元格中键入的前几个字符与该列中已有的项相匹配,Excel 会自动输入其余的字符。但 Excel ...

    为了快速输入数据,您可以让 Microsoft Office Excel 自动重复数据,或者自动填充数据,

    自动重复列中已输入的项目

    如果在单元格中键入的前几个字符与该列中已有的项相匹配,Excel 会自动输入其余的字符。但 Excel 只能自动完成包含文字或文字与数字的组合的项。只包含数字、日期或时间的项不能自动完成。

    请执行下列操作之一:

    ·要接受建议的项,请按 Enter。自动完成的项完全采用已有项的大小写格式。

    ·如果不想采用自动提供的字符,请继续键入。

    ·如果要删除自动提供的字符,请按 Backspace。

    注释

    ·如果不希望自动完成键入的项,可以关闭此选项。

    如何打开或关闭单元格值的自动完成功能

    1、单击“Microsoft Office 按钮”,然后单击“Excel 选项”。

    2、单击“高级”,然后在“编辑选项”下,清除或选中“为单元格值启用记忆式键入”复选框以关闭或打开对单元格值的自动填写功能。

    ·Excel 仅在插入点处于当前单元格内容的末尾时,才完成输入。

    ·Excel 根据包含活动单元格 (活动单元格:活动单元格就是选定单元格,可以向其中输入数据。一次只能有一个活动单元格。活动单元格四周的边框加粗显示。)的列提供可能的记忆式键入项的列表。在一行中重复的项不能自动完成。

    使用填充柄填充数据

    可以使用“填充”命令将数据填充到工作表单元格中。还可以让 Excel 根据您建立的模式自动继续数字、数字和文本的组合、日期或时间段序列。然而,若要快速填充几种类型的数据序列,可以选中单元格并拖动填充柄 (填充柄:位于选定区域右下角的小黑方块。将用鼠标指向填充柄时,鼠标的指针更改为黑十字。)。

    在默认情况下,显示填充柄,但是您可以隐藏它。

    如何隐藏或显示填充柄

    1、单击“Microsoft Office 按钮”,然后单击“Excel 选项”。

    2、单击“高级”,然后在“编辑选项”下,清除或选中“启用填充柄和单元格拖放功能”复选框以隐藏或显示填充柄。

    3、为了避免在拖动填充柄时替换现有数据,请确保选中了“覆盖单元格内容前提出警告”复选框。如果不想收到有关覆盖非空白单元格的消息,可清除此复选框。

    拖动填充柄之后,会出现“自动填充选项”按钮以便您选择如何填充所选内容。例如,您可以选择通过单击“仅填充格式”只填充单元格格式,也可以选择通过单击“不带格式填充”只填充单元格的内容。

    如果您不希望每次拖动填充柄时都显示“自动填充选项”按钮,可以将它关闭。

    如何打开或关闭“自动填充选项”

    1、单击“Microsoft Office 按钮”,然后单击

    关 键 字:EXCEL

    相关文章:

    Excel 加密文件

    Excel“公式求值”功能

    Excel标题跨列居中

    Excel表格边框设置

    Excel表格标题重复打印

    “Excel 选项”。

    2、单击“高级”,然后在“剪切、复制和粘贴”下,清除“显示粘贴选项按钮”复选框。

    将数据填充到相邻的单元格中

    您可以使用“填充”命令用相邻单元格或区域的内容填充活动单元格或选定区域,也可以通过拖动填充柄快速填充相邻的单元格。

    用相邻单元格的内容填充活动单元格

    1、选中包含要填充的数据的单元格上方、下方、左侧或右侧的一个空白单元格。

    2、在“开始”选项卡上的“编辑”组中,单击“填充”,然后单击“向下”、“向右”、“向上”或“向左”。

    提示 要用该单元格上方或左侧的单元格中的内容快速填充该单元格,可以按 Ctrl+D 或 Ctrl+R。

    拖动填充柄以将数据填充到相邻的单元格中

    1、选择包含您要填充到相邻单元格中的数据的单元格。

    2、将填充柄拖过要填充的单元格。

    3、要选择填充所选内容的方式,请单击“自动填充选项”,然后单击所需的选项。

    注释 如果在向上或向左拖动选定区域上的填充柄时停留在所选单元格中,而没有将其拖出选定区域的第一行或第一列,则 Excel 将删除选定区域中的数据。因此,必须将填充柄拖出选定区域之外,然后再释放鼠标按钮。

    将公式填充到相邻的单元格中

    1、选择包含您要填充到相邻单元格中的公式的单元格。

    2、将填充柄拖过要填充的单元格。

    3、要选择填充所选内容的方式,请单击“自动填充选项”,然后单击所需的选项。

    提示

    ·您还可以通过使用“填充”命令(在“开始”选项卡上的“编辑”组中)用相邻单元格的公式填充活动单元格,或通过按 Ctrl+D 或 Ctrl+R 填充包含公式的单元格下方或右侧的单元格。

    ·对于应用某公式的所有相邻单元格,您可以自动向下填充该公式,方法是双击包含公式的第一个单元格的填充柄。例如,在单元格 A1:A15 和 B1:B15 中含有数字,并且您在单元格 C1 中键入公式 =A1+B1。要将该公式复制到单元格 C2:C15 中,请选中单元格 C1 并双击填充柄。

    填充数字、日期序列或其他内置序列项目

    使用填充柄,您可以快速用数字或日期序列或者日、工作日、月或年的内置序列填充某区域中的单元格。

    1、选择需要填充的区域中的第一个单元格。

    2、键入序列的起始值。

    3、在下一个单元格中键入值以建立模式。

    例如,如果您要使用序列 1、2、3、4、5……,请在前两个单元格中键入 1 和 2。如果要使用序列 2、4、6、8……,请键入 2 和 4。如果要使用序列 2、2、2、2……,可以保留第二个单元格为空。

    可填充的序列的更多示例

    当填充序列时,选定的内容会扩展,如下表中

    关 键 字:EXCEL

    相关文章:

    Excel 加密文件

    Excel“公式求值”功能

    Excel标题跨列居中

    Excel表格边框设置

    Excel表格标题重复打印

    所示,在Excel工作表单元格中自动输入数据EXCEL基本教程》(https://www.unjs.com)。用逗号分隔的各项放置到各个相邻单元格中。

    初始选择扩展序列1, 2, 34, 5, 6,...9:0010:00, 11:00, 12:00,...周一周二, 周三, 周四,...星期一星期二, 星期三, 星期四,...一月二月, 三月, 四月,...一月, 四月七月, 十月, 一月,...1999 年 1 月, 1999 年 4 月1999 年 7 月, 1999 年 10 月, 2000 年 1 月,...1 月 15 日, 4 月 15 日7 月 15 日, 10 月 15 日,...1999, 20002001, 2002, 2003,...1 月 1 日, 3 月 1 日5 月 1 日, 7 月 1 日, 9 月 1 日,...Qtr3(或 Q3 或 Quarter3)Qtr4, Qtr1, Qtr2,...文本1, 文本A文本1, 文本A, 文本3, 文本A,...第 1 阶段第 2 阶段, 第 3 阶段,...产品 1产品 2, 产品 3,...

    4、选定包含初始值的单元格。

    5、将填充柄拖过要填充的区域。

    要按升序填充,请从上到下或从左到右拖动。要按降序填充,请从下到上或从右到左拖动。

    提示

    ·也可以指定序列类型,方法是先按住鼠标右键,再拖动填充柄,在到达填充区域之上时,单击快捷菜单 (快捷菜单:显示与特定项目相关的一列命令的菜单。要显示快捷菜单,请用右键单击某一项目或按下 Shift+F10。)中的适当命令。例如,如果初始值为 JAN-2002,则单击“以月填充”将生成序列 FEB-2002、MAR-2002 等等;单击“以年填充”将生成序列 JAN-2003、JAN-2004 等等。

    ·如果选定区域包含数字,您可以控制要创建的序列的类型。

    如何用数字序列填充单元格

    1、在“开始”选项卡上的“编辑”组中,单击“填充”,然后单击“序列”。

    2、在“类型”下,单击下列选项之一:

    单击“等差序列”,获得对每个单元格值依次添加“步长值”框中的值而计算出的序列。

    单击“等比序列”,获得将“步长值”框中的值依次与每个单元格值相乘而计算出的序列。

    单击“日期”,获得按照“步长值”框中的值以递增方式填充数据值的序列,该序列采用在“日期单位”下指定的单位。

    单击“自动填充”,获得在拖动填充柄产生相同结果的序列。

    ·您可以禁止“自动填充”,方法是按住 Ctrl 同时拖动选定两个或更多单元格的填充柄。选定的值就复制到了相邻的单元格,并且 Excel 不扩展序列。

    使用自定义填充序列填充数据

    为了更轻松地输入特定的数据序列(如名称或销售区域的列表),您可以创建自定义填充序列。自定义填充序列可以基于工作表中已有项目的列表,您也可以从头开始键入列表。您不能编辑或删除内置填充序列(如月和日的填充序列),但是可以编辑或删除自定义填充序列。

    注释 自定义列表只可以包含文字或混合数字的文本。对于只包含数字的自定义列表,如从 0 到 100,您必须首先创建一个设置为文本格式的数字列表。

    如何将数字设置为文本格式

    1、为要设置为文本格式的数字列表选择足够的单元格。

    2、在“开始”选项卡上的“数字”组中,单击“数字格式”框旁边的箭头,然后单击“文本”。

    关 键 字:EXCEL

    相关文章:

    Excel 加密文件

    Excel“公式求值”功能

    Excel标题跨列居中

    Excel表格边框设置

    Excel表格标题重复打印

    提示 您可能必须单击“更多”才能看到“文本”。

    3、在已经设置格式的单元格中,键入数字列表。

    使用基于现有项目列表的自定义填充序列

    1、在工作表中,选择要在填充序列中使用的项目列表。

    2、单击“Microsoft Office 按钮”,然后单击“Excel 选项”。

    3、单击“常用”,然后在“使用 Excel 时采用的首选项”下单击“编辑自定义列表”。

    4、确认所选项目列表的单元格引用显示在“从单元格中导入序列”框中,然后单击“导入”。所选的列表中的项目将添加到“自定义序列”框中。

    5、单击“确定”两次。

    6、在工作表中,单击一个单元格,然后在自定义填充序列中键入要用作列表初始值的项目。

    7、将填充柄拖过要填充的单元格。

    使用基于新的项目列表的自定义填充序列

    1、单击“Microsoft Office 按钮”,然后单击“Excel 选项”。

    2、单击“常用”,然后在“使用 Excel 时采用的首选项”下单击“编辑自定义列表”。

    3、单击“自定义序列”框中的“新序列”,然后在“输入序列”框中键入各个项,从第一个项开始。在键入每个项后,按 Enter。

    4、当列表完成后,单击“添加”,然后单击“确定”两次。

    5、在工作表中,单击一个单元格,然后在自定义填充序列中键入要用作列表初始值的项目。

    6、将填充柄拖过要填充的单元格。

    编辑或删除自定义填充序列

    1、单击“Microsoft Office 按钮”,然后单击“Excel 选项”。

    2、单击“常用”类别,然后在“使用 Excel 时采用的首选项”下单击“编辑自定义列表”。

    3、在“自定义序列”框中,选择要编辑或删除的列表,然后执行下列操作之一:

    ·要编辑填充序列,请在“输入序列”框中进行所需的更改,然后单击“添加”。

    ·要删除填充序列,请单击“删除”。

    关 键 字:EXCEL

    相关文章:

    Excel 加密文件

    Excel“公式求值”功能

    Excel标题跨列居中

    Excel表格边框设置

    Excel表格标题重复打印

    展开全文
  • 来自工作表单元格Excel按钮文本 (Excel Button Text from Worksheet Cell) If you have buttons or shapes on an Excel worksheet, you can get their caption text from a worksheet cell, so the text changes, ...
  • 通过单元格名称(如 A1,B3 等)sheet对象上直接访问单元格。 >>> import openpyxl >>> wb = openpyxl.load_workbook('example.xlsx') >>> sheet = wb.get_sheet_by_name('Sheet1') &...
  • 下面是sheet1中,J1单元格中建立一个函数得到需要的值,建立副本,将J1的值赋给文件名,保存文件。 Sub copybook() ’ ’ copybook 宏 ’ ’ Sheets(“sheet1”).Select Range(“J1”).Select ActiveCell....
  • Excel 文件操作 一、概述 本质就是操作 workbook window 文件窗口 一个 excel 文件对应一个 workbook,打开后对应一个文件窗口 Windows(1).Visible = True 二、基本操作 1、判断文件是否存在和打开 是否存在:...
  • 在单元格区域循环 参阅特性使用 Visual Basic 时,经常需要对某一单元格区域内的每个单元格运行同一段语句。为达到这一目的,可组合循环语句和一个或多个方法来标识每个单元格,一次针对一个单元格,并执行该操作...
  • Excel中单元格引用

    2019-09-25 07:11:04
    Excel中工作表(Worksheet)是由一系列行和列组成的二维表,当我们使用Excel创建应用程序(例如编写VBA代码),或者创建一个复杂的Excel应用(例如公式、数据透视表、统计图表等)时,需要引用独立的Excel单元格...
  • 加载excel name_list = workbook.sheetnames# 所有sheet的名字 worksheet = workbook[name_list[0]]# 读取第一个工作表 # 获取所有 合并单元格的 位置信息 # 是个可迭代对象,单个对象类型:openpyxl.worksheet.cell...
  • Excel VBA 中单元格选取

    万次阅读 2017-05-14 00:34:24
    '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 '2 表示相邻单元格区域 Sub d() '
  • 在Excel表中,我们经常使用Excel公式对一些报表或数据等进行计数. 这时,必须使用加,减,乘和除. 我们已经前面详细解释了Excel求和和查找. 如何使用差异公式. 那么,我们如何使用公式将一些数据相乘呢?如何快速...
  • 在Excel单元格中产生随机数

    万次阅读 2013-11-10 23:05:42
    电子表格RAND()函数的取值范围是0到1,公式如下: =RAND()   如果取值范围是1到2,公式如下: =RAND()*(2-1)+1 ...生成一随机数,并且使之不随单元格计算而改变,可以编辑栏输入“=RAND
  • 如图所示,该为某公司员工的工资。现公司政策调整,需要将所有员工的补贴统一为200元,该如何用VBA实现? 员工编号 姓名 基本工资 补贴 0006 程建华 2875 0 0009 李国敏 3050 ....
  • 每个表中的内容如下: 【Target】:将这100个表格整合到一个汇总表中去。 代码如下: import requests import openpyxl import xlrd import xlwt wb=openpyxl.Workbook() #创建工作薄 sheet=wb.active #获取工作薄...
  • 有朋友要求Excel工作表的A1单元格和B1单元格中有两个数字,这两个数字有一部分相同,现在要找出其中相同的数字并写入单元格C1,找出A1中有而B1中没有的数字并写入单元格D1,找出B1中有而A1中没有的数字并写入单元格...
  • c#操作Excel模板,替换命名单元格或关键字形成报表 http://blog.sina.com.cn/s/blog_45eaa01a0102vqma.html一 建立Excel 模板文件 template.xls 1.1 插入命名单元格的方法: 左上角名称框,显示当前单元格的...
  • Excel工作表保护密码清除

    千次阅读 2011-09-07 12:53:10
    Excel工作表保护密码清除 发稿时间:2009-6-2 16:47:25 阅读次数:3892 责任编辑:金子 【字号 大  小 】 【打印】 【关闭】   Excel工作表保护密码清除   1,打开...
  • excel函数里偏移单元格 30天的30个Excel函数:26 –偏移 (30 Excel Functions in 30 Days: 26 – OFFSET)Yesterday, in the 30XL30D challenge, we changed text strings with the REPLACE function, and learned ...
  • 用python的openpyxl库读取excel工作表,批量建立工作表,批量修改标题,批量设置单元格样式,批量调整打印设置。 文章目录用python的openpyxl库实现对excel工作表的自动化操作一、提出问题二、分析问题1.公交线路...
  • 转自:http://hi.baidu.com/imecho/blog/item/0deec5ddb7e3df365882dd13.html 在单元格区域循环使用 Visual Basic 时,经常需要对某一单元格区域内的每个单元格运行同一段...在单元格区域循环的一种方法是将 Fo
  • asp.net webwofrm后台代码----------建议Framework4.0及...我的是 office2003,引用的COM里面的Microsoft.office.Interop.Excel 14.0 和 程序集里的Microsoft Excel 12.0 Object Library。有多个版本,根据自己的of...

空空如也

空空如也

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

在excel工作表中c1单元格