Openxlsx是否支持样式叠加模式？关于addStyle与conditionalFormatting的问询

openxlsx默认会用新样式替换单元格原有样式，但通过以下两种方式可以实现类似Excel的样式叠加效果：

1. 针对addStyle的叠加方案 #

addStyle函数自带stack参数，默认值为FALSE（替换样式），将其设置为TRUE即可让新样式叠加到原有样式上，不会覆盖原有格式。

以示例1为例，修改addStyle调用行：

# 原代码
# addStyle(wb = Workbook4Export, sheet = "Tab_1", style = ContentsCellsStyle_Centered, rows = 1, cols = 3)

# 修改后
addStyle(wb = Workbook4Export, sheet = "Tab_1", style = ContentsCellsStyle_Centered, rows = 1, cols = 3, stack = TRUE)

修改后，单元格会保留超链接的蓝色字体格式，同时应用居中对齐和边框样式。

2. 针对conditionalFormatting的替代叠加方案 #

目前conditionalFormatting函数不支持stack参数，直接使用会覆盖原有样式（比如超链接的蓝色格式）。此时可以通过**循环判断+addStyle(stack=TRUE)**的方式模拟条件格式的叠加效果：

核心逻辑是先写入所有内容（包括超链接），再对符合条件的单元格/行应用样式，并且开启stack=TRUE：

library("openxlsx")

OutputFolder <- file.path(".", "Output")
if(!dir.exists(OutputFolder))   dir.create(OutputFolder)

OutputFile <- file.path(OutputFolder, "Reprex_Openxlsx_Is_There_a_Superimpose_Mode.xlsx")

Workbook4Export <- createWorkbook()

addWorksheet(wb = Workbook4Export, sheetName = "Tab_1", zoom = 80, gridLines = FALSE)
addWorksheet(wb = Workbook4Export, sheetName = "Tab_2", zoom = 80, gridLines = FALSE)

# 注意用fgFill设置背景色
ContentsCellsStyle_GreyBackground <- createStyle(fgFill = "#BFBFBF")

for(i in 1:10)
{
    writeFormula(wb = Workbook4Export, sheet = "Tab_1", startRow = i, startCol = 1, x = makeHyperlinkString(sheet = "Tab_2", row = 1, col = 1, text = paste0("Link to 'Tab_2'")))
    for(j in 2:5)
    {
        writeData(wb = Workbook4Export, sheet = "Tab_1", x = "Some text", startRow = i, startCol = j)
    }
    # 对偶数行应用背景色，开启stack=TRUE
    if(i%%2 == 0)   addStyle(wb = Workbook4Export, sheet = "Tab_1", style = ContentsCellsStyle_GreyBackground, rows = i, cols = 1:5, stack = TRUE)
}

saveWorkbook(wb = Workbook4Export, file = OutputFile, overwrite = TRUE)

这个方案会让偶数行的灰色背景叠加在超链接的蓝色格式上，同时保留原有文本样式。

总结 #

• 使用addStyle时，添加stack=TRUE参数即可直接实现样式叠加
• 使用conditionalFormatting时，可通过循环判断+addStyle(stack=TRUE)的方式模拟叠加效果，避免覆盖原有格式

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