如何编写VBA宏根据C1单元格数值在其下方插入对应行数

不需要针对20、30单独写判断逻辑，通用方案支持C1输入任意正整数时，自动在C1下方插入对应数量的空行，同时加入了输入合法性校验，避免无效值导致运行报错。

完整VBA代码 #

Sub InsertRowsBelowC1()
    Dim targetWs As Worksheet
    Dim rowNum As Long
    Dim insertTotal As Long
    
    ' 若需固定指定工作表，可替换为 Set targetWs = ThisWorkbook.Worksheets("你的工作表实际名称")
    Set targetWs = ActiveSheet
    rowNum = targetWs.Range("C1").Row
    
    ' 校验C1单元格数值有效性
    If Not IsNumeric(targetWs.Range("C1").Value) Then
        MsgBox "C1单元格内容不是有效数字，请检查后重试", vbExclamation
        Exit Sub
    End If
    insertTotal = CLng(targetWs.Range("C1").Value)
    If insertTotal <= 0 Then
        MsgBox "C1单元格数值必须为大于0的正整数", vbExclamation
        Exit Sub
    End If
    
    ' 执行插入行操作
    targetWs.Rows(rowNum + 1 & ":" & rowNum + insertTotal).Insert Shift:=xlDown
    MsgBox "操作完成，已在C1单元格下方插入" & insertTotal & "行", vbInformation
End Sub

使用方法 #

• 打开目标Excel文件，按Alt + F11组合键调出VBA编辑器
• 在左侧工程栏右键点击当前工作簿，依次选择「插入」-「模块」
• 将上述代码完整粘贴到弹出的模块代码编辑窗口
• 回到Excel界面，可通过「开发工具」选项卡-「宏」，选中InsertRowsBelowC1点击执行，也可以直接在VBA编辑器按F5运行

说明：代码默认对当前激活的工作表生效，若要固定绑定某张工作表，按照代码注释修改对应工作表绑定语句即可。当C1值为20时自动插入20行，值为30时自动插入30行，无需单独为两个数值写分支判断。

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