excel表格快速给每条已有行下面插入空行

利用excel的编写VBA宏实现目的（以下步骤均在excel中进行）

运行步骤

1. 打开VBA编辑器：

   • 按 Alt + F11 打开VBA编辑器。

2. 插入新模块：

   • 在VBA编辑器中，选择 插入> 模块。
   • 

3. 粘贴代码：

   • 将需要操作的代码粘贴到新模块中。
   • 代码如下： a.注意需要修改为自己要修改的工作表名称，我的工作表名称是“康奈尔医学指数（CMI）”    b.我要遍历的列是C列，且是从除了第一行标题行之外的第二行开始遍历       c.需要插入多行时注意修改插入行的代码，我的例子是插入一行的，要改为插入三行 倒数第四行改成 ws.Rows(i + 1).Resize(3).Insert Shift:=xlDown

   • Sub InsertBlankRows()
         Dim i As Long
         Dim ws As Worksheet
         Set ws = ThisWorkbook.Sheets("康奈尔医学指数（CMI）") ' 修改为你的工作表名称

         ' 从最后一行向上遍历，确保正确插入空白行
         For i = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row To 2 Step -1
             ' 如果当前行有数据
             If ws.Cells(i, "C").Value <> "" Then
                 ' 插入三个空白行 下面行改为：  ws.Rows(i + 1).Resize(3).Insert Shift:=xlDown
                 ws.Rows(i + 1).Insert Shift:=xlDown
             End If
         Next i
     End Sub

4. 运行宏：

   • 关闭VBA编辑器，按 Alt + F8 打开宏对话框，选择 InsertBlankRows，然后点击“运行”。
   • 

通过这些步骤，宏将自动在每个问题之间插入空白行，避免手动插入的繁琐操作。