在R中用openxlsx设置Excel单元格格式：点作千分位、逗号作小数点并保留两位小数

方案1：使用Excel内置格式代码 #

针对你需要的「点作为千分位分隔符、逗号作为小数点分隔符、保留两位小数」的格式，可以直接调用Excel的内置格式代码"4"，该格式在使用逗号作为小数点的系统区域中，会自动匹配你想要的显示效果：

cell_style <- createStyle(numFmt = "4")

应用此样式后，数字10000.02111会显示为10.000,02。

方案2：使用自定义格式字符串 #

如果内置格式不符合预期，可以使用自定义格式字符串"#.##0,00"，同时确保样式正确应用到目标单元格：

library(openxlsx)

# 创建工作簿和工作表
wb <- createWorkbook()
addWorksheet(wb, "Sheet1")

# 测试数据
test_data <- data.frame(Value = 10000.02111)

# 创建目标样式
cell_style <- createStyle(numFmt = "#.##0,00")

# 写入数据并应用样式
writeData(wb, "Sheet1", test_data)
# gridExpand参数确保样式覆盖整个数据区域
addStyle(wb, "Sheet1", style = cell_style, rows = 2, cols = 1, gridExpand = TRUE)

# 保存工作簿
saveWorkbook(wb, "formatted_result.xlsx", overwrite = TRUE)

这个格式字符串的规则：

• .指定为千分位分隔符
• ,指定为小数点分隔符
• 00强制保留两位小数（自动四舍五入）

注意事项 #

• 自定义格式的显示效果依赖于Excel的系统区域设置，如果你的Excel默认使用点作为小数点，需要将区域设置调整为欧洲类区域（如德语、法语），才能让分隔符显示符合预期。
• 应用样式时务必确认覆盖所有目标单元格，gridExpand = TRUE参数可自动扩展样式范围，避免遗漏。

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