需求：用VBA实现Excel D列按数字长度分段插入两行空白行

需求说明 #

• 当D列数字从7位长度变为11位长度时，在两类数字组之间插入两行空白行，示例：

1656340
1656352
1656389
（此处插入两行空白）
3156603873
3156690671
3156738131
注：D列数字为有序排列。

• 当数字从11位长度变为含两个连字符的17位格式时，同样在两类数字组之间插入两行空白行，示例：

3165694674
3165694674
3168190042
（此处插入两行空白）
026-1924781-2157120
026-6908033-4106726
028-8563479-8783525

最终要求：不同长度/格式的数字组之间必须有两行空白间隔。注意：部分数字组为随机生成，并非始终递增。

参考代码（无法适配本需求） #

Sub AddingBreakRows()

Dim R As Range
Set R = Range("I2:I400")
Dim FR As Integer
Dim LR As Integer

FR = 1 ' 区域内第一行
LR = R.Rows.Count ' 区域内最后一行

Dim Index As Integer

' 从最后一行向前遍历
For Index = LR To FR Step -1
    If Not IsEmpty(R(Index)) Then
        ' 在当前行下方插入一行
        R(Index).Offset(1, 0).EntireRow.Insert
    End If
Next

End Sub

适配需求的VBA代码 #

Sub InsertBlankBetweenGroups()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim currentType As String
    Dim prevType As String
    
    ' 设置操作的工作表，可根据实际修改
    Set ws = ThisWorkbook.ActiveSheet
    ' 获取D列最后一行行号
    lastRow = ws.Cells(ws.Rows.Count, "D").End(xlUp).Row
    
    ' 从倒数第二行向前遍历，避免插入行影响索引
    For i = lastRow - 1 To 2 Step -1
        ' 获取当前行和上一行的格式类型
        currentType = GetCellType(ws.Cells(i, "D"))
        prevType = GetCellType(ws.Cells(i + 1, "D"))
        
        ' 如果类型不同，插入两行空白行
        If currentType <> prevType And currentType <> "" And prevType <> "" Then
            ws.Rows(i + 1).Resize(2).Insert Shift:=xlDown
        End If
    Next i
End Sub

' 辅助函数：判断单元格内容的类型
Function GetCellType(cell As Range) As String
    Dim cellValue As String
    cellValue = Trim(cell.Value)
    
    ' 空单元格返回空字符串
    If cellValue = "" Then
        GetCellType = ""
        Exit Function
    End If
    
    ' 判断是否为带两个连字符的17位格式
    If Len(cellValue) = 17 And InStr(cellValue, "-") > 0 And InStrRev(cellValue, "-") > InStr(cellValue, "-") Then
        GetCellType = "17dash"
    ' 判断是否为11位数字
    ElseIf IsNumeric(cellValue) And Len(cellValue) = 11 Then
        GetCellType = "11digit"
    ' 判断是否为7位数字
    ElseIf IsNumeric(cellValue) And Len(cellValue) = 7 Then
        GetCellType = "7digit"
    Else
        ' 其他格式返回空，不处理
        GetCellType = ""
    End If
End Function

代码说明 #

1. 遍历方向：从下往上遍历D列，避免插入空白行后打乱后续行的索引位置。
2. 类型判断：通过辅助函数GetCellType识别单元格内容属于7位数字、11位数字还是带两个连字符的17位格式。
3. 插入逻辑：当相邻两行的内容类型不同时，在它们之间插入两行空白行。
4. 兼容性：自动获取D列最后一行，无需手动指定范围，适配不同数据量的表格。

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