如何用openxlsx包在R中读写修改Excel并保留单元格颜色编码？

以下是完整的实现步骤和代码，可实现读取带颜色的Excel、对比修改数据并保留原单元格颜色：

1. 准备工作 #

安装并加载openxlsx包：

install.packages("openxlsx")
library(openxlsx)

2. 读取Excel工作簿与数据 #

读取完整工作簿（保留所有样式信息），同时提取数据到R数据框：

# 替换为你的Excel文件路径
wb <- loadWorkbook("your_file.xlsx")
# 读取第一个工作表的数据
df <- read.xlsx(wb, sheet = 1)

3. 对比并修改数据 #

根据你的需求对比另一个R对象（示例用new_df作为对比数据源），更新数据：

# 示例对比对象：假设这是用于更新的参考数据
new_df <- data.frame(
  Name = c("Alice", "Bob"),
  Score = c(95, 88)
)

# 按Name列匹配，更新Score值（根据你的实际逻辑调整）
df$Score <- ifelse(df$Name %in% new_df$Name,
                   new_df$Score[match(df$Name, new_df$Name)],
                   df$Score)

4. 写回数据并保留原样式 #

将修改后的数据写回工作簿，通过keepStyle = TRUE保留原单元格的颜色等格式：

# 写回第一个工作表，保留原样式
writeData(wb, sheet = 1, x = df, keepStyle = TRUE)

# 保存修改后的Excel文件（替换为你要保存的路径）
saveWorkbook(wb, "modified_file.xlsx", overwrite = TRUE)

关键说明 #

• loadWorkbook()会完整读取Excel的所有样式信息（包括单元格颜色），而不是只读取数据
• writeData(wb, ..., keepStyle = TRUE)是核心：写入新数据时，不会覆盖原单元格的格式设置，仅更新单元格值
• 如果只需修改个别单元格，可指定startCol和startRow精准定位，同样保留样式：

  # 仅修改第2行第2列的单元格值，保留原颜色
  writeData(wb, sheet = 1, x = 95, startCol = 2, startRow = 2, keepStyle = TRUE)
  

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