Excel通过VBA在每月第一条数据上方插入空行的代码修正问题

Excel中日期类型的单元格底层存储为数值序列（从1900年1月1日开始累计的天数），直接用LEFT()读取会拿到底层数值而非你看到的格式化文本，自然无法匹配月份。你尝试的Month()函数无法生效大概率是调用方式或者遍历逻辑的问题，另外原有代码执行一次插入就退出循环，也无法处理所有月份的分界点。

Sub 按月份插入空行()
    Dim lastRow As Long
    Dim i As Long
    Dim preMonth As Integer, curMonth As Integer
    
    ' 获取A列最后有数据的行号
    lastRow = ActiveSheet.Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Row
    
    ' 倒序遍历：从最后一行往第2行走，避免插入行导致行号偏移漏处理数据
    For i = lastRow To 2 Step -1
        ' 先判断单元格内容是否为合法日期，避免报错
        If IsDate(Cells(i, 1)) And IsDate(Cells(i - 1, 1)) Then
            preMonth = Month(Cells(i - 1, 1))
            curMonth = Month(Cells(i, 1))
            ' 当前行月份和上一行不一致，说明是新月份的第一条数据
            If curMonth <> preMonth Then
                ' 插入3行
                Rows(i & ":" & i + 2).Insert
            End If
        End If
    Next
End Sub

• 遍历逻辑调整为倒序，解决正序插入行后行号变动、漏处理后续数据的问题
• 先用IsDate()校验单元格内容合法性，避免非日期值导致的运行错误
• 直接调用VBA内置Month()函数读取日期的月份数值，不需要做字符串截取，完全避开日期格式化差异的问题
• 会自动识别所有月份的分界点，每个新月份第一条数据上方都会插入3行，符合需求

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