VBA实现文本对比着色

我们在使用Excel处理数据的时候，经常需要对比两行或者两列数据之间的异同。虽然有EXACT之类的函数非常方便的提供了对比功能，但难免还是不够用，特别是需要实现一些个性化的比对的时候。
这时VBA就派上了用场，使用VBA代码也能很方便的实现单元格的文本比对着色。只需要在vba代码编辑器里添加如下一段代码即可：

Sub diff()Dim wbook As WorkbookChDir "D:\"Set wbook = Workbooks.Open(Filename:="D:\1.xlsx")        '要比对的Excel文本wbook.ActivateDim col, row As IntegerFor row = 1 To ActiveSheet.UsedRange.Rows.Count Step 1           '所有有效的行For col = 1 To ActiveSheet.UsedRange.Columns.Count Step 2      '所有有效的列，step 2 表示每隔一行都执行一次比对，这样可以实现多组比对If Cells(row, col) <> Cells(row, col + 1) ThenCells(row, col).Interior.Color = 5296274            '着绿色Cells(row, col + 1).Interior.Color = 5296274End IfNextNextwbook.Save
End Sub

为了验证上述代码有效，我们在D盘根目录下建立一个1.xslx文件，在里面准备以下内容：

执行上述代码，效果如图所示：

VBA实现文本对比着色相关推荐

debug内exe文件复制到桌面无法打开_Diffinity.轻量级的文件|文本对比工具
Diffinity是一款非常轻量级的文件与文本对比的小工具软件,软件的安装包仅475KB,同时支持高亮显示.插入显示.集成到资源管理器(右键菜单)等,非常的方便实用.并且最近的一次更新是在9月初,生命 ...
vba编程把纯文本转换成html,如何将一列文本与html标签转换为Excel中的vba格式文本...
我想知道如何使用VBA脚本将带有html标签的整列单元转换为格式化文本(基于这些标签).如何将一列文本与html标签转换为Excel中的vba格式文本使用下列内容: Sub Sample() Dim ...
文本对比，文本差异并排对比显示实现
目录前言方法一:java + html实现 1..准备 2..后端实现 3..测试和效果方法二:Mergely纯javascript实现 1.Mergely使用示例 2.效果图 3.使用示例中用 ...
代码文本对比-前端工具
代码文本对比很多时候,我们可能有那种前端代码对比.文本对比的功能方式一(纯js实现) 效果图主要html 如果想要在线编辑对比可使用textare标签,并自定义监听函数去对比渲染 <sty ...
Vue前端文本对比DIFF
介绍前端文本比对找了几个库: 分别是: CodeMirror.DiffMatchPatch.Mergely.vue-code-diff,最后选择用:vue-code-diff 源码工程地址:DIFF ...
C#，深度好文，精致好码，文本对比（Text Compare）算法与源代码
Vladimir I. Levenshtein 一.文本对比的列文斯坦距离(编辑距离)算法在日常应用中,文本比较是一个比较常见的问题.文本比较算法也是一个老生常谈的话题. 文本比较的核心就是比较两个 ...
git 使用meld 进行文本对比
git 使用meld 进行文本对比 1. 安装meld工具 sudo apt-get install meld 2. 创建脚本文件并给执行权限 vim /bin/git_meld.sh #!/bin/ ...
Linux 文本对比 diff
一.diff介绍 windows系统下面就有不错的文本对比工具可以使用,例如常用的Beyond Compare,WinMerge都是图形界面的比较工具而且使用非常方便,如果你仅仅是在windows下工 ...
notepad数据对比插件_如何使用NotePad++的compare插件进行文本对比，来研究下吧
对于程序员而言,进行文本(程序代码)对比是家常便饭,而文本编辑器Notepad++里的Compare插件,可以帮助程序员高效地完成文本对比工作. 下面,小编就来教大家如何安装及使用NotePad++软 ...

VBA实现文本对比着色

VBA实现文本对比着色相关推荐

最新文章

热门文章