如何在一个excel表格中查找与另一个表格对应的数据

Posted 2023-04-06

一般使用vlookup函数:

vlookup函数通俗的解释如下:
vlookup(要在目标区域第一列查找的值,目标区域,要返回的值在目标区域的哪一列,如果已排序可以使用模糊查找1否则精确查找0)
比如
=vlookup("联想公司",sheet2!B:Z,5,0)
在sheet2的B到Z列的第一列即B列查找"联想公司",找到后返回相同行号并且在B:Z列的第5列数据,即F列对应行的数据. 参考技术A 可以使用VLOOKUP
函数，说明如下：
1、如果需要按行查找表或区域中的内容，请使用
VLOOKUP，这是一个查找和引用函数。
2、语法：VLOOKUP
(lookup_value,
table_array,
col_index_num,
[range_lookup])
3、例如：
=VLOOKUP(105,A2:C7,2,TRUE)
=VLOOKUP("袁",B2:E7,2,FALSE)
4、说明：
lookup_value
（必需参数）：
要查找的值。要查找的值必须位于
table-array
中指定的单元格区域的第一列中。
例如，如果
table-array
指定的单元格为
B2:D7，则
lookup_value
必须位于列
B
中。请参见下图。Lookup_value
可以是值，也可以是单元格引用。
Table_array
（必需参数）
VLOOKUP
在其中搜索
lookup_value
和返回值的单元格区域。
该单元格区域中的第一列必须包含
lookup_value（例如，下图中的“姓氏”）。此单元格区域中还需要包含您要查找的返回值（例如，下图中的“名字”）。
了解如何选择工作表中的区域。
col_index_num
（必需参数）
其中包含返回值的单元格的编号（table-array
最左侧单元格为
1
开始编号）。
range_lookup
（可选参数）
一个逻辑值，指定希望
VLOOKUP
查找精确匹配值还是近似匹配值：
TRUE
假定表中的第一列按数字或字母排序，然后搜索最接近的值。这是未指定值时的默认方法。
FALSE
在第一列中搜索精确值。 参考技术B 不知你的意思在同一个文档的不同sheet中查找还是在不同的文档中查找？
不用sheet时用vlookup，不同文档使用时要加上路径 参考技术C 用VLOOKUP函数 看一下EXCEL帮助的例子就可以学会的 参考技术D VLOOKUP（条件，路径，第几行，false）
HLOOKUP（条件，路径，第几列，false）

VBS，怎样根据内容来查找excel中对应的位置？

例如：表格中有值为123，我要找到表格中所有值为123的位置？
不是在excel中查找，我是问用vbs怎样来实现

在excel中有多种多样的公式可以实现，列举常用几个如下：

lookup, 举例：=LOOKUP(E2,$A$2:$B$5), 注意lookup如果在源数据中未查找到对应项，会返回比对应项小的项对应的数值。

vlookup, 举例：=VLOOKUP(E2,$A$2:$B$5,2,)，注意公式最后一个逗号不可省略，省略后结果与lookup相同，为模糊查找。

index, 举例：=INDEX($B$2:$B$5,MATCH(E2,$A$2:$A$5,0))， 注意match的第三参数，为0则表示精确查找，1或-1表示模糊查询。

offset, 所有用index可以完成的事情都可以用offset来达到同样的效果，举例：=OFFSET($A$2:$B$5,MATCH(E2,$A$2:$A$5,0)-1,1,1,1)

indirect，举例：=INDIRECT("B"&MATCH(E2,$A$1:$A$5,0))，3/4/5三个公式中都用到了match来定位查找数据在源数据中的位置。

参考技术A set oExcel = CreateObject( "Excel.Application" )
oExcel.Visible = false
'4) 打开已存在的工作簿：
oExcel.WorkBooks.Open( "C:\Documents and Settings\Administrator\桌面\Book1.xls" )
'5) 设置第1个工作表为活动工作表：
oExcel.WorkSheets(1).Activate
i = 1
do while oExcel.Cells(i,1).Value <> "" '查找A列中所有的单元格
if oExcel.Cells(i,1).Value = 1 then 'i是行，1是列
oExcel.Cells(i,1).font.color = vbred '设置字体底色为红色
msgbox "行"&i &"列1"
end if
i = i+1
loop
oExcel.ActiveWorkBook.Save
oExcel.WorkBooks.Close
oExcel.Quit
set oExcel = nothing
msgbox "操作完成"
你试一下看看本回答被提问者采纳 参考技术B ctrl+F 输入123，点击查找