思路比较简单，样式也单一，丑了点。采用宏和时间函数，计算单元格偏移量，进行单元格填充。SubGenerateYearCalendar()DimwsAsWorksheetSetws=ThisWorkbook.Sheets("Sheet1")'更改为你使用的表名DimyearAsIntegeryear=InputBox("请输入年份(如