如何用openxlsx创建带千分位逗号与两位小数格式的Excel文件？

我来帮你搞定这个问题！你之前的代码没生效是因为没有显式创建并应用自定义数字格式的样式——openxlsx不会自动帮你设置这类特殊格式，得咱们手动指定样式并绑定到目标列上。

下面是修正后的完整代码，我会把关键步骤标出来：

# 加载需要的包
library(data.table)
library(openxlsx)

# 创建客户数据集
cust <- data.table(Customer = c("Sue", "Ben", "Jason", "Cody"), 
                   Sales = c(5654.3456, 29384.4, 729, .4093))

# 初始化工作簿
wb <- createWorkbook()

# 设置工作表名称
sheet_name <- "Customers Report"

# 在工作簿中添加工作表
addWorksheet(wb = wb, sheet = sheet_name)

# 关键步骤1：创建带自定义数字格式的样式
# 格式代码"#,##0.00"表示：千分位逗号分隔，保留两位小数
sales_style <- createStyle(numFmt = "#,##0.00")

# 将数据写入工作表
writeData(wb = wb, sheet = sheet_name, x = cust)

# 关键步骤2：把样式应用到Sales列（第2列）
# rows = 2:nrow(cust)+1 是因为表头在第1行，数据从第2行开始
# gridExpand = TRUE 确保整列的所有数据行都应用样式
addStyle(wb = wb, sheet = sheet_name, style = sales_style,
         rows = 2:(nrow(cust)+1), cols = 2, gridExpand = TRUE)

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

重点说明： #

• createStyle(numFmt = "#,##0.00")：这是定义格式的核心，#,##0.00是Excel标准的数字格式代码，逗号代表千分位分隔，.00强制保留两位小数。
• addStyle的参数：必须明确指定样式要应用的行和列范围，gridExpand=TRUE会自动把样式扩展到指定行/列的所有单元格，避免只应用单个单元格。
• 如果你想让表头也保持统一格式，只需要把rows参数改成1:(nrow(cust)+1)就行。

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