如果要进行比对的两个工作表或多个工作表位于不同的文件中，我们首先要做的就是把多个要进行比对的Excel工作表数据复制粘贴到同一个工作簿中，同时做好各个工作表的命名准备，以便能正确的区分数据的来源。
接下来确定数据“关键字”部分，即能够唯一标识记录的关键字组合，这样就可以在进行数据比对时，能够唯一的标记一条记录。比如，如图所示的“姓名”就可以唯一标识一条记录。
接下来，我们还要确定一下，各个工作表行的范围(要对比那些行)以及要进行对比的关键字所在的位置信息。如图可知，表0中数据范围为“2至37行”，关键字所在的位置为（i行4列）。表1中数据范围为“2至36行”，关键字所在的位置为（j行4列）。
在本经验中，我们所要做的就是从表1中找出表2中已经存在的记录，并且做好相应的标记，以便供查看。为此，按键盘上的快捷组合键“Alt+F11”进入VBA编辑模式。或者切换至“开发工具”选项卡，点击“Visual Basic”按钮进入VBA环境。
右击“Microsoft Excel对象”，从弹出的右键菜单中选择“插入”->“模块”项。
接着输入如图所示的代码：Sub 数据对比() Dim i As Integer '声明i是表0的行 Dim j As Integer '声明j是表1的行 For i = 2 To 37 '表0数据范围 For j = 2 To 36 '表1数据范围 If Sheets('1').Cells(j, 4) = Sheets('0').Cells(i, 4) Then '表0和表1相同列进行对比 Sheets('1').Cells(j, 1) = '相同' '存在时在第1行进行标记 End If '结束if Next j Next iEnd Sub注意：表0对应的是i，表1对应的是j
然后点击工具栏上的“调试运行”按钮。
待子过程运行结束后，返回Excel工作表进行查看，就会发现对比结果已啦。基于此，我们可以进行更近一步的数据处理操作。