循环遍历开始日期和结束日期并仅粘贴工作日的VBA代码

Sub PasteWorkdays()
    Dim startDate As Date
    Dim endDate As Date
    Dim currentDate As Date
    
    ' 设置开始日期和结束日期
    startDate = DateValue("2022-01-01")
    endDate = DateValue("2022-01-31")
    
    ' 遍历开始日期到结束日期
    For currentDate = startDate To endDate
        ' 判断当前日期是否为工作日（周六和周日不算）
        If Weekday(currentDate) <> 1 And Weekday(currentDate) <> 7 Then
            ' 在这里粘贴你要处理的代码
            ' 例如，将当前日期粘贴到单元格A1
            Range("A1").Value = currentDate
        End If
    Next currentDate
End Sub