需求：编写Excel自动填充宏，生成最多31天的跨月份日期序列

核心需求 #

生成从当月1日到31日的日期序列，不足31天的月份（如2023年2月），29-31日单元格留空。支持两种触发方式：

• 基于手动输入的「01.mm.yyyy」参考单元格生成
• 自动获取当前月份的1日作为起始生成（替代Ctrl+Shift+;不符合需求的填充逻辑）

实现代码及说明 #

方式一：基于手动输入的参考单元格生成 #

假设参考单元格为当前选中单元格，执行以下宏：

Sub FillDatesFromReference()
    Dim startDate As Date
    Dim targetMonth As Integer
    Dim targetYear As Integer
    Dim i As Integer
    
    ' 解析参考单元格的日期（需确保输入格式为dd.mm.yyyy）
    On Error GoTo InvalidDate
    startDate = DateValue(Replace(ActiveCell.Value, ".", "/"))
    targetMonth = Month(startDate)
    targetYear = Year(startDate)
    
    ' 清空起始单元格下方的旧数据
    ActiveCell.Offset(1, 0).Resize(30, 1).ClearContents
    
    ' 循环生成1-31日的序列
    For i = 1 To 31
        ' 判断当前日期是否属于目标月份（DateSerial(year, month+1, 0)会返回当月最后一天）
        If DateSerial(targetYear, targetMonth, i) <= DateSerial(targetYear, targetMonth + 1, 0) Then
            ActiveCell.Offset(i - 1, 0).Value = DateSerial(targetYear, targetMonth, i)
            ' 设置统一的日期格式
            ActiveCell.Offset(i - 1, 0).NumberFormat = "dd.mm.yyyy"
        Else
            ' 超出当月天数则留空
            ActiveCell.Offset(i - 1, 0).ClearContents
        End If
    Next i
    
    Exit Sub
    
InvalidDate:
    MsgBox "请输入有效的起始日期（格式：01.mm.yyyy）", vbExclamation
End Sub

使用步骤：

1. 在Excel中手动输入「01.mm.yyyy」格式的日期（如01.02.2023）并选中该单元格
2. 执行宏，自动从该单元格向下填充到31日，超出当月天数的单元格留空

方式二：自动基于当前月份生成 #

无需手动输入起始日期，宏自动获取当前月份的1日作为起始，生成到31日的序列：

Sub FillCurrentMonthDates()
    Dim targetMonth As Integer
    Dim targetYear As Integer
    Dim i As Integer
    
    ' 获取当前月份和年份
    targetMonth = Month(Date)
    targetYear = Year(Date)
    
    ' 以当前选中单元格为填充起始位置
    Dim startCell As Range
    Set startCell = ActiveCell
    
    ' 清空起始单元格下方的旧数据
    startCell.Offset(1, 0).Resize(30, 1).ClearContents
    
    ' 循环生成日期序列
    For i = 1 To 31
        If DateSerial(targetYear, targetMonth, i) <= DateSerial(targetYear, targetMonth + 1, 0) Then
            startCell.Offset(i - 1, 0).Value = DateSerial(targetYear, targetMonth, i)
            startCell.Offset(i - 1, 0).NumberFormat = "dd.mm.yyyy"
        Else
            startCell.Offset(i - 1, 0).ClearContents
        End If
    Next i
End Sub

使用步骤：

1. 选中要开始填充日期的单元格
2. 执行宏，自动生成当前月份1日到31日的序列，不足31天的月份后续单元格留空

关于之前录制宏失败的原因 #

录制宏只会复刻你手动操作的固定步骤，比如2023年2月手动填充到28日，宏就只会重复填充到28日，无法动态判断不同月份的天数。上面的代码通过DateSerial(targetYear, targetMonth + 1, 0)动态获取当月最后一天，以此判断每个日期是否有效，完美解决了适配所有月份的问题。

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