同一个EXCEL中,如何快速比较每两行数据之间的异同,并突出显示?

发布网友发布时间：2022-04-22 20:29

共3个回答

热心网友时间：2023-06-30 17:25

Sub 宏1()
    For x = 2 To ActiveSheet.UsedRange.Rows.Count Step 2
        For y = 2 To ActiveSheet.UsedRange.Columns.Count
            If Cells(x, y) <> Cells(x + 1, y) Then
                Range(Cells(x, y), Cells(x + 1, y)).Interior.ColorIndex = 6
            End If
        Next
    Next
End Sub

1、菜单栏-->工具-->宏-->安全性-->低（03版）

菜单栏-->开发工具-->代码-->宏安全性-->低(07、10版)

2、按ALT+F11打开宏编辑器

3、在左侧点工作表名，然后鼠标右键-->插入-->模块

4、复制粘贴代码到模块

5、关闭宏编辑器（按ALT+F4关闭也可以）

6、按ALT+F8执行代码

热心网友时间：2023-06-30 17:25

条件格式对2行进行对比。不一致，或者不等于就满足条件。

热心网友时间：2023-06-30 17:26

如果表的结构变一下，做起来会非常容易，而且也比较方便查询。按照以下四个字段来组织表，查起来非常容易。

员工日期系统考勤主管考勤