如何在两个工作表的两列中快速找出重复值或唯一值?
对大多数人而言,在同一工作表中比较两个区域并找出重复值或唯一值或许轻而易举;但若这两个区域分别位于不同的工作表中,您又该如何快速识别其中的重复项与唯一值呢?本教程将为您揭秘几种高效快捷的方法。
使用 Kutools for Excel 比较两个工作表中的两个区域
使用公式比较两个工作表中具有相同标题的两列
在 Excel 中使用公式,您可以比较不同工作表中如下面所示的两个具有相同标题的列,并找出重复值和唯一值:
![]() | ![]() |
1. 请在紧邻工作表 3 中该区域的空白单元格内输入以下公式。
=COUNTIF(Sheet1!$A:$A, A1) 
2. 按下键盘上的“Enter”键,然后拖动填充柄,填充您希望与工作表 1 中区域进行比较的范围。(数字 0 表示两个区域中的重复值,数字 1 表示在Sheet 3 中但不在Sheet 1 中的唯一值)

提示:
1. 此公式仅支持比较两个工作表中标题相同的两列。
2. 若要找出在 Sheet 1 中但不在 Sheet 3 中的唯一值,请在 Sheet 1 中输入以下公式。
=COUNTIF(Sheet3!$A:$A, A1) 使用 VBA 比较两个工作表中的两个区域
1. 按住“ALT”键,同时按下键盘上的“F11”,即可打开“Microsoft Visual Basic for Applications”窗口。
2. 单击“插入”>“模块”,然后将 VBA 代码粘贴到该模块中。
VBA:比较两个工作表中的两个区域
Sub CompareRanges()
'Update 20130815
Dim WorkRng1 As Range, WorkRng2 As Range, Rng1 As Range, Rng2 As Range
xTitleId = "KutoolsforExcel"
Set WorkRng1 = Application.InputBox("Range A:", xTitleId, "", Type:=8)
Set WorkRng2 = Application.InputBox("Range B:", xTitleId, Type:=8)
For Each Rng1 In WorkRng1
rng1Value = Rng1.Value
For Each Rng2 In WorkRng2
If rng1Value = Rng2.Value Then
Rng1.Interior.Color = VBA.RGB(255, 0, 0)
Exit For
End If
Next
Next
End Sub 3. 单击“运行”按钮,或按 F5 键执行 VBA。
4. 屏幕上将弹出一个对话框,请选择您要比较的区域。参见下图:

5. 单击“确定”后,将弹出另一个对话框,供您选择第二个区域。请参见截图:

6. 单击“确定”后,Range A 和 Range B 中均存在的重复值将以红色背景高亮显示在 Range A 中。请参见截图:

提示:使用此 VBA,您可轻松比较同一工作表或不同工作表中的两个区域。
使用 Kutools for Excel 比较两个工作表中的两个区域
如果公式用起来不够顺手,而 VBA 又显得过于复杂,不妨试试“Kutools for Excel”的“比较区域”功能。
“Kutools for Excel”包含 300 多个实用 Excel 工具,30 天内免费试用,无任何限制!立即获取
请通过单击“Kutools”>“比较区域”来应用“比较区域”功能。请参见截图:
比较不同工作表中的两列:
1. 单击“Kutools”>“比较区域”,屏幕上将弹出一个对话框。请参见截图:

2. 指定区域和规则,操作步骤如下:
取消勾选“在同一区域内比较”,然后通过单击“区域 A”和“区域 B”选择两个区域,请参见截图:


在“规则”下的下拉框中指定您要查找的相同值或不同值;
3. 单击“确定”,系统将弹出对话框,提示您已选中相同值。

4. 在弹出的对话框中单击“确定”按钮,区域 A 中两个区域之间的相同值将被选中。
比较两个工作表中的两个区域
如果您在两个工作表中有如下所示的两个区域,并希望比较它们以找出不同值,可按以下步骤操作:
1. 单击“Kutools”>“比较区域”,即可弹出一个对话框。
2. 指定区域和规则,操作步骤如下:
取消勾选“在同一区域内比较”,然后通过单击“区域 A”和“区域 B”选择两个区域;
在“规则”下的下拉框中指定您要查找的不同值;
在“选项”部分中勾选“包含标题”;
3. 单击“确定”,系统将弹出对话框,提示您已选中相同值。
4. 在弹出的对话框中单击“确定”按钮,区域 A 中的不同值将被自动选中。请参见截图:

若要找出工作表 Sheet 2 区域 B 中的不同值,您需要交换这两个区域。
相关文章:
最佳办公效率工具
| 🤖 | KUTOOLS AI 助手:基于以下内容革新数据分析:智能执行 | 生成代码| 创建自定义公式 | 数据分析及生成图表| 调用 Kutools Functions…… |
| 热门功能:查找、高亮或标记重复项 | 删除空白行 | 合并列或单元格且不丢失数据 | 不使用公式的四舍五入…… | |
| 高级 LOOKUP:多条件 VLookup | 多值 VLookup | 跨多工作表 VLookup | 模糊查找…… | |
| 高级下拉列表:快速创建下拉列表 | 级联下拉列表 | 多选下拉列表…… | |
| 列管理器:添加指定数量的列|移动列|切换隐藏列的可见性状态|比较区域与列…… | |
| 特色功能:网格聚焦 | 设计视图 |增强编辑栏 | 工作簿和表管理器 | 资源库(自动文本)| 日期提取 | 汇总工作表 | 加密/解密单元格 | 按列表发送邮件 | 超级筛选 | 特殊筛选(筛选粗体单元格/斜体/删除线……) ...... | |
| 精选 15 工具集:12 文本工具(添加文本,删除特定字符,……)| 50+ 图表 类型(甘特图,……)| 40+ 实用公式(基于生日计算年龄,……)| 19 插入工具(插入二维码,从路径插入图片,……)| 12 转换工具(小写金额转大写,汇率转换,……)| 7 合并和拆分工具(高级合并行,分割单元格,……)|……更多 |
使用 Kutools for Excel 大幅提升您的 Excel 技能,体验前所未有的高效。Kutools for Excel 提供 300 多项高级功能,助您提升生产力、节省时间。立即点击此处,获取您最需要的功能……
Office Tab 为 Office 带来标签式界面,让您的工作更轻松
- 在 Word、Excel、PowerPoint、Publisher、Access、Visio 和 Project 中启用标签式编辑和阅读。
- 在同一个窗口的新标签页中打开并创建多个文档,而非在新窗口中。
- 将您的工作效率提升 50%,每天减少数百次鼠标点击!
所有 Kutools 插件,一个安装程序
Kutools for Office 套件捆绑了适用于 Excel、Word、Outlook 和 PowerPoint 的插件以及 Office Tab Pro,非常适合需要跨多个 Office 应用高效协作的团队。
- 一体化套件— Excel、Word、Outlook 和 PowerPoint 插件 + Office Tab Pro
- 一个安装程序,一个许可证— 几分钟内完成设置(支持 MSI)
- 协同效果更佳— 在多个 Office 应用中实现高效协同
- 30 天全功能试用— 无需注册,无需信用卡
- 超值之选— 比单独购买插件更省钱

