如何使用VBA在多个Excel表格中增行或删行

Sub InsertRowsInMultipleExcelFiles()
    Dim filePaths As Variant
    Dim filePath As Variant
    Dim wb As Workbook
    Dim ws As Worksheet
    
    '选择需要操作的Excel文件
    filePaths = Application.GetOpenFilename("Excel Files (*.xls*), *.xls*", , "Select Excel Files", , True)
    
    '遍历每个选择的文件
    For Each filePath In filePaths
        '打开文件
        Set wb = Workbooks.Open(filePath)
        
        '选择需要操作的工作表，这里选择第一个工作表
        Set ws = wb.Worksheets(1)
        
        '在第2行插入5行
        ws.Rows("2:6").Insert Shift:=xlDown
        
        '保存并关闭文件
        wb.Save
        wb.Close
    Next filePath
End Sub

Sub DeleteRowsInMultipleExcelFiles()
    Dim filePaths As Variant
    Dim filePath As Variant
    Dim wb As Workbook
    Dim ws As Worksheet
    
    '选择需要操作的Excel文件
    filePaths = Application.GetOpenFilename("Excel Files (*.xls*), *.xls*", , "Select Excel Files", , True)
    
    '遍历每个选择的文件
    For Each filePath In filePaths
        '打开文件
        Set wb = Workbooks.Open(filePath)
        
        '选择需要操作的工作表，这里选择第一个工作表
        Set ws = wb.Worksheets(1)
        
        '删除第2行到第6行
        ws.Rows("2:6").Delete Shift:=xlUp
        
        '保存并关闭文件
        wb.Save
        wb.Close
    Next filePath
End Sub