Excel VBA循环数据按日期填充并跳过周末问题求助

需求明确 #

• 批量处理每行数据，读取天数(Dauer)、填充值(Leistung)、起始日期
• 根据每行起始日期与基准日期的差值，自动偏移填充的起始列位置
• 每填5个工作日单元格，自动跳过2个周末单元格
• 填够指定天数后停止，每行独立处理

原代码问题点 #

1. 第一段代码：

   • 缺失周末跳过逻辑，直接连续填充，不区分工作日和周末
   • 变量声明不规范，如ii1, jj1未指定类型，默认Variant类型，影响性能

2. 第二段代码：

   • 使用Exit Sub导致处理完第一行就终止程序，无法循环处理多行
   • 未实现起始日期偏移逻辑，固定从F列开始填充，不符合需求
   • 用CountA统计填充数量，若行内存在其他非空数据会导致提前终止

修正后的完整代码 #

Sub FillWorkdaysWithWeekendSkip()
    Dim rowOffset As Integer, colOffset As Integer
    Dim totalRows As Integer, currentRow As Integer
    Dim workDaysToFill As Integer, fillValue As Integer
    Dim startDate As Date, baseStartDate As Date
    Dim dateDiff As Long
    Dim fillCell As Range
    Dim filledCount As Integer
    
    ' 基础参数设置
    rowOffset = 2 ' 数据从第3行开始，行偏移量为2
    colOffset = 5 ' F列是第6列，列偏移量为5（6-1）
    baseStartDate = Range("C3").Value ' 基准起始日期，用于计算列偏移
    
    ' 清空填充区域，可根据实际范围调整
    Range("F3:XFD100").ClearContents
    
    ' 获取有效数据行数（A列从第3行开始的非空行数）
    totalRows = Cells(Rows.Count, "A").End(xlUp).Row - rowOffset
    
    ' 循环处理每一行
    For currentRow = 1 To totalRows
        ' 读取当前行的核心数据
        workDaysToFill = Range("A" & currentRow + rowOffset).Value
        fillValue = Range("B" & currentRow + rowOffset).Value
        startDate = Range("C" & currentRow + rowOffset).Value
        
        ' 计算起始列：基准日期到当前行起始日期的天数差，作为列偏移
        dateDiff = DateDiff("d", baseStartDate, startDate)
        Set fillCell = Cells(currentRow + rowOffset, colOffset + 1 + dateDiff)
        
        filledCount = 0
        
        ' 循环填充，直到达到指定天数
        Do While filledCount < workDaysToFill
            ' 填充5个工作日
            For i = 1 To 5
                If filledCount >= workDaysToFill Then Exit For
                fillCell.Value = fillValue
                Set fillCell = fillCell.Offset(0, 1)
                filledCount = filledCount + 1
            Next i
            
            ' 没填够的话，跳过2个周末单元格
            If filledCount < workDaysToFill Then
                Set fillCell = fillCell.Offset(0, 2)
            End If
        Loop
    Next currentRow
End Sub

关键细节说明 #

• 起始列定位：通过DateDiff计算日期差，将起始日期的差异转换为列偏移，确保填充位置精准匹配日期
• 周末跳过逻辑：用Do While+For循环实现“5天填充+2天跳过”的规则，每次填充后检查是否完成需求，避免无效循环
• 多行处理修复：移除原代码的Exit Sub，改用filledCount计数控制循环，确保所有行都能被处理
• 变量规范：所有变量明确声明类型，避免不必要的类型转换，提升代码稳定性
• 灵活适配：可修改rowOffset、colOffset和清空区域范围，适配不同表格结构

测试提示 #

• 确保C3的基准日期和每行的起始日期均为Excel认可的日期格式
• 若数据行数较多，将清空区域的XFD100改为实际最大行号
• 若数据行不连续，可将totalRows的计算改为用SpecialCells筛选有效行

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