ChatGPT OpenAI 针对HR与财务岗位一键核对工资表差异

HR人力资源与财务部门关于奖金的计算，两个部门计算的结果有差异如何将差异内容显示。

如何快速找出不相同的单元格。

我们给ChatGPT来提出需求来解决。

prompt: 请写出一个VBA程序找出E3:E12单元格区域与E16:E25单元格区域中不相同的单元格，并填充为红色背景显示，请写出完整的VBA程序

代码如下：

Sub CompareAndHighlight()

    Dim rng1 As Range
    Dim rng2 As Range
    Dim i As Integer

    '定义要比较的两个单元格区域
    Set rng1 = ThisWorkbook.Sheets("Sheet1").Range("E3:E12")
    Set rng2 = ThisWorkbook.Sheets("Sheet1").Range("E16:E25")

    '比较两个区域中的每一个单元格
    For i = 1 To rng1.Cells.Count

        '如果两个单元格的值不同，