利用excel的编写VBA宏实现目的(以下步骤均在excel中进行)
运行步骤
-
打开VBA编辑器:
- 按
Alt + F11
打开VBA编辑器。
- 按
-
插入新模块:
- 在VBA编辑器中,选择
插入> 模块
。
- 在VBA编辑器中,选择
-
粘贴代码:
- 将需要操作的代码粘贴到新模块中。
- 代码如下: 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
-
运行宏:
- 关闭VBA编辑器,按
Alt + F8
打开宏对话框,选择InsertBlankRows
,然后点击“运行”。
- 关闭VBA编辑器,按
通过这些步骤,宏将自动在每个问题之间插入空白行,避免手动插入的繁琐操作。