如何实现起始日期至结束日期间每日一行的日期生成？

嘿，我懂你要实现的功能——把每一行的日期区间拆成逐天的独立行，在G列填充对应日期对吧？这种需求看着简单，但写VBA的时候很容易在循环方向、行号计算上踩坑，先帮你分析常见问题，再给你一个能正常运行的完整代码，拆解关键细节：

你原来的代码运行异常，大概率是这几个常见坑没避开：

• 循环方向搞反了：如果从上往下遍历行，插入新行后会打乱后续行的行号，导致漏处理或者重复处理
• 变量类型不明确：VBA里默认是Variant类型，没明确声明的变量容易出现类型不匹配的错误
• 行数计算错误：需要插入的行数应该是「总天数-1」，因为原行已经占了一行，不需要重复插入
• 日期填充逻辑疏漏：逐天写入日期时，没考虑到插入行后的位置偏移

Sub ExpandDates()
    Dim ws As Worksheet
    Dim LastRow As Long
    Dim i As Long
    Dim startDate As Date
    Dim endDate As Date
    Dim totalDays As Long
    Dim insertRows As Long
    
    ' 替换成你实际操作的工作表名称
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 先找到I列最后一行有数据的行号
    LastRow = ws.Cells(ws.Rows.Count, "I").End(xlUp).Row
    
    ' 从最后一行往上循环，这是处理行插入的关键！
    For i = LastRow To 1 Step -1
        ' 获取当前行的起始和结束日期
        startDate = ws.Cells(i, "I").Value
        endDate = ws.Cells(i, "L").Value
        
        ' 跳过空日期或者起始日期晚于结束日期的无效行
        If IsDate(startDate) And IsDate(endDate) And endDate >= startDate Then
            totalDays = endDate - startDate + 1
            insertRows = totalDays - 1 ' 计算需要插入的行数：总天数减1（原行已存在）
            
            If insertRows > 0 Then
                ' 在当前行下方插入对应数量的空行
                ws.Rows(i + 1 & ":" & i + insertRows).Insert Shift:=xlDown
                
                ' 自动填充G列的连续日期，比循环逐个写高效得多
                ws.Cells(i, "G").Value = startDate
                ws.Cells(i, "G").Resize(totalDays, 1).DataSeries _
                    Rowcol:=xlColumns, Type:=xlChronological, Date:=xlDay, Step:=1, Stop:=endDate
                
                ' 如果你需要把原行的其他列数据复制到插入的行，取消下面这行注释
                ' ws.Rows(i).Copy ws.Rows(i + 1 & ":" & i + insertRows)
            Else
                ' 只有一天的情况，直接把日期写入G列
                ws.Cells(i, "G").Value = startDate
            End If
        End If
    Next i
End Sub

• 从下往上循环：For i = LastRow To 1 Step -1 是这个代码能正常运行的核心，插入新行只会影响当前行下方的行，而我们已经处理过那些行，不会打乱后续的遍历顺序
• 日期有效性校验：用IsDate检查日期是否有效，避免空值或非日期格式导致的运行错误
• 高效填充日期：使用DataSeries方法快速生成连续日期，比用循环逐个单元格写入要高效很多，尤其是数据量较大的时候
• 可选复制其他数据：如果需要保留原行的其他列内容（比如除了日期的业务数据），取消注释复制行的代码即可

内容的提问来源于stack exchange，提问作者Clément Hurel