用VBA对比两个不同的表，并且用黄色标出不同的数据

【代码】用VBA对比两个不同的表，并且用黄色标出不同的数据。

zhangdabai1

629人浏览 · 2024-06-29 15:36:01

zhangdabai1 · 2024-06-29 15:36:01 发布

Sub 根据标准表标出对比表的不同数据()
    Dim arr, brr, crr
    Dim i, j
    Dim rng As Range
    arr = ActiveWorkbook.Sheets("标准表").UsedRange
    brr = ActiveWorkbook.Sheets("对比表").UsedRange
    For i = LBound(arr) To UBound(arr)
        For j = LBound(arr, 2) To UBound(arr, 2)
            If Not arr(i, j) = brr(i, j) Then
                If rng Is Nothing Then
                    Set rng = ActiveWorkbook.Sheets("对比表").Cells(i, j)
                Else
                    Set rng = Union(Cells(i, j), rng)
                End If
            End If
        Next
    Next i
    rng.Interior.ColorIndex = 6
End Sub

DAMO开发者矩阵

DAMO开发者矩阵，由阿里巴巴达摩院和中国互联网协会联合发起，致力于探讨最前沿的技术趋势与应用成果，搭建高质量的交流与分享平台，推动技术创新与产业应用链接，围绕“人工智能与新型计算”构建开放共享的开发者生态。

更多推荐

【图像加密】基于DCT变换的图像加密与解密附matlab代码

一、引言：频域扰动赋能图像隐私保护1.1 图像加密的核心需求与 DCT 变换的适配性图像传输与存储中，隐私泄露风险突出（如医疗影像、军事图像、个人隐私照片），传统加密（如 AES）直接对像素值加密，存在以下问题：计算量大，不适配实时场景（如视频流加密）；加密后图像完全杂乱，无法兼容压缩传输（如 JPEG）；硬件实现复杂，移动端部署成本高。

DAMO开发者矩阵

【路径规划】基于Bi-RRT算法实现机器人路径规划实现，最终找到一条无碰撞路径附matlab代码

这段代码是 2D 环境下的双向 RRT（Bi-RRT）路径规划实现，核心逻辑是通过两棵树（分别从起点和终点生长）快速探索构型空间，最终找到一条无碰撞路径。代码结构简洁，模块化程度高，下面从核心功能、代码解析、关键细节三方面展开说明：一、核心功能总览• 环境：2D 平面构型空间（范围 [0,0]~[100,100]），支持自定义障碍物（通过 make2Dobstacles() 创建）。