使用openxlsx2修改XLSX字体颜色并保留其他格式

核心思路 #

通过openxlsx2读取现有文件，提取每个非空单元格的已有字体样式属性，仅替换颜色为自动后重新应用，利用merge = TRUE参数避免覆盖其他格式。

具体代码实现 #

library(openxlsx2)

# 读取目标Excel文件
wb <- wb_load("your_input_file.xlsx")

# 遍历所有工作表（如需处理单个表，可直接指定wb$worksheets[[n]]）
for (ws_idx in seq_along(wb$worksheets)) {
  # 获取当前工作表数据，定位非空单元格
  data_matrix <- wb_get_data(wb, sheet = ws_idx)
  non_empty_cells <- which(!is.na(data_matrix) & data_matrix != "", arr.ind = TRUE)
  
  # 逐个处理非空单元格
  for (cell_idx in seq(nrow(non_empty_cells))) {
    row <- non_empty_cells[cell_idx, "row"]
    col <- non_empty_cells[cell_idx, "col"]
    
    # 获取单元格现有样式，提取字体属性
    cell_style <- wb_get_cell_style(wb, sheet = ws_idx, rows = row, cols = col)
    existing_font <- cell_style$font
    
    # 构建新字体参数：保留原有属性，仅替换颜色为自动
    new_font <- list(
      name = existing_font$name,
      size = existing_font$size,
      bold = existing_font$bold %||% FALSE,
      italic = existing_font$italic %||% FALSE,
      underline = existing_font$underline %||% "none",
      strike = existing_font$strike %||% FALSE,
      color = wb_color(auto = 1)
    )
    
    # 应用修改后的字体，merge=TRUE确保保留非字体类原有格式
    wb_add_font(wb, sheet = ws_idx, rows = row, cols = col, !!!new_font, merge = TRUE)
  }
}

# 保存修改后的文件
wb_save(wb, "your_output_file.xlsx")

关键说明 #

• wb_get_cell_style()：获取单元格完整样式，其中$font包含所有字体相关属性（名称、大小、加粗等）
• %||%运算符：处理属性缺失情况（如单元格未设置加粗时，existing_font$bold为NULL，用FALSE作为默认值）
• merge = TRUE：wb_add_font()的核心参数，启用后会合并现有样式，仅更新指定的字体属性，不会覆盖单元格的边框、填充等其他格式
• wb_color(auto = 1)：openxlsx2中设置字体颜色为"自动"的语法

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