本文包含一个示例 Microsoft Visual Basic for Applications 宏（Sub 过程），可用于在 Microsoft Excel 的多个工作表中插入或删除行或列。

Microsoft 提供的编程示例仅用于进行说明，而不提供明示或默示担保。 这包括但不限于适销性或对特定用途的适用性的默示担保。 本文假设您熟悉正在演示的编程语言和用于创建和调试过程的工具。 Microsoft 支持工程师可以帮助解释特定过程的功能。 但是他们不会修改这些示例以提供额外的功能，也不会构建过程以满足您的特定要求。 若要在多个工作表上插入或删除行或列，请使用 For Each...Next 语句循环访问所有必需的工作表，或在执行插入或删除之前选择行或列。

以下示例宏仅适用于连续的列或行范围。

使用循环在多个工作表中插入行的示例宏

Sub Insert_Rows_Loop()
     Dim CurrentSheet As Object
     ' Loop through all selected sheets.
     For Each CurrentSheet In ActiveWindow.SelectedSheets
        ' Insert 5 rows at top of each sheet.
        CurrentSheet.Range("a1:a5").EntireRow.Insert
     Next CurrentSheet
End Sub
用于选择列并插入新列的示例宏
以下示例宏在插入新列之前选择整个列：
Sub Select_Insert_Column()
    Dim MyRange as Object
    ' Store the selected range in a variable.
    Set MyRange = Selection
    ' Select the entire column.
    Selection.EntireColumn.Select
    ' Insert Columns in all selected sheets.
    Selection.Insert
    ' Reselect the previously selected cells.
    MyRange.Select
End Sub