Excel VBA按用户输入行号插入行并自动填充的技术问询

我来帮你把这段VBA代码补全并优化，实现你要的在多个工作表中插入指定行并自动填充的功能。原代码已经有了基础的输入和错误处理逻辑，我们需要补充插入行、自动填充的核心逻辑，同时加强输入验证，避免无效操作。

完整代码 #

Sub AddNewRep()
    Dim SelRow As Integer, i As Integer, j As Integer
    Dim targetSheet As Worksheet
    Dim maxRow As Long
    
    ' 检查是否选中了多行，若是则退出
    If Selection.Rows.Count > 1 Then
        MsgBox "请只选中单独一行进行操作！", vbExclamation
        Exit Sub
    End If
    
    SelRow = Selection.Row
    
    ' 获取用户输入的目标行号，同时处理非数字输入
    On Error Resume Next
    j = InputBox("ENTER ROW TO INSERT NEW REP", "ADD REP")
    On Error GoTo 0
    
    ' 验证输入是否有效：必须是数字，且行号在合理范围内
    If j = 0 Then
        MsgBox "请输入有效的数字行号！", vbCritical
        Exit Sub
    End If
    
    ' 循环处理第1到第9个工作表
    For i = 1 To 9
        Set targetSheet = ThisWorkbook.Sheets(i)
        maxRow = targetSheet.Cells(targetSheet.Rows.Count, "A").End(xlUp).Row ' 假设用A列判断最大数据行
        
        ' 确保输入的行号不超过工作表的最大可用行，也不小于1
        If j < 1 Or j > maxRow + 1 Then
            MsgBox "工作表" & targetSheet.Name & "中，行号" & j & "超出有效范围！", vbExclamation
            GoTo NextSheet
        End If
        
        ' 插入新行
        targetSheet.Rows(j).Insert Shift:=xlDown
        
        ' 自动填充：复制上一行的格式、公式和内容（可根据需求调整）
        ' 这里复制插入行的上一行（原j-1行）到新插入的行
        targetSheet.Rows(j - 1).Copy
        targetSheet.Rows(j).PasteSpecial Paste:=xlPasteAllUsingSourceTheme ' 复制格式、公式、值等
        Application.CutCopyMode = False ' 清除剪贴板
        
NextSheet:
    Next i
    
    MsgBox "所有工作表已完成行插入和填充操作！", vbInformation
End Sub

关键功能说明 #

• 输入验证增强：除了处理非数字输入，还检查行号是否在合理范围（1到最大数据行+1），避免无效插入
• 多工作表循环：遍历第1到第9个工作表，逐个处理
• 自动填充逻辑：复制新插入行的上一行的所有格式、公式和内容，确保新行和原有行保持一致（如果只需要复制格式或公式，可以修改xlPasteAllUsingSourceTheme为xlPasteFormats或xlPasteFormulas）
• 错误处理优化：针对每个工作表单独处理行号超出范围的情况，不会因为一个工作表出错就中断整个流程

使用注意事项 #

• 如果你不需要复制全部内容，只需要特定列的填充，可以把复制行的代码替换为针对列的操作，比如targetSheet.Range("A" & j).Value = targetSheet.Range("A" & j-1).Value
• 确保第1到第9个工作表确实存在，否则会触发错误，你可以根据实际工作表名称或索引调整循环范围

内容的提问来源于stack exchange，提问作者Mikey B.