excel中隔行删除行.docx

《excel中隔行删除行.docx》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、本文包含一个可用于在MicrosoftExcel工作表的选定区域中隔行删除行的MicrosoftVisualBasicforApplications宏示例。更多信息Microsoft提供的编程示例只用于说明目的，不附带任何明示或暗示的保证。这包括但不限于对适销性或特定用途适用性的暗示保证。本文假定您熟悉所演示的编程语言和...Microsoft提供的编程示例只用于说明目的，不附带任何明示或暗示的保证。这包括但不限于对适销性或特定用途适用性的暗示保证。本文假定您熟悉所演示的编程语言和用于创建和调试过程

2、的工具。Microsoft的支持工程师可以帮助解释某个特定过程的功能，但是他们不会修改这些示例以提供额外的功能或构建过程以满足您的特殊需求。要使用以下宏，请按照如下说明设置Excel工作簿：1.创建一个新的MicrosoftExcel工作簿。2.在新的工作表中，向区域A1:A9中隔行键入数字1到5，如以下示例所示：3.A1：14.A2：5.A3：26.A4：7.A5：38.A6：9.A7：410.A8：11.A9：512.在“工具”菜单上，指向“宏”，然后单击“VisualBasic编辑器”。注意：

3、在MicrosoftOfficeExcel2007中，单击“开发工具”选项卡上“代码”组中的“VisualBasic”。13.在“插入”菜单上，单击“模块”。14.在新模块中，键入以下宏：15.SubDelete_Every_Other_Row()16.17.'Dimensionvariables.18.Y=False'ChangethistoTrueifyouwantto19.'deleterows1,3,5,andsoon.20.I=121.SetxRng=Selection22.1.'Loop

4、onceforeveryrowintheselection.2.ForxCounter=1ToxRng.Rows.Count3.4.'IfYisTrue,then...5.IfY=TrueThen6.7.'...deleteanentirerowofcells.8.xRng.Cells(I).EntireRow.Delete9.10.'Otherwise...11.Else12.13.'...incrementIbyonesowecancyclethroughrange.14.I=I+115.16.

5、EndIf17.18.'IfYisTrue,makeitFalse;ifYisFalse,makeitTrue.19.Y=NotY20.21.NextxCounter22.23.EndSub24.切换到包含数据的工作表，然后选择区域A1:A9。25.要运行该宏，请指向“工具”菜单上的“宏”，然后单击“宏”。注意：在Excel2007中，请单击“开发工具”选项卡上“代码”组中的“宏”。26.选择“Delete_Every_Other_Row”宏，然后单击“执行”。该宏会从选中区域的第二行开始隔行删除行

6、。注意：如果数据列表中包含多个列，请只选择第一列数据，然后运行该宏。