vba代码很简单，如下；数据来源于“国务院办公厅关于2020年部分节假日安排的通知” =workDay(YEAR(TODAY())&"-"&MONTH(TODAY())&"-"&B3) '判断指定日期是否上班 Function workDay(rq) Dim cel As Range If Weekday(rq) = 1 Or Weekday(rq) = 7 Then temp = "休" For Each cel In Range("节假日表!