怎样才能将两个Excel表格中的数据按关键字模糊比对出来

我有两张表格,内容都是单位名称,但是两个表格中,单位名称因录入不统一不规范导致有差异,现在想将两个表格中的重复名称(即同一单位但是名称录入时有差异)筛选出来。请高手帮忙,问题如果解决了,奖励50积分。
想上传文件给大家看,可是不知道怎么上传啊。简单说就是有两列数据,都是公司名称,但是即便是一个单位名称在两列数据中也是不同的,比如说农业银行这个名称,一个叫农业银行一个叫农行。现在就是想大家帮忙看能不能通过一种关键字查找的方式将两列数据同时过滤,将相同单位但不同名称的找出来。如果大家还是看不明白,请告诉我如何上传数据,我上传给大家看啊。

1.通过要进行对比的两个工作表或多个工作表位于不同的文件中,首先要做的就是当多个要进行对比的Excel工作表数据复制粘贴到同一个工作表中,同时做好各个工作表的命名准备,以便能正确的区分数据的来源。

2.接下来确定数据“关键字”部分,即能够唯一标识记录的关键字组合,这样就可以在进行数据对比时,能够唯一的标记一条记录。比如,如图所示的“ID”和“姓名”就可以唯一标识一条记录。

3.接下来,还要确定一下,各个工作表数据行的范围以及要进行对比的关键字所在的位置信息。如图可知,

员工基础报表中数据范围为“3至12行”,关键字所在的位置为(i行1列)和(i行2列)。

员工待遇统计表中数据范围为“3至11行”,关键字所在的位置为(i行1列)和(i行2列)。

4.要做的就是从表1中找出表2中已经存在的记录,并且做好相应的标记,以便供查看。为此,按键盘上的快捷组合键“Alt+F11”进入VBA编辑模式。或者切换至“开发工具”选项卡,点击“Visual Basic”按钮进入VBA环境。

有关“开发工具”选项卡的打开方法请参考栏目二部分。

5.右击“Microsoft Excel对象”,从弹出的右键菜单中选择“插入”->“模块”项。

6.接着输入如图所示的代码:

Sub 数据对比()

    Dim i As Integer

    Dim j As Integer    

    For i = 3 To 12        '员工基础报表数据范围

        For j = 3 To 11    '员工待遇统计表数据范围

         If Sheets("员工基础报表").Cells(i, 1) = Sheets("员工待遇统计表").Cells(j, 1) Then

            If Sheets("员工基础报表").Cells(i, 2) = Sheets("员工待遇统计表").Cells(j, 2) Then

               Sheets("员工基础报表").Cells(i, 8) = "已存在"   '存在时进行标记

            End If

         End If

        Next j

    Next i

End Sub


7.然后点击工具栏上的“调试运行”按钮。

8.待子过程运行结束后,返回Excel工作表进行查看,就会发现对比结果已经出来啦。基于此,可以进行更近一步的数据处理操作。顺便也将另一张工作表中的记录一同展示出来,以供参考。

温馨提示:答案为网友推荐,仅供参考
第1个回答  2009-09-02
vlookup模糊匹配

=vlookup(A1,sheet2!A:B,2,1)

因为没有具体,可否发我参详?

===============

可以发表格 看看么。 可以用match 或提取函数啊本回答被网友采纳
第2个回答  2009-09-02
什么样的差异呢?简称与全称,还是个别字不同,或是其他?

如果有个对照表,一切好解决。
第3个回答  2009-09-02
果然新手,还不知道怎么上传。
咋又知道用50分诱惑人呢?
相似回答