excel中隔行删除行.docxVIP

本文包含一个可用于在 Microsoft Excel 工作表的选定区域中隔行删除行的 Microsoft Visual Basic for Applications 宏示例。  HYPERLINK javascript:void(0); 更多信息 Microsoft 提供的编程示例只用于说明目的，不附带任何明示或暗示的保证。这包括但不限于对适销性或特定用途适用性的暗示保证。本文假定您熟悉所演示的编程语言和... Microsoft 提供的编程示例只用于说明目的，不附带任何明示或暗示的保证。这包括但不限于对适销性或特定用途适用性的暗示保证。本文假定您熟悉所演示的编程语言和用于创建和调试过程的工具。Microsoft 的支持工程师可以帮助解释某个特定过程的功能，但是他们不会修改这些示例以提供额外的功能或构建过程以满足您的特殊需求。 要使用以下宏，请按照如下说明设置 Excel 工作簿： 创建一个新的 Microsoft Excel 工作簿。 在新的工作表中，向区域 A1:A9 中隔行键入数字 1 到 5，如以下示例所示： A1： 1 A2： A3： 2 A4： A5： 3 A6： A7： 4 A8： A9： 5 在“工具”菜单上，指向“宏”，然后单击“Visual Basic 编辑器”。注意：在 Microsoft Office Excel 2007 中，单击“开发工具”选项卡上“代码”组中的“Visual Basic”。 在“插入”菜单上，单击“模块”。 在新模块中，键入以下宏： Sub Delete_Every_Other_Row() Dimension variables. Y = False Change this to True if you want to delete rows 1, 3, 5, and so on. I = 1 Set xRng = Selection Loop once for every row in the selection. For xCounter = 1 To xRng.Rows.Count If Y is True, then... If Y = True Then ...delete an entire row of cells. xRng.Cells(I).EntireRow.Delete Otherwise... Else ...increment I by one so we can cycle through range. I = I + 1 End If If Y is True, make it False; if Y is False, make it True. Y = Not Y Next xCounter End Sub 切换到包含数据的工作表，然后选择区域 A1:A9。 要运行该宏，请指向“工具”菜单上的“宏”，然后单击“宏”。注意：在 Excel 2007 中，请单击“开发工具”选项卡???“代码”组中的“宏”。 选择“Delete_Every_Other_Row”宏，然后单击“执行”。 该宏会从选中区域的第二行开始隔行删除行。注意：如果数据列表中包含多个列，请只选择第一列数据，然后运行该宏。