excel两个文件对照的问题
发布网友
发布时间：2022-10-18 20:55
我来回答
共4个回答
热心网友
时间：2024-03-18 11:11
1、将两个文件内容复制到一个文件中，其中工作表Sheet1对应原文件1，Sheet2对应原文件2。
2、在Sheet2的D、E、F三列设置以下公式：
E1=IF(ISERROR(VLOOKUP(A1,Sheet1!A:B,2,0)),"",VLOOKUP(A1,Sheet1!A:B,2,0))
F1=IF(ISERROR(VLOOKUP(A1,Sheet1!A:B,3,0)),"",VLOOKUP(A1,Sheet1!A:B,3,0))
D1=if(E1="","",A1)
依次往下填充
3、最终结果：
凡是在文件1中查找到与文件2姓名相同的，则将文件1中该人信息复制到文件2中，并且在D、E、F三行列出，若未查找到该人，则对应的D、E、F三列为空。
热心网友
时间：2024-03-18 11:11
你为什么要做两个文件呢？在同一个文件两个工个表做就可用工式填充了嘛
用vlookup函数,具体用法请看帮助。
举例：
假定SHEET1为完整的工作表，A列为姓名，B列为出生时间，等等；现在要在SHEET2工作表的B2单元格输入姓名后，让C2单元格自动出现该人员的出生时间，请在SHEET2的C2单元格输入公式：
=IF(ISERROR(VLOOKUP(B2,SHEET1!A:B,2,0)),"",VLOOKUP(B2,SHEET1!A:B,2,0))
热心网友
时间：2024-03-18 11:12
Hi我，详细解答
热心网友
时间：2024-03-18 11:12
你好,让我来帮你吧
你先把两个表格合并，新建表格3，并将3个表格保存在同一个文件夹里面，在表格3里SHEET1点 工具-宏，随便取个宏名，点创建，再粘贴以下代码：
Sub CombineWorkbooks()
Dim FilesToOpen
Dim x As Integer
On Error GoTo ErrHandler
Application.ScreenUpdating = False
FilesToOpen = Application.GetOpenFilename _
(FileFilter:="MicroSoft Excel文件(*.xls),*.xls", _
MultiSelect:=True, Title:="要合并的文件")
If TypeName(FilesToOpen) = "Boolean" Then
MsgBox "没有选中文件"
GoTo ExitHandler
End If
x = 1
While x <= UBound(FilesToOpen)
Workbooks.Open Filename:=FilesToOpen(x)
Sheets().Move after:=ThisWorkbook.Sheets _
(ThisWorkbook.Sheets.Count)
x = x + 1
Wend
ExitHandler:
Application.ScreenUpdating = True
Exit Sub
ErrHandler:
MsgBox Err.Description
Resume ExitHandler
End Sub
保存运行一下就可以合并了
问题2，找出合并好的表格里面姓名相同的内容，在G2，H2，I2里面分别输入
=if(a2=d:d,a2,"")
=if(a2=d:d,b2,"")
=if(a2=d:d,c2,"")
然后下接复制就可以了
