使用R处理Excel并导出时，能否保留原单元格格式？

默认情况下，import_list（以及多数R的Excel读取工具）仅读取单元格的数据内容，不会解析或保留字体、颜色、边框这类样式信息；而write.xlsx类函数导出时是从零构建新Excel文件，自然无法还原原格式。要实现导出时保留样式，需换用支持操作原工作簿对象的工具，推荐使用openxlsx包，步骤如下：

• 加载原工作簿（保留所有样式）：
  用loadWorkbook()直接读取整个Excel文件为工作簿对象，而非仅读取数据。
• 读取数据并过滤：
  通过readWorkbook()从工作簿中提取指定工作表的数据，完成过滤处理。
• 写回数据并保存：
  将过滤后的数据写回原工作簿（可覆盖原工作表或新建），最后用saveWorkbook()导出。

示例代码：

library(openxlsx)

# 加载原Excel工作簿
wb <- loadWorkbook("input_file.xlsx")

# 读取目标工作表数据并执行过滤
raw_data <- readWorkbook(wb, sheet = "Sheet1")
filtered_data <- raw_data[raw_data$value_column >= 50, ] # 替换为你的过滤逻辑

# 清空原工作表内容（可选，若要覆盖原表）
removeCellStyles(wb, sheet = "Sheet1")
# 将过滤后的数据写入原工作表，起始行设为1
writeData(wb, sheet = "Sheet1", x = filtered_data, startRow = 1)

# 保存带样式的工作簿
saveWorkbook(wb, "output_file.xlsx", overwrite = TRUE)

注意事项 #

• 若原Excel包含复杂的合并单元格、条件格式或宏，openxlsx的兼容性可能受限，需提前测试。
• 若依赖xlsx包，也可通过操作底层Java对象实现样式保留，但代码复杂度远高于openxlsx。

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