在日期范围内添加工作日列的快速方法(Excel-VBA)

Sub AddWorkdayColumn()
    Dim startDate As Date
    Dim endDate As Date
    Dim currentDate As Date
    Dim workdayCount As Integer
    Dim columnRange As Range
    
    ' 设置起始日期和结束日期
    startDate = DateSerial(2022, 1, 1)
    endDate = DateSerial(2022, 12, 31)
    
    ' 设置起始列
    Set columnRange = Range("A1")
    
    ' 初始化当前日期和工作日计数
    currentDate = startDate
    workdayCount = 0
    
    ' 循环遍历日期范围
    Do While currentDate <= endDate
        ' 判断当前日期是否为工作日（非周末）
        If Weekday(currentDate) <> 1 And Weekday(currentDate) <> 7 Then
            workdayCount = workdayCount + 1
        End If
        
        ' 在当前列中添加工作日数值
        columnRange.Value = workdayCount
        
        ' 移动到下一列
        Set columnRange = columnRange.Offset(0, 1)
        
        ' 增加一天
        currentDate = currentDate + 1
    Loop
End Sub