Excel如何实现两个工作表数据的对比

Excel如何实现数据的对比呢？在利用Excel处理记录时，我们通过会面对一种情况，就是将两张工作表进行对比，以便从中找出不同记录或数据。此时情况特别适合验证信息的完整性以及检验数据的差异性方法。下面小编就为大家讲解一下具体的实现方法。

方法/步骤

1. 1

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

2. 2

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

3. 3

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

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

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

4. 4

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

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

5. 5

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

6. 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. 7

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

8. 8

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

   END

打开“开发工具”选项卡的方法

1. 点击“Office”按钮，从弹出的菜单中选择“Excel选项”按钮。

2. 接着在打开的窗口中勾选“在功能区显示‘开发工具’选择卡”项即可。

Cells(1, 1).Font.ColorIndex = 3 '字的颜色号为3 红色
Cells(1, 1).Interior.ColorIndex = 3 ' 背景的颜色为3 红色
Cells(2, 1).Font.Color = RGB(0, 255, 0) '字的颜色绿色
Cells(2, 1).Interior.Color = RGB(0, 0, 255) '背景的颜色蓝色

Sub compare()

Dim i As Integer

Dim j As Integer

For i = 3 To 114 'Sheet1

For j = 1 To 74 'Sheet2

If Sheets("Sheet1").Cells(i, 2) = Sheets("线上数据").Cells(j, 3) Then

If Sheets("Sheet1").Cells(i, 3) = Sheets("线上数据").Cells(j, 2) Then

Sheets("Sheet1").Cells(i, 4) = "在线上查到数据了" '存在时进行标记
Sheets("Sheet1").Cells(i, 4).Font.ColorIndex = 10
Sheets("Sheet1").Cells(i, 4).Interior.ColorIndex = 2
End If

End If

Next j

Next i

End Sub