使用openxlsx导出Excel时，如何为数据框总计行设置格式？

常见原因&对应方案 #

1. 确认addStyle的rows参数覆盖总计行 #

如果你的数据框是先有明细行，最后手动添加总计行，调用addStyle时必须确保rows参数包含所有行，包括最后一行的总计。比如数据框df有10行明细+1行总计，共11行，rows要设为1:nrow(df)，而非仅前10行。

示例代码：

library(openxlsx)
# 创建通用样式
my_style <- createStyle(fontName = "Arial", fontSize = 10, halign = "center")
# 初始化工作簿
wb <- createWorkbook()
addWorksheet(wb, "数据报表")
writeData(wb, "数据报表", df)
# 应用样式到所有行（含总计行）
addStyle(wb, "数据报表", style = my_style, rows = 1:nrow(df), cols = 1:ncol(df), gridExpand = TRUE)
saveWorkbook(wb, "报表.xlsx", overwrite = TRUE)

提示：gridExpand = TRUE会让样式覆盖指定行列的所有单元格，避免遗漏。

2. 单独给总计行设置差异化样式 #

如果总计行需要和明细行区分（比如加粗），可以单独调用addStyle指定总计行的位置：

# 创建总计行专属样式
total_style <- createStyle(fontName = "Arial", fontSize = 10, halign = "center", textDecoration = "bold")
# 应用到数据框最后一行
addStyle(wb, "数据报表", style = total_style, rows = nrow(df), cols = 1:ncol(df), gridExpand = TRUE)

3. 检查数据框的行索引连续性 #

如果总计行是通过rbind或add_row合并的，要确保数据框行索引是连续数值（比如1、2、3...而非夹杂字符行名）。即便行名设为"总计"，选中行时仍要用位置索引（比如nrow(df)），而非行名。

4. 适配writeData的startRow偏移 #

如果调用writeData时设置了startRow参数（比如从第2行开始写入），后续addStyle的rows参数要对应偏移后的行号：

writeData(wb, "数据报表", df, startRow = 2)
# 应用样式到Excel的第2行到第2+nrow(df)-1行
addStyle(wb, "数据报表", style = my_style, rows = 2:(2 + nrow(df)-1), cols = 1:ncol(df), gridExpand = TRUE)

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