求一个VBA代码?先谢啦!

level 1

hy6012 楼主

我有一个表格,有1000行.现我要删除奇数行,一行行删除太麻烦了,我想VBA能解决,请高手们帮个忙.谢谢啦!

2006年05月17日 05点05分 1

level 9

Sub delerJSrow()For i = 1 To 65536 If Len(Cells(i, 1)) Then Rows(i).Delete End IfNextEnd Sub不用VBA也行！在空列中第一行插入公式：=MOD(ROW(),2)再筛选出1的值删除即可。

2006年05月17日 08点05分 2

level 1

hy6012 楼主

谢谢吧主!太棒了!

2006年05月17日 09点05分 3