| 如何在Excel中比较两个字符串的相似性或突出显示差异？ | 您所在的位置：网站首页 › excel相似度对比工具 › 如何在Excel中比较两个字符串的相似性或突出显示差异？ |
如何在Excel中比较两个字符串的相似性或突出显示差异？
|
如何在Excel中比较两个字符串的相似性或突出显示差异？
添加一名作者
最后修改时间：2020-04-28
在某些情况下，您可能只需要比较两个相邻的字符串单元格并在Excel中标记它们的相似性或差异。 本文为您提供了两种实现方法。 用公式比较两个字符串 比较两个字符串的相似性或使用VBA代码突出显示差异 用公式比较两个字符串如下面的屏幕截图所示，如果您只想知道比较的字符串是否匹配，则可以应用以下公式。
1.选择一个空白单元格C2，输入公式 = EXACT（A2，B2） 进入公式栏，然后按Enter键。 看截图：
备注：在公式中，A2和B2是包含比较字符串的单元格。 2.继续选择结果单元格，然后将“填充手柄”拖动到单元格，直到获得所有比较的结果。 FALSE结果表示比较的字符串不同，TRUE结果表示两个比较的字符串匹配。 看截图：
如果要比较两个字符串并突出显示它们之间的相似性或差异。 以下VBA代码可以为您提供帮助。 1。 按 其他 + F11 同时打开 Microsoft Visual Basic应用程序 窗口。 2.在 Microsoft Visual Basic应用程序 窗口中，单击 插页 > 模块。 然后将以下代码复制并粘贴到“代码”窗口中。 VBA代码：比较两个列字符串的相似性或突出显示差异 Sub highlight() Dim xRg1 As Range Dim xRg2 As Range Dim xTxt As String Dim xCell1 As Range Dim xCell2 As Range Dim I As Long Dim J As Integer Dim xLen As Integer Dim xDiffs As Boolean On Error Resume Next If ActiveWindow.RangeSelection.Count > 1 Then xTxt = ActiveWindow.RangeSelection.AddressLocal Else xTxt = ActiveSheet.UsedRange.AddressLocal End If lOne: Set xRg1 = Application.InputBox("Range A:", "Kutools for Excel", xTxt, , , , , 8) If xRg1 Is Nothing Then Exit Sub If xRg1.Columns.Count > 1 Or xRg1.Areas.Count > 1 Then MsgBox "Multiple ranges or columns have been selected ", vbInformation, "Kutools for Excel" GoTo lOne End If lTwo: Set xRg2 = Application.InputBox("Range B:", "Kutools for Excel", "", , , , , 8) If xRg2 Is Nothing Then Exit Sub If xRg2.Columns.Count > 1 Or xRg2.Areas.Count > 1 Then MsgBox "Multiple ranges or columns have been selected ", vbInformation, "Kutools for Excel" GoTo lTwo End If If xRg1.CountLarge xRg2.CountLarge Then MsgBox "Two selected ranges must have the same numbers of cells ", vbInformation, "Kutools for Excel" GoTo lTwo End If xDiffs = (MsgBox("Click Yes to highlight similarities, click No to highlight differences ", vbYesNo + vbQuestion, "Kutools for Excel") = vbNo) Application.ScreenUpdating = False xRg2.Font.ColorIndex = xlAutomatic For I = 1 To xRg1.Count Set xCell1 = xRg1.Cells(I) Set xCell2 = xRg2.Cells(I) If xCell1.Value2 = xCell2.Value2 Then If Not xDiffs Then xCell2.Font.Color = vbRed Else xLen = Len(xCell1.Value2) For J = 1 To xLen If Not xCell1.Characters(J, 1).Text = xCell2.Characters(J, 1).Text Then Exit For Next J If Not xDiffs Then If J 1 Then xCell2.Characters(1, J - 1).Font.Color = vbRed End If Else If J 🤖 Kutools 人工智能助手：基于以下内容彻底改变数据分析： 智能执行 | 生成代码 | 创建自定义公式 | 分析数据并生成图表 | 调用 Kutools 函数... 热门特色: 查找、突出显示或识别重复项 | 删除空白行 | 合并列或单元格而不丢失数据 | 不使用公式进行四舍五入 ... 超级查询: 多条件VLookup | 多值VLookup | 跨多个工作表的 VLookup | 模糊查询 .... 高级下拉列表: 快速创建下拉列表 | 依赖下拉列表 | 多选下拉列表 .... 列管理器: 添加特定数量的列 | 移动列 | 切换隐藏列的可见性状态 | 比较范围和列 ... 特色功能: 网格焦点 | 设计图 | 大方程式酒吧 | 工作簿和工作表管理器 | 资源库 （自动文本） | 日期选择器 | 合并工作表 | 加密/解密单元格 | 按列表发送电子邮件 | 超级筛选 | 特殊过滤器 （过滤粗体/斜体/删除线...）... 前 15 个工具集: 12 文本 工具 (添加文本, 删除字符，...） | 50+ 图表 类型 (甘特图，...） | 40+ 实用 公式 (根据生日计算年龄，...） | 19 插入 工具 (插入二维码, 从路径插入图片，...） | 12 转化 工具 (小写金额转大写, 货币兑换，...） | 7 合并与拆分 工具 (高级组合行, 分裂细胞，...） | ... 和更多使用 Kutools for Excel 增强您的 Excel 技能，体验前所未有的效率。 Kutools for Excel 提供了 300 多种高级功能来提高生产力并节省时间。 单击此处获取您最需要的功能... 
阅读更多
免费下载...
|
【本文地址】
公司简介
联系我们