Excel VBA需求：根据C4值在Sales5行后插入指定行数

完整代码 #

Sub InsertRowsBelowSales5()
    Dim insertCount As Integer
    Dim sales5Row As Range
    
    ' 获取C4单元格的数值
    insertCount = Range("C4").Value
    
    ' 校验输入是否在1-5之间
    If insertCount < 1 Or insertCount > 5 Then
        MsgBox "请在C4单元格输入1-5之间的整数！", vbExclamation
        Exit Sub
    End If
    
    ' 查找包含"Sales5"的单元格（精确匹配整个文本）
    Set sales5Row = Cells.Find(What:="Sales5", LookIn:=xlValues, LookAt:=xlWhole)
    
    ' 判断是否找到目标行
    If sales5Row Is Nothing Then
        MsgBox "未找到包含""Sales5""的行！", vbCritical
        Exit Sub
    End If
    
    ' 在Sales5行下方插入指定数量的新行
    sales5Row.Offset(1).Resize(insertCount).EntireRow.Insert
End Sub

初学者操作步骤 #

1. 打开目标Excel文件，按下Alt + F11打开VBA编辑器
2. 右键点击左侧工程窗口里的当前工作簿名称，选择插入→模块
3. 将上面的代码粘贴到右侧的代码空白窗口中
4. 返回Excel界面，按下Alt + F8，选择InsertRowsBelowSales5宏，点击执行

代码关键部分说明 #

• Range("C4").Value：读取C4单元格的数值，作为要插入的行数
• Cells.Find：在整个工作表中精确查找包含"Sales5"的单元格，LookAt:=xlWhole避免匹配类似"Sales50"的无关内容
• Offset(1)：定位到Sales5所在行的下一行位置
• Resize(insertCount)：将选中范围扩展为指定的行数
• EntireRow.Insert：一次性插入扩展后的整行范围，比循环插入更高效

注意事项 #

• 如果工作表中有多个单元格包含"Sales5"，代码会选择第一个匹配的行
• 若C4输入非整数或超出1-5范围，宏会弹出提示并终止运行

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