日期列自动补充指定空白行的VBA代码异常排查求助

原代码的核心问题 #

• 固定范围的rng导致判断失效：初始定义的rng仅包含运行代码时的A列已用区域，插入新行后，后续循环无法识别超出初始范围的空白单元格，尤其是日期位于原始数据最后一行时，会彻底遗漏后续空白的判断。
• 空白计数逻辑有漏洞：当日期行后存在非空单元格时，计数会提前终止；如果日期是最后一行，i+j会超出工作表行范围，直接引发运行时错误。
• 插入行的范围计算错误：原代码中ws.Rows(i + 1 & ":" & i + (requiredBlanks - blankCount)).Insert的写法逻辑混乱，倒序循环场景下，直接指定插入行数远比计算行号范围更可靠。

修正后的VBA代码 #

Sub InsertBlankRowsAfterDates()
    Dim ws As Worksheet
    Set ws = ActiveSheet
    
    Dim requiredBlanks As Integer
    requiredBlanks = 6 ' 日期后需保留的空白单元格数量
    
    Dim i As Long
    ' 从当前最后一行倒序循环，避免插入行干扰后续行的索引
    For i = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row To 1 Step -1
        If IsDate(ws.Cells(i, 1).Value) Then
            Dim blankCount As Integer
            blankCount = 0
            Dim j As Long
            ' 安全计数日期后的空白单元格，同时避免超出工作表范围
            Do While i + blankCount + 1 <= ws.Rows.Count And ws.Cells(i + blankCount + 1, 1).Value = ""
                blankCount = blankCount + 1
                ' 最多计数到目标数量，减少无效循环
                If blankCount >= requiredBlanks Then Exit Do
            Loop
            
            ' 计算需要补充的空白行数
            Dim insertCount As Integer
            insertCount = requiredBlanks - blankCount
            If insertCount > 0 Then
                ' 直接插入指定数量的空白行
                ws.Rows(i + 1).Resize(insertCount).Insert Shift:=xlDown
            End If
        End If
    Next i
End Sub

代码修正说明 #

• 动态获取行范围：每次循环都重新获取当前A列的最后一行，彻底解决初始固定范围带来的判断失效问题。
• 安全的空白计数：用Do While循环替代原有的For循环，既避免了超出工作表范围的错误，又能准确统计有效空白单元格数量。
• 精准插入行：通过Resize(insertCount)直接指定要插入的行数，逻辑清晰，不会因为行号变化导致插入位置错误。

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