openxlsx货币格式能否设置舍入？求实现方法或替代包

很高兴你最终找到了可行的方案！针对你提出的「用openxlsx实现带舍入的货币格式」问题，这里再详细拆解正确的实现方式、之前尝试无效的原因，同时补充其他可选的R包方案：

一、openxlsx的正确实现方式 #

你最终使用的 createStyle(numFmt="$0,0") 完全正确，这是利用Excel的自定义数字格式代码来实现的：

• $：指定货币符号（如果需要其他货币，比如欧元可替换为€）
• 0,0：表示显示千分位分隔符，且不保留小数位（自动对数值进行舍入显示）

给你一个完整的示例代码参考：

library(openxlsx)

# 构造测试数据
df <- data.frame(交易金额 = c(102.5, 203.7, 304.2))

# 创建工作簿和工作表
wb <- createWorkbook()
addWorksheet(wb, "交易明细")

# 写入数据到工作表
writeData(wb, "交易明细", df)

# 创建带舍入的货币格式样式
currency_style <- createStyle(numFmt = "$0,0")
# 应用样式到数据行（跳过表头行）
addStyle(wb, "交易明细", currency_style, rows = 2:(nrow(df)+1), cols = 1)

# 保存文件
saveWorkbook(wb, "带格式的交易数据.xlsx", overwrite = TRUE)

运行后生成的Excel文件中，数值会显示为$103、$204、$304，完全符合你要的「无美分、带千分位」的货币格式需求。

二、之前尝试无效的原因 #

1. 对数据框数值舍入后仍显示美分：
   哪怕你把数据框里的数值舍入成整数，Excel单元格的默认货币格式还是会保留两位小数，所以会显示$103.00。只有修改单元格的数字格式规则，才能去掉多余的小数位。

2. 使用numfmt='CURRENCY0'无效：
   openxlsx的numFmt参数需要传入Excel原生的格式代码，CURRENCY是Excel的预设格式名称，不能直接和数字组合使用。必须用自定义格式字符串（比如$0,0）才能实现定制化的格式效果。

三、其他可选的R包 #

如果后续需要更多格式控制，也可以考虑这些替代方案：

• openxlsx2：这是openxlsx的升级版，兼容大部分原有功能，同时支持更多Excel格式特性，设置方式和openxlsx一致，同样可以通过自定义格式代码实现需求。
• xlsx：基于Java的Excel操作包，可以通过CellStyle和DataFormat来设置格式，示例代码大致如下：

  library(xlsx)
  
  wb <- createWorkbook()
  sheet <- createSheet(wb, "交易明细")
  addDataFrame(df, sheet, startRow = 1, startColumn = 1)
  
  # 创建带舍入的货币格式
  custom_format <- createDataFormat(format = "$0,0")
  currency_style <- CellStyle(wb, dataFormat = custom_format)
  setCellStyle(sheet, rowIndex = 2:(nrow(df)+1), colIndex = 1, cellStyle = currency_style)
  
  saveWorkbook(wb, "xlsx版交易数据.xlsx")
  

  不过需要注意，xlsx依赖Java环境，安装和使用相对麻烦一些。

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