VBA实现文本对比着色

简介: VBA实现文本对比着色

我们在使用Excel处理数据的时候,经常需要对比两行或者两列数据之间的异同。虽然有EXACT之类的函数非常方便的提供了对比功能,但难免还是不够用,特别是需要实现一些个性化的比对的时候。

这时VBA就派上了用场,使用VBA代码也能很方便的实现单元格的文本比对着色。只需要在vba代码编辑器里添加如下一段代码即可:

Sub diff()
    Dim wbook As Workbook
    ChDir "D:\"
    Set wbook = Workbooks.Open(Filename:="D:\1.xlsx")   '要比对的Excel文本
    wbook.Activate
    Dim col, row As Integer
    For 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) Then
                Cells(row, col).Interior.Color = 5296274      '着绿色
                Cells(row, col + 1).Interior.Color = 5296274
            End If
        Next
    Next
    wbook.Save
End Sub

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

执行上述代码,效果如图所示:

目录
相关文章
|
24天前
|
数据可视化 Java 程序员
通过文字图像——代码图形注释自动生成
【10月更文挑战第15天】代码图形注释自动生成技术是一种将代码逻辑和结构可视化的创新工具。它通过解析编程代码,并将代码的功能、结构和逻辑关系转换成直观的图形注释,从而使得程序员能够更加轻松地理解和分析代码。
|
算法 vr&ar 图形学
GLTF编辑器告诉你凹凸贴图的作用
凹凸贴图在计算机图形学中被广泛应用于各种领域,以增加图形的真实感和细节。它能够提供更加逼真的视觉效果,使观众或用户能够更好地沉浸在虚拟的世界中。
326 0
|
Shell 流计算 Python
[oeasy]python0068_ 字体样式_正常_加亮_变暗_控制序列
[oeasy]python0068_ 字体样式_正常_加亮_变暗_控制序列
131 0
[oeasy]python0068_ 字体样式_正常_加亮_变暗_控制序列
|
图形学
unity之CanvasGroup解决文本异色问题
CanvasGroup解决文本异色问题
unity之CanvasGroup解决文本异色问题
|
C#
WPF图形/文字特别效果之一:交叉效果探讨(续)
原文:WPF图形/文字特别效果之一:交叉效果探讨(续) 在“WPF图形/文字特别效果之一:交叉效果探讨”(http://blog.csdn.net/johnsuna/archive/2008/05/08/2419404.aspx)一文中,我使用了根据笔画顺序书写及顺时针/逆时针的方式来对交叉块进行分类描述,籍以探讨如何给各交叉色块填充颜色。
974 0
|
C#
WPF图形/文字特别效果之一:交叉效果探讨
原文:WPF图形/文字特别效果之一:交叉效果探讨 为了说明问题,先看下图:图1  完全重叠的单一颜色文字它是2008几个字的叠加,并且颜色为单一的红色。
802 0
|
C# 容器 异构计算
去除WPF中3D图形的锯齿
原文:去除WPF中3D图形的锯齿       理论上讲PC在计算3D图形的时候是无法避免不出现锯齿的,因为3D图形都是又若干个三角形组成,如果3D图形想平滑就必须建立多个三角形,你可以想象一下正5边形和正100边形哪个更接近圆形的道理一样,这样会大量消耗显卡的存储空间或是从内存共享的存储空间,导致程序的整体性能降低,但如果三角形很少,显卡的解析度毕竟有限,就会出现锯齿。
1419 0
|
算法 编解码 数据可视化
WPF4文字模糊不清晰、边框线条粗细不一致的解决方法
原文:WPF4文字模糊不清晰、边框线条粗细不一致的解决方法 软件测试过程中发现在一台1600*900的分辨率电脑上文字模糊,甚至某些个文字出现压缩扭曲 经过实践,发现按下面方法能解决一点问题: 在窗口或控件上设置字体属性就可以了(红色标注部分),如下:  注:TextOptions.
1073 0
|
前端开发 C++
QML学习笔记(四)-Canva画板画图功能-跟随鼠标位置进行随笔画
参考博主文章进行整理了代码,实现功能参考:https://blog.csdn.net/UbuntuTouch/article/details/46375697 源码:https://github.com/sueRimn/QML-ExampleDemos 更多的鼠标实时画图-画直线画圆画矩形等看下...
2473 0
|
Python
Latex文档中高亮显示代码
准备 所需Latex库包:\usepackage{minted} minted库依赖程序:一个python程序-pygmentize。若没有,可直接用命令安装:pip install pygmentize 使用 \usepackage{mint...
1461 0