在Excel中，怎样直接引用另一个表格的资料

Posted 2023-04-11

参考技术A

在Excel中，怎样直接引用另一个表格的资料

Excel中利用等于某个单元格，就可以直接引用另外一个表格的资料。
软体版本：Office2013
方法如下：
1.Sheet1中有如下资料：
2.在Sheet2中输入如下公式：
3.就实现了在Sheet2中直接引用Sheet1中的资料

同一个工作簿内不同表格之间的引用在用等号就可以。举个简单的例子：

直接用等号引用。sheet1的A1单元个引用sheet2表B1单元格（假设单元的值为5），可在sheet1的A1内输入先输入"="，然后用滑鼠点选sheet2表B1单元格，回车或点选编辑栏左侧的对号即可。这时sheet1的A1单元格就显示5，编辑栏显示公式：=Sheet2!B1。还可以引用多个工作表、多个单元格，如：=Sheet2!B1+Sheet2!C1+Sheet3!W2...

用函式引用。用VLOOKUP、sumif....，函式太多，可根据需要检视函式使用说明或网上搜索使用方法。

资料透视表。

通过VBA引用。

...

跨工作簿引用和这个类似。

使用Vlookup函式内容解析：
Lookup_value“唯一值”为需要在阵列第一列中查询作参考的关系数值，它可以是数值或文字串。比如:举例中的商品程式码列，一般是第一列的数值，作为唯一资料参考而用的。（本表格中）
Table_array“区域”：数值区域，如“A:D”，就是您所有想引用过来的资料（想要引用资料的表格）
Col_index_unm“列序号”：引用区域值里面的第一列，比如从A到D共有4列，我想引用B列数值过来，那么就选择2，因为B列在区域的第二列，其它也是这么推算
Range_lookup“逻辑值”：一般填TRUE或FALSE。指函式 VLOOKUP 返回时是精确匹配还还是近似匹配。 通常都是写false。
第一个单元格引用成功后，就往下拉（当单元格最右下角变实心，再往下拉，意思与上如同。）

怎么引用呢，如直接用另一个表的单元格数值，输入=需引用单元格地址，就可以了！

=VLOOKUP(A3,$L5:$N11,3,FALSE)
接下来在excel里面直接拖下来就变成了
=VLOOKUP(A3,$L5:$N11,3,FALSE)
=VLOOKUP(A4,$L6:$N12,3,FALSE)
=VLOOKUP(A5,$L7:$N13,3,FALSE)

方法很多哦，看你的引用情况，可以是函式公式，可以是巨集编制等等，，

请参考：

怎样用excel引用其他表格资料_百度经验

:jingyan.baidu./article/295430f1048ede0c7f00505f.

输入等于号后，用滑鼠点那个“另一个表格”的标签（在下面一排），再点要引用的资料所在的单元格后回车，直接引用就这么简单

如何在VB中调用EXCEL表格数据？

VB中有如下控件：Text1、Command1、Label1。在F盘根目录上有一个为1.xlsx的工作表，工作表的A列为身份证号码，B列为姓名。要求当单击Command1时，如果Text1与A列的身份证号码相同则在Label1上显示编号对应的姓名。

补充：经过调试，如果A列为简单的序号时，测试成功，但为身份证号码时则不行。我的代码如下，请看看错在哪里。
Private Sub Command1_Click()
Dim xlsApp As Excel.Application '声明对象变量
Set xlsApp = Excel.Application '实例化对象
xlsApp.Visible = False '使Excel隐藏不可见
xlsApp.Workbooks.Open ("F:\1.xls") '打开EXCEL文件，假设文件在c盘根目录
Dim i As Long
i = 1
Do While xlsApp.ActiveWorkbook.Sheets("sheet1").Cells(i, 1) <> ""
If xlsApp.ActiveWorkbook.Sheets("sheet1").Cells(i, 1).Value = Text1.Text Then
Label1.Caption = xlsApp.ActiveWorkbook.Sheets("sheet1").Cells(i, 2).Value
Exit Do
End If
i = i + 1
Loop
xlsApp.ActiveWorkbook.Close savechanges:=False '关闭活动工作簿同时不保存对它的更改。
xlsApp.Quit '关闭EXCELL
Set xlsApp = Nothing '释放资源
End Sub

1、打开VB-》在form1上增加一个command1按钮，双击command1按钮，把以下代码放入窗体内； 2、运行前，在菜单的选“工程”->“引用”->找到Microsoft Excel 12.0 Object Library->确定；然后才可以运行； 3、代码如下： Dim ExApp As New Excel.Application Dim Exb As Excel.Workbook Dim Exsh As Excel.Worksheet Dim arr(6, 6) As Integer \'定义一... 1、打开VB-》在form1上增加一个command1按钮，双击command1按钮，把以下代码放入窗体内；
2、运行前，在菜单的选“工程”->“引用”->找到Microsoft Excel 12.0 Object Library->确定；然后才可以运行；
3、代码如下：
Dim ExApp As New Excel.Application
Dim Exb As Excel.Workbook
Dim Exsh As Excel.Worksheet
Dim arr(6, 6) As Integer \'定义一个二维数组，数据类型为整数
ExApp.Workbooks.Open "c:\\book1.xls" \'打开EXEL文件，路径和文件名自己根据实际修改
Set Exb = ExApp.Workbooks(1)
Set Exsh = Exb.Worksheets("Sheet1")
For i = 1 To 6 \'假设是读取A1:F6的6X6区域数据
For j = 1 To 6
arr(i, j) = Exsh.Cells(i, j)
Next j
Next i
\'把自己需要对数组数据进一步处理的部分加进去...
ExApp.Workbooks.Close
ExApp.Quit
Set ExApp = Nothing 全部 参考技术A If xlsApp.ActiveWorkbook.Sheets("sheet1").Cells(i, 1).Value - Text1.Text = 0 Then本回答被提问者和网友采纳