Excel VBA /公式。使用当月的每个星期五填充单元格范围

Sub FillRangeWithWeekday()
    Dim startDate As Date
    Dim endDate As Date
    Dim currentCell As Range
    
    ' 设置起始日期和结束日期
    startDate = DateSerial(Year(Date), Month(Date), 1) ' 当月第一天
    endDate = DateSerial(Year(Date), Month(Date) + 1, 0) ' 当月最后一天
    
    ' 设置起始单元格
    Set currentCell = Range("A1")
    
    ' 循环遍历日期范围
    Do While startDate <= endDate
        ' 判断日期是否为星期五
        If Weekday(startDate) = vbFriday Then
            ' 填充单元格
            currentCell.Value = startDate
        End If
        
        ' 移动到下一个单元格
        Set currentCell = currentCell.Offset(1, 0)
        
        ' 增加一天
        startDate = startDate + 1
    Loop
End Sub