Excel新历转农历对照指南

一、转换方法

1. 公式法（适用于2023年及以后日期）

在单元格输入公式：=Excel.NumericalDateToLunar(A1)（A1为阳历日期单元格）

2. VBA脚本（兼容2007-2016版本）

按Alt+F11打开VBA编辑器，粘贴以下代码：
Sub ConvertCalendar
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet1")
Dim LastRow As Long
LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
For i = 2 To LastRow
ws.Cells(i, "B").Formula = "=Excel.NumericalDateToLunar(A" & i & ")"
Next i
End Sub

二、注意事项

• 仅支持Microsoft Excel 2010及以上版本
• 农历日期显示格式为：YYYY年MM月DD日
• 闰月标记显示为：YYYY年M月D日（闰）

三、常见问题

四、文献参考

• 《Microsoft Excel函数与公式大全》（第5版）
• 《办公软件高级应用与编程》（清华大学出版社）