两个文件合并成一个文件的 请教

w668

求助内容：

将a文件和b文件，或是同一个工作簿下的不同工作表sheet和sheet1，按照相同姓名合并成一个文件（姓名排序不同要能识别姓名后对应合并）

1、现有两个文件a和b  或是同一个文件下的不同工作表sheet和sheet1

2、两个文件中只有姓名相同（但排序不同），其他列内容不同。
3、能不能按照   相同姓名合并（合并 不同列的列内容）



sheet&sheet1按照姓名合并成一个文件求助.rar (10.28 KB, 下载次数: 20)

2024-10-14 15:30 上传

点击文件名下载附件

w668

本表   数据菜单中选择合并计算     身份证号，性别合后没有内容，

autohotey

供参考

1. 
   
2. Sub 增加()
   
3.     Dim se As Boolean
   
4.     Dim ws As Worksheet
   
5.     For Each ws In Worksheets
   
6.         If ws.Name = "结果" Then
   
7.             se = True
   
8.             Exit For
   
9.         End If
   
10.     Next ws
    
11.    
    
12.     If se Then
    
13.         Application.DisplayAlerts = False
    
14.         Sheets("结果").Delete
    
15.         Application.DisplayAlerts = True
    
16.     End If
    
17.    
    
18.     Sheets("Sheet1").Copy After:=Sheets(Sheets.Count)
    
19.     ActiveSheet.Name = "结果"
    
20.    
    
21.     With Sheets("结果")
    
22.         .Columns("D").NumberFormat = "@"
    
23.         .Columns("D").ColumnWidth = 25
    
24.    
    
25.     Dim last1 As Long
    
26.     last1 = Sheets("结果").Cells(Rows.Count, 1).End(xlUp).Row
    
27.     Dim last2 As Long
    
28.     last2 = Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Row
    
29.    
    
30.     Dim i As Long
    
31.     For i = 1 To last1
    
32.         Dim sv As String
    
33.         sv = Sheets("结果").Cells(i, 1).Value
    
34.         Dim j As Long
    
35.         For j = 1 To last2
    
36.             If Sheets("Sheet2").Cells(j, 1).Value = sv Then
    
37.                 Sheets("结果").Cells(i, 4).Value = Sheets("Sheet2").Cells(j, 2).Value
    
38.                 Sheets("结果").Cells(i, 5).Value = Sheets("Sheet2").Cells(j, 3).Value
    
39.                 Sheets("结果").Cells(i, 6).Value = Sheets("Sheet2").Cells(j, 4).Value
    
40.                 Exit For
    
41.             End If
    
42.         Next j
    
43.     Next i
    
44.     End With
    
45. End Sub
    

复制代码

w668

autohotey 发表于 2024-10-14 15:56
供参考

没看懂     请问这个如何操作

autohotey

w668 发表于 2024-10-14 16:11
没看懂     请问这个如何操作

百度搜一下 宏程序使用

w668

autohotey 发表于 2024-10-14 16:14
百度搜一下 宏程序使用

谢谢，看来还要打点基础了

hxj119

PQ也是一个不错的选择，合并多个文件内容的

jiaxianwa

uneye2

A1=Sheet1!A1
D1=Sheet2!B1
D2=IFERROR(INDEX(Sheet2!B:B,MATCH($A2,Sheet2!$A:$A,)),"")

你是那块小饼干

用PQ 更好用点