excel,用vba调用别的表格

excel,用vba调用别的表
格
篇一：在Excel中,怎样直接引用另一个表格的数据？
在Excel中怎样直接引用另一个表格的数据？
在Excel中经需要一个表格直接引用另一个表格的数据，进行复制粘贴没有对应的生成功能（也就是若是复制的数据，原数据变化了，复制的数据不会变化），若采用以下的步骤操作可以解决这个烦恼：
1.同时打开两个表格，在其中一个表格（表1如：《年级前100名》）的某空白单元输入“=” ；
2.在另一个表格（表2如：《八年级成绩册、分析表配套模板设计》）点一下所需要引用的数据；
3.然后回车（必须按回车，这一点很重要！）；
4.返回表1就可以看到刚才输入“=”的单元格的引用的表2数据；
5.再次单击该单元格，就可以在公式栏看到“=八年级成绩册、分析表配套模板设计!D4” ；或“=八年级成绩册、分析表配套模板设计!$D$4”；
6.若公式里的序号中生成插入了“$’（在同一工作薄中电子表格之间的相互引用则序号不会生成“$”，在不同工作薄中电子表格的相互引用则有“$”）,则将“$”符号删除掉；
7.将鼠标指向该单元格的右下角，呈黑“+”字型，双击或拖移“复制”出其它数据.
值得注意的是：
①.可以向下、向左或整体拖移出其它引用表（如上列中表2）相对应的数据；．．．
②.引用表2的数据（表2的相应的数据）发生变化，则表1的数据也要发生相应的变化;
③.若关闭或删除或恢复表2，则打开表1会有“更新”还是“不更新”的提示. “更新”就是要随现有的数据的变化而变化，不更新”就是保留原引用的数据；④.引用时要注意是否有合并和拆分单元格的情况.引用只能引用数据，不能引用文本格式，“输入”数据的单元格是是什么文本格式，引入的数据就是什么文本格式.
⑤.在同一表格中要“引用”也是和上面的操作是一样的.即单元格输入“=”→选定要引用的单元格→回车.若采用复制只能“复制” 数值或含公式的数值，数值没有对应的生成功能，而公式计算范围的序列号会平行上下左右等距离的位移.
郑宗平2015/5/17
篇二：VBA代码中引用Excel工作表中单元格区域的方式
小结
在VBA代码中引用Excel工作表中单元格区域的方式小结
问题一：在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) Ran ge(“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) 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代码中，如何引用工作表中的特定单元格区域？
回答：在工作表中，您可能使用过“定位条件”对话框。

可以通过选择菜单“编辑——定位”，单击“定位”对话框中的“定位条件”按钮显示该对话框。

这个对话框可以允许用户选择特定的单元格。

例如：
(1) Worksheets(sheet1).Cells.SpecialCells(xlCellTypeAllFormat Conditions)，表示工作表sheet1中由带有条件格式的单元格所组成的区域。

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

当然，还有很多常量和值的组合，可以让您实现特定单元
格的查找并引用。

参见《探讨在工作表中找到最后一行》一文。

-------------------------------------------------------------------------------- 问题十四：在VBA代码中，如何引用其它工作表或其它工作簿中的单元格区域？
回答：要引用其它工作表或其它工作簿中的单元格区域，只需在单元格对象前加上相应的引
用对象即可，例如：
(1) Worksheets(“Sheet3”).Range(“C3:D5”)，表示引用工作表sheet3中的单元格区域C3:D5。

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

-------------------------------------------------------------------------------- 问题十五：还有其它的一些情形吗？
回答：列举如下：
(1) Cells(15)，表示单元格O1，即可在Cells属性中指定单元格数字来选择单元格，其计数顺序为自左至右、从上到下，又如Cells(257)，表示单元格B1。

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

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

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

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

找到最后一行的一些方法探讨
使用End属性
在ExcelVBA中，使用End(xlUp)查找最后一行是最常使用且最为简单的方法，它假设要有一列总包含有数据(数字、文本和公式等)，并且在该列中最后输入数据的单元格的下一行不会包含数据，因此不必担心会覆盖掉已有数据。

但该方
法有两个缺点：
(1) 仅局限于查找指定列的最后一行。

(2) 如果该列中最后一行被隐藏，那么该隐藏行将被视作最后一行。

因此，在最后一行被隐藏时，其数据可能会被覆盖。

但该列中间的隐藏行不会影响查找的结果。

[示例代码01]
Sub EndxlUp_OneColLastRow()
If Range(A & Rows.Count).End(xlUp) = Empty Then GoT o Finish
'获取最后一行
MsgBox 最后一行是第& Range(A & Rows.Count).End(xlUp).Row & “行.”Exit Sub
Finish:
MsgBox 没有发现公式或数据!
End Sub
[示例代码02]
Sub NextRowInColumnUsedAsSub()
'包含所有数据和公式，忽略隐藏的最后一行
篇三：VBA技巧21引用工作表的方式
技巧1 引用工作表的方式
VBA中，在不同的工作表之间转换或者对不同工作表中的单元格区域进行操作时，需要指定引用的工作表，通常有
下面几种方法：
1-1 使用工作表的名称
工作表名称是指显示在工作表标签中的文本，工作表名称可以使用WorkSheets集合和Sheets集合两种引用方式，如下面的代码所示。

#001 Sub ShActivate()
#002Worksheets(索引号).Activate
#003'Sheets(索引号).Activate
#004 End Sub
第3、4行代码都激活工作簿中名称为“索引号”的工作表，激活后“索引号”工作表将成为活动工作表。

WorkSheets集合包含所有的工作表，而Sheets集合不仅包含工作表集合WorkSheets，还包含图表集合Charts、宏表集合Excel4MacroSheets与MS Excel 5.0对话框集合DialogSheets等。

任何时刻工作簿中只有一个工作表是活动工作表。

1-2 使用工作表的索引号
工作表索引号是指工作表在工作簿中的位置，Excel根据工作表在工作表标签中的位置以1开始从左向右进行编号。

下面的代码选中并激活当前工作簿中第1个工作表：#001 Sub ShIndex()
#002Worksheets(1).Select
#003 End Sub
单个WorkSheet对象的Select方法与Activate方法的主要区别在于Select方法要求工作表可视。

注意当工作簿包括工作表、宏表、图表等时，使用索引号引用工作表如Sheets(1)与
WorkSheets(1)引用的可能不是同一个表。

使用Worksheet对象的Index属性可以返回工作表的索引号，如下面的代码所示。

#001 Sub ShInde()
#002MsgBox Worksheets(索引号).Index
#003 End Sub
1-3 使用工作表的代码名称
使用Worksheet对象的CodeName属性可以返回工作表的代码名称，如下面的代码所示。

#001 Sub ShCodeName()
#002MsgBox Sheets(1).CodeName
#003 End Sub
工作表的代码名称显示在VBE工程资源管理器窗口中，在属性窗口中能够修改工作表代码名称，如图1-1所示。

在VBA中能够直接使用工作表的代码名称引用工作表，即使工作表的名称被修改，代码仍然能够正常运行。

图1-1 工作表的代码名称
1-4 使用ActiveSheet属性引用活动工作表
使用ActiveSheet属性可以返回活动工作表，如下面的代
码所示。

#001 Sub ShActive()
#002MsgBox
#003 End Sub
ActiveSheet属性应用于AppActivate对象、Window对象和Workbook对象时，如果未给出对象识别符，返回活动工作簿中的活动工作表。