如何使用openxlsx对比工作表值并高亮差异单元格

你需要修改条件格式的规则，将相等判断改为不等判断，同时修正代码的语法错误，具体代码如下：

wb <- createWorkbook()
addWorksheet(wb, "sheet1")
addWorksheet(wb, "sheet2")

# 定义差异单元格的样式
diffStyle <- createStyle(fontColour = "#9C0006", bgFill = "#FFC7CE")

# 向sheet1写入数据
writeData(wb, "sheet1", -5:5)
writeData(wb, "sheet1", -3:7, startCol = 2)

# 向sheet2写入数据
writeData(wb, "sheet2", 7:-3)
writeData(wb, "sheet2", 5:-5, startCol = 2)

# 设置条件格式：高亮sheet2中与sheet1对应单元格数值不同的部分
conditionalFormatting(wb, "sheet2",
                      cols = 1:2,
                      rows = 1:11,
                      # 使用R1C1相对引用，确保每个单元格对应对比sheet1的同位置单元格
                      rule = "sheet1!RC <> sheet2!RC",
                      style = diffStyle)

# 保存工作簿
saveWorkbook(wb, "对比差异.xlsx", overwrite = TRUE)

关键说明： #

• 规则从sheet1!A1 == sheet2!A1改为sheet1!RC <> sheet2!RC：RC是Excel的R1C1相对引用格式，代表当前单元格的行和列，应用到整个范围时，每个单元格都会自动对应sheet1中相同位置的单元格做不等判断，精准高亮差异值。
• 修正了conditionalFormatting语句末尾的闭合括号，同时添加了保存工作簿的代码，确保修改能导出到文件。
• 将样式名改为diffStyle更贴合“差异高亮”的用途，语义更清晰。

内容的提问来源于stack exchange，提问作者George N