怎样在excel中实现隔行快速删除？3X

znchop

我的实际工作中，常常会遇到要对excel中的表格隔行删除，我常用“ctrl"加鼠标一个一个选定2、4、6、8行.....后再删除，慢死了！我想快速进行这部操作，谁能帮我呀？谢谢呀谢谢

[此贴子已经被作者于2005-9-18 17:03:19编辑过]

lingna

不知道是不是一定就是删除2、4、6、8这种的，如果是，可以加一列，如A1输入1，A2输入2，A3输入1，再双击拖至最后行，筛选出为2的行，将其删除。我只能想到这个了，嘿嘿！

m2qm

选定你要操作的工作表

"工具"->"宏"->"VB编辑器"

"插入"->"模块"

复制下面的代码行,删除前面的引号,并修改其中注释的fristline和linecount后面的数字,然后按下"F5"运行即可

'Sub Macro1()

  

'  fristline = 1                  '填需删除的第一行的行号

'  linecount = 100                '填需删除的最后一行的行号

'  fristdelete = Int((fristline + 1) / 2) * 2

'  str1 = fristdelete

'  For i = 1 To (linecount - fristdelete) / 2

'    str1 = str1 & "," & fristdelete + i * 2

'  Next

'  Range(str1).Delete

'End Sub

m2qm

选定你要操作的工作表

"工具"->"宏"->"VB编辑器"

在VB编辑器中"插入"->"模块"

复制下面的代码行,并修改其中注释的fristline和linecount后面的数字,然后按下"F5"运行即可

Sub Macro1()

  

  fristline = 1                  '填需删除的第一行的行号

  linecount = 100                '填需删除的最后一行的行号

  fristdelete = Int((fristline + 1) / 2) * 2

  str1 = fristdelete

  For i = 1 To (linecount - fristdelete) / 2

    str1 = str1 & "," & fristdelete + i * 2

  Next

  Range(str1).Delete

End Sub

LucasLynn

以下是引用znchop在2005-9-18 17:03:00的发言：

我的实际工作中，常常会遇到要对excel中的表格隔行删除，我常用“ctrl"加鼠标一个一个选定2、4、6、8行.....后再删除，慢死了！我想快速进行这部操作，谁能帮我呀？谢谢呀谢谢

录制一个宏来自动进行。

znchop

不行呀，怎么老是出现“运行时出现错误1004，方法‘rang作用于对象’global'时失败

[此贴子已经被作者于2005-10-1 17:46:00编辑过]

shisgs

当然2楼的办法最简单实用了！其他都是牛刀。