用于在多个工作表上插入和删除行或列的示例宏 |
您所在的位置:网站首页 › 如何删除word表格的一行或多行 › 用于在多个工作表上插入和删除行或列的示例宏 |
用于在 Excel 中的多个工作表上插入/删除行或列的示例宏
项目06/06/2024
适用于:
Microsoft Excel
摘要
本文包含一个示例 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 |
今日新闻 |
点击排行 |
|
推荐新闻 |
图片新闻 |
|
专题文章 |
CopyRight 2018-2019 实验室设备网 版权所有 win10的实时保护怎么永久关闭 |