如何修改Date列格式并保留Date类属性

核心思路是不修改R中Date列的类型，而是在导出到Excel时通过工具包设置单元格显示格式，确保Excel中列既是日期类型，又按dd-mm-yyyy格式展示。

方法一：使用openxlsx包（精准控制格式） #

1. 安装并加载包：

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

2. 准备示例数据（转为数据框方便导出）：

date_vec <- structure(c(18793, 18802, 18802, 18795, 18810, 18789, 18802, 
18807, 18802, 18817, 18788, 18790, 18796, 18810, 18779, 18800, 
18783, 18791, 18808, 18806, 18802, 18808, 18800, 18801, 18860, 
18812, 18812, 18812, 18808, 18793, 18810, 18789, 18792, 18800, 
18789, 18805, 18800, 18792, 18816, 18807, 18804, 18787, 18795, 
18793, 18815, 18795, 18833, 18798, 18807, 18805), class = "Date")

df <- data.frame(日期 = date_vec)

3. 创建工作簿并设置日期格式：

# 创建空工作簿
wb <- createWorkbook()
# 添加工作表
addWorksheet(wb, sheetName = "日期数据")
# 写入数据（自动识别Date类型为Excel日期）
writeData(wb, sheet = "日期数据", x = df)

# 定义dd-mm-yyyy格式样式
date_style <- createStyle(numFmt = "DD-MM-YYYY")
# 应用样式到日期列（第1列，从第2行开始跳过表头）
addStyle(wb, sheet = "日期数据", style = date_style, rows = 2:(nrow(df)+1), cols = 1, gridExpand = TRUE)

# 保存工作簿
saveWorkbook(wb, "日期数据.xlsx", overwrite = TRUE)

方法二：使用writexl包（简洁快速） #

writexl会自动将R的Date类型转为Excel日期，后续可在Excel中手动设置显示格式：

1. 安装加载包：

install.packages("writexl")
library(writexl)

2. 导出数据：

write_xlsx(df, "日期数据_writexl.xlsx")

导出后打开Excel，选中日期列，设置单元格格式为dd-mm-yyyy即可，列仍保留日期属性，支持排序、筛选等日期操作。

关键注意点 #

• 绝对不要在R中用format()把Date列转成字符型，否则导出到Excel后会变成文本，无法保留日期属性。
• 上述方法均保留R中Date类型不变，仅通过Excel端格式设置改变显示样式，完全匹配需求。

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