1、♔ ♕ ♖ ♚ ♛ ♜ ☀ ☁ ☂ ☃ ☼ ☽ ☾ ♨ ❄ ❅ ❆ ★ ☆ ✦ ✪ ✫ ✿ ❀ ❁ ♥ ❤ ღ ☑ ✔ ✘ ㄨ ✖ ✉ ☎ ♂ ♀ 웃 유 ☣ ☤ ⌘ ༄ ☯ ☭ ❧ ⚘ ✍ ✎ ✑ ✂ ✄ ☹ ☺ ☻ ☪ ❂ ☬ ☸ ♆ ☩ ◙ ❦ ☸ ♠ ♣ ♥ ♤ ♡ ❤ ❥ ❣ ❇ ❈ ❊ ✳ ✴ ✻
2、点选“工具”选项后，我们再从其下拉菜单中选择“备份管理”
3、接着切换到表格1中，在表格1中也输入姓名列，这是一定要与表格2的顺序不相同，然后在B1单元格中输入提取相同姓名的公式：=VLOOKUP(A1,Sheet2!$A$1:$B$5,2,FALSE)。
4、在表3A2单元格输入=IF(ISNA(MATCH(表2!$A2,表1!$A:$A,0)),"DELETTHISROW",表2!A2)2、选定表3A2单元格，待光标变成黑十字后，按住往后拉到E2再松开3、将表3A2至E2选定，待光标变成黑十字后，按住往下拉到需要位置再松开4、重复的姓名就都显示出来了。二、excel2007可用筛选不重复记录也行。
5、Application.DisplayAlerts=False'关闭警告和消息
6、Setth=ThisWorkbook
7、最后点击表格1中的B1单元格的公式向下填充，就可以批量将所有姓名对应的数据从表格2中提取到表格1中了。
8、EndSub
9、现在这个名为“doc”的函数就建好了，接下来就是通过随便什么方法（index，offset）把所需的文件名调出来就OK了，例如=INDEX(doc,ROW())然后往下拉……效果如下：
10、出现重号，只要到户口所在的派出所开具居民身份证号码变更证明，再到户政大厅申请新证。如果异地出现重号，其中一方只能通过当地的户籍系统来查询另一人信息，通过双方协调解决，其中必须有一方更改其身份证号码。 如果协调不成，则遵循以下原则：制证库中有记录者，其号码优先保留，无制证记录的人重新编号；迁移人员回原籍较难，优先保留原号，未迁移人员重新编号，重号两人都属迁移人员的，迁移距离较远者优先保留原号。
11、wb.Close
12、选择“备份管理”后，我们发现编辑窗口右侧出现一个备份管理的小界面，这里我们点击“查看其他备份”选项
13、第一步，打开“此电脑”。
14、m=Left(f,InStrRev(f,".")-1)
15、Application.ScreenUpdating=True'恢复刷屏
16、windows查看文件后缀名的步骤如下：
17、Application.DisplayAlerts=True
18、按序号排序，复制两个姓名列，粘贴回原表即可。
19、答：在文件夹下新建一个excel文件，新建个宏输入下面的vba代码，点运行宏，再把你新建的那个excel文件删除。
20、按D列排序。重复项都到一起了，选中删除。
21、oldpath=th.Path&"\"&m&".xls"
22、先要在表格2中输入姓名和数字。
23、f=Dir
24、Application.ScreenUpdating=False'关闭刷屏
25、将名单复制到excel中，并在另一列加上表的编号，对姓名进行筛选不重复内容。再复制粘贴回word各自的名单中即可。
26、点击后，会弹出窗口，窗口里就有我们覆盖的表格了，这里就是备份文件了
27、Loop
28、第四步，完成上述操作之后，打开一个磁盘，创建两个名字相同且后缀不同的文件，这样子就实现了同一文件夹下同时存在两个相同文件名的文件了。
29、例:第一行是标题，A1是账号，B1是姓名，C1人口，还有D1，E1两个表格格式相同都是5000多列，两个表格里有大量姓名相同的，怎么把两个表格里名字相同的内容筛选出来一、公式法：
30、Setwb=Workbooks.Open(th.Path&"\"&f)
31、Kill(oldpath)'删除原工作簿
32、༺࿈༻、❀༒❀、༺༽༾ཊ࿈ཏ༿༼༻、༺❀ൢ༒ൢ❀༻、༺ཌ༈༒༈ད༻、༺༒༻、༺࿈༻、❀༒❀、༺༽༾ཊ࿈ཏ༿༼༻、༺❀ൢ༒ൢ❀༻、༺ཌ༈༒༈ད༻
33、wb.SaveAs(th.Path&"\"&m&t&".xls")'保存为新工作薄
34、当同名表格覆盖后，首先我们在第一时间创建一个新的表格
35、第二步，打开之后，点击左上角的“查看选项”。
36、DimfAsString,wbAsWorkbook,thAsWorkbook,tAsString,mAsString,oldpathAsString
37、t=InputBox("输入工作簿名称后需要添加的内容")
38、然后按回车键就可以看到在表格1中已经将“姓名1”对应在表格2中的数据提取显示出来了。
39、DoWhilef>""
40、组合键Ctrl+F3，召唤名称管理器点击新建，创建一个files宏表函数星号(*)前面是你的word文件存放的位置；
41、新建一个excel表格；
42、Sub批量添加修改同目录下工作薄名称()
43、EndIf
44、所有文件名字都出来了，之后的筛选我相信楼主你行的！
45、f=Dir(th.Path&"\*.xls")'获取文件夹地址许同一个版本：xls
46、介绍一个使用Excel宏表函数，实现查找文件名的方法：
47、Iff<>th.NameThen'判断是否为当前工作表
48、windows系统中是不允许同一文件夹下出现相同的文件的，若出现了这个问题那么肯定是因为这两个同名文件的格式不同，只有格式不同的两个同名文件才可以同时存在。
49、创建好表格后，点击打开它，进入编辑窗口
50、进入编辑窗口后，这时我们点击工具栏中的“工具”选项
51、左边插入一个序号列，右边增加一个辅助列，在D2输入=IF(B2=C2,1,0)，往下填充。
52、第三步，在查看选项的右侧有一个“文件扩展名”，勾选它，这样就会显示文件的后缀名称了。
53、先把两个姓名列复制到新表。
54、这个是测试文件夹内容