Excel根据特定值批量增加空白行数

在Excel中的某一列给定一串数字，根据数值在每一行下方新增该数值大小的空白行数

效果：

Sub InsertRowsBasedOnValues()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim currentValue As Long

    ' 指定要操作的工作表
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 根据需要修改工作表名称

    ' 获取最后一行
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

    ' 从最后一行开始向上遍历
    For i = lastRow To 1 Step -1
        currentValue = ws.Cells(i, 1).Value

        ' 检查当前值是否为数字并且大于0
        If IsNumeric(currentValue) And currentValue > 0 Then
            ' 插入对应数量的空行
            ws.Rows(i + 1 & ":" & i + currentValue).Insert Shift:=xlDown
        End If
    Next i
End Sub

将代码粘贴到VB代码编辑器工具里运行