竭诚为您提供优质文档/双击可除excel表格如何隔行删除
篇一：excel中实现隔行删除
excel中实现隔行删除
选一个空列做辅助列
假设是F列
在F1里填上
=mod(Row(F1),2)
然后复制到本列其它单元格中
打开自动筛选
选中0或1
然后全选删除
就搞定了
选的时候要选中整行
我试过的
完全可以
这个方法只能说是半自动的,对付几百行还能将就
如果真的有上万行,还是做个宏好一些
而且也很简单
subRowsdelete(oddaslong)
dimnRowsaslong
dimiaslong
withworksheets("sheet1")
nRows=.usedRange.Rows.count
Fori=nRowsto2step-1
ifimod2=oddthen
.Rows(i).delete
endif
next
endwith
endsub
odd为0时删除偶数行为1时删除奇数行
这种东西为什么要用Vba或者宏
只需要加一个辅助列即可:
在某列输入公式:=mod(Row(),2)
然后把公式复制到相应的数据区域即可.
如果您希望删除奇数列,那么使用筛选,选取辅助列值为1,然后选中这些行,删除即可.如果您希望删除偶数列,那么选取辅助列值为0,然后选中筛选出来的行,删除即可.
然后选中辅助列,进行排序,这样中间就不会出现空行了。

最后删除辅助列
远比使用Vba来的快捷.另外:行数即使真的几万行一样可行.
如果是几万行复制一次公式也挺烦的
不如Vba来得方便
楼主可以打开你的excel文件
按alt+F11打开Vba编辑器
在左边找到该文件的thiswork双击它
然后把俺的代码复制到右边的代码区
这段代码是处理名为sheet1的表单的
你要根据你的情况改一下
把光标点到这段代码里
然后按F5
哗~~~~~~~~~~~~
整个世界清静了
选定你要***作的工作表
"工具"->"宏"->"Vb编辑器"
"插入"->"模块"
复制下面的代码行,删除前面的引号,并修改其中注释的fristline和linecount后面的数字,然后按下"F5"运行即可
submacro1()
fristline=1填需删除的第一行的行号linecount=100填需删除的最后一行的行号fristdelete=int((fristline+1)/2)*2 str1=fristdelete
Fori=1to(linecount-fristdelete)/2
str1=str1dimensionvariables.
18.y=Falsechangethisto trueifyouwantto
19.deleterows1,3,
5,andsoon.
20.i=1
21.setxRng=selection
22.
23.
24.
25.
26.
27.
28.
29.
30.。