额，这个问题在问答里已经出现了几次，奈何真的没几个人会，可能是真的比较复杂，所以没什么愿意去写吧！我很好奇为什么非要用Excel去做纪年的转换呢……
今天我正好有空，我就给大家简单写一下。
首先，有两种方式能实现公历纪年和农历纪年的转换，在Excel默认的序列填充内容里并不能自动生出农历纪年，我们能实现的仅仅是转换，而不是自动出结果！
至于两种方式嘛，大家都知道，一种用公式做转换，另一种用VBA写自定义函数。
1.公式法：
公式得到结果如下：
这种方式转换的农历日期不太完美，仅能保证农历日期是对的，但是显示方式和公历的显示方法差别不大，但是公式简单，有点基础的小伙伴肯定能看懂。
这种方式转换的农历日期似乎已经能满足大多数要求了，及包含里天干地支纪年法，也将数字的日期转换为中文了，但相对来说公式较为复杂，需要点技巧才能读懂，不过还好，我帮大家写好了，复制过去就能用了。弊端是有时候遇到农历闰月，这个公式就不灵了，其他还好！
最后就是大招了，这个大招呢，把公历日期完美转换，但也是最复杂的。如果你用的办公软件是WPS的话，那对不起了，你可能用不了这个方法。
2.自定义函数法：
鉴于很多小伙伴可能不懂，那么我就细致一点的说，自定义函数就是，我们自己根据需求去创建一个新的函数，以供我们计算使用。
步骤一：打开VBA，如果你的Excel功能区中没有【开发工具】，那么你需要在【文件】→【选项】→【自定义功能区】中勾选开发工具即可。
也可用快捷键AltF11，打开VBA编辑器
步骤二：我们再上图所标识的区域内鼠标右键→插入→模块，得到模块1
步骤三：在【模块1】中录入我们的VBA代码。代码很长，我就不截长图了。这里我们就定义好了一个叫做NongLi的函数。
步骤四：代码也写好了，那么就去用起来吧！！！关闭VBA编辑器，回到Excel，如果公历日期在A1单元格，那么还在再B1单元格做转换。
这个神奇的方法会让你的公式很简单哦，=NongLi（A1）即可，这样的方式转换出的农历日期可以显示农历、天干地支纪年、生肖、农历闰月等等，是不是完美？？？
你一定会问，那特么代码你也不贴出来，我怎么知道怎么写？我这就贴，这就贴。
代码如下：
PublicFunctionNongLi(OptionalXX_DATEAsDate)
DimMonthAdd(11),NongliData(99),TianGan(9),DiZhi(11),ShuXiang(11),DayName(30),MonName(12)
DimcurTime,curYear,curMonth,curDay
DimGongliStr,NongliStr,NongliDayStr
Dimi,m,n,k,isEnd,bit,TheDate
curTime=XX_DATE
MonthAdd(0)=0
MonthAdd(1)=31
MonthAdd(2)=59
MonthAdd(3)=90
MonthAdd(4)=120
MonthAdd(5)=151
MonthAdd(6)=181
MonthAdd(7)=212
MonthAdd(8)=243
MonthAdd(9)=273
MonthAdd(10)=304
MonthAdd(11)=334
NongliData(0)=2635
NongliData(1)=333387
NongliData(2)=1701
NongliData(3)=1748
NongliData(4)=267701
NongliData(5)=694
NongliData(6)=2391
NongliData(7)=133423
NongliData(8)=1175
NongliData(9)=396438
NongliData(10)=3402
NongliData(11)=3749
NongliData(12)=331177
NongliData(13)=1453
NongliData(14)=694
NongliData(15)=201326
NongliData(16)=2350
NongliData(17)=465197
NongliData(18)=3221
NongliData(19)=3402
NongliData(20)=400202
NongliData(21)=2901
NongliData(22)=1386
NongliData(23)=267611
NongliData(24)=605
NongliData(25)=2349
NongliData(26)=137515
NongliData(27)=2709
NongliData(28)=464533
NongliData(29)=1738
NongliData(30)=2901
NongliData(31)=330421
NongliData(32)=1242
NongliData(33)=2651
NongliData(34)=199255
NongliData(35)=1323
NongliData(36)=529706
NongliData(37)=3733
NongliData(38)=1706
NongliData(39)=398762
NongliData(40)=2741
NongliData(41)=1206
NongliData(42)=267438
NongliData(43)=2647
NongliData(44)=1318
NongliData(45)=204070
NongliData(46)=3477
NongliData(47)=461653
NongliData(48)=1386
NongliData(49)=2413
NongliData(50)=330077
NongliData(51)=1197
NongliData(52)=2637
NongliData(53)=268877
NongliData(54)=3365
NongliData(55)=531109
NongliData(56)=2900
NongliData(57)=2922
NongliData(58)=398042
NongliData(59)=2395
NongliData(60)=1179
NongliData(61)=267415
NongliData(62)=2635
NongliData(63)=661067
NongliData(64)=1701
NongliData(65)=1748
NongliData(66)=398772
NongliData(67)=2742
NongliData(68)=2391
NongliData(69)=330031
NongliData(70)=1175
NongliData(71)=1611
NongliData(72)=200010
NongliData(73)=3749
NongliData(74)=527717
NongliData(75)=1452
NongliData(76)=2742
NongliData(77)=332397
NongliData(78)=2350
NongliData(79)=3222
NongliData(80)=268949
NongliData(81)=3402
NongliData(82)=3493
NongliData(83)=133973
NongliData(84)=1386
NongliData(85)=464219
NongliData(86)=605
NongliData(87)=2349
NongliData(88)=334123
NongliData(89)=2709
NongliData(90)=2890
NongliData(91)=267946
NongliData(92)=2773
NongliData(93)=592565
NongliData(94)=1210
NongliData(95)=2651
NongliData(96)=395863
NongliData(97)=1323
NongliData(98)=2707
NongliData(99)=265877
curYear=Year(curTime)
curMonth=Month(curTime)
curDay=Day(curTime)
If(curMonth<10)Then
Else
EndIf
If(curDay<10)Then
TheDate=(curYear-1921)*365Int((curYear-1921)/4)curDayMonthAdd(curMonth-1)-38
If((curYearMod4)=0AndcurMonth>2)Then
TheDate=TheDate1
isEnd=0
m=0
Do
If(NongliData(m)<4095)Then
k=11
k=12
n=k
If(n<0)Then
ExitDo
bit=NongliData(m)
Fori=1TonStep1
bit=Int(bit/2)
Next
bit=bitMod2
If(TheDate<=29bit)Then
isEnd=1
TheDate=TheDate-29-bit
n=n-1
Loop
If(isEnd=1)Then
m=m1
curYear=1921m
curMonth=k-n1
curDay=TheDate
If(k=12)Then
If(curMonth=(Int(NongliData(m)/65536)1))Then
curMonth=1-curMonth
ElseIf(curMonth>(Int(NongliData(m)/65536)1))Then
curMonth=curMonth-1
If(curMonth<1)Then
NongliDayStr=MonName(curMonth)
NongliDayStr=NongliDayStr&DayName(curDay)
NongLi=NongliStr&NongliDayStr
EndFunction
代码这么长，你们复制拿去用就好了，看不看的我也不在意了。
最好，提醒一下，运用自定义函数的方法，你的Excel文件保存时需要保存为*****.xlsm，这点很重要，千万注意。。。不然一切功亏一篑！！！