应纳税所得额的计算公式excel表格如何隔行删除

2020年9月23日发(作者：雍泰)


竭诚为您提供优质文档双击可除

excel表格如何隔行删除
篇一：excel中实现隔行删除
excel中实现隔行删除
选一个空列做辅助列
假设是F列
在F1里填上
=mod(Row(F1),2)
然后复制到本列其它单元格中
打开自动筛选
选中0或1
然后全选删除
就搞定了
选的时候要选中整行
我试过的
完全可以
这个方法只能说是半自动的,对付几百行还能将就
如果真的有上万行,还是做个宏好一些
而且也很简单

第 1 页 共 8 页






















subRowsdelete(oddaslong)
dimnRowsaslong
dimiaslong
withworksheets(
nRows=.
Fori=nRowsto2step-1
ifimod2=oddthen
.Rows(i).delete
endif
next
endwith
endsub
odd为0时删除偶数行为1时删除奇数行
这种东西为什么要用Vba或者宏
只需要加一个辅助列即可:
在某列输入公式:=mod(Row(),2)
然后把公式复制到相应的数据区域即可.
如果您希望删除奇数列,那么使用筛选,选取辅助列值
为1,然后选中这些行,删除即可. 如果您希望删除偶数列,那
么选取辅助列值为0,然后选中筛选出来的行,删除即可.
然后选中辅助列,进行排序,这样中间就不会出现空行
了。最后删除辅助列


第 2 页 共 8 页


远比使用Vba来的快捷.另外:行数即使真的几万行一样
可行.
如果是几万行复制一次公式也挺烦的
不如Vba来得方便
楼主可以打开你的excel文件
按alt+F11打开Vba编辑器
在左边找到该文件的thiswork双击它
然后把俺的代码复制到右边的代码区
这段代码是处理名为sheet1的表单的
你要根据你的情况改一下
把光标点到这段代码里
然后按F5
哗~~~~~~~~~~~~
整个世界清静了
选定你要***作的工作表
工具宏编辑器
插入模块
复制下面的代码行,删除前面的引号,并修改其中注释
的fristline和l inecount后面的数字,然后按下运行
即可
submacro1()
fristline=1填需删除的第一行的行号


第 3 页 共 8 页

linecount=100填需删除的最后一行的行号
fristdelete=int((fristline+1)2)*2
str1=fristdelete
Fori=1to(linecount- fristdelete)2
str1=str1dimensionvariables.
18.y=Falsechangethisto
trueifyouwantto
rows1,3,
5,andsoon.
20.i=1
g=selection
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.



第 4 页 共 8 页



unter=1t
fyistrue,th en...ify=truethen...del
(i).
eotherwise...el se
34.
35....incrementibyonesowecancyclethroughrange.
36.i=i+1
37.

39.
rue,makeitFalse;ifyisFalse,makeittrue.
41.
42.
43.
44.
45.
46.
47.
注意：在excel20xx中，请单击“开发工具”选项卡上
“代码”组中的“宏”。
48.选择“delete_every_other_Row”宏，然后单击“执


第 5 页 共 8 页


行”。y=notynextxcount erendsub切换到包含数据的工作表，
然后选择区域a1:a9。要运行该宏，请指向“工具”菜 单上
的“宏”，然后单击“宏”。
该宏会从选中区域的第二行开始隔行删除行。
注意：如果数据列表中包含多个列，请只选择第一列数
据，然后运行该宏。
篇三：怎样在excel中每隔n行提取数据？
怎样在excel中每隔n行提取数据？来源：
excel格子社区
要在excel工作表的某列中每隔n行提取数据，可以
oFFset或index函数。假如数据在d1:d1000中，现在要每
隔4行提取一个数据，即 提取d列第4、8、12等行的数据，
如图。
在F2单元格中输入公式：
=oFFset($$d$$1,Row(d1)*4-1,0)
或：
=index($$d$$1:$$d$$1000,Row(d1)*4,0)
然后拖动填充柄向下填充 公式。如果要每隔n行提取数
据，则将上述公式中用红色标识的“4”表示改为相应的数
值即可 。
这是从上向下提取数值的情况，有时还需要从
最后一个数据开始向上每隔


第 6 页 共 8 页


n行提取数据，如图：
在单元格中输入数组公式：

=index($$d$$ 1:$$d$$1000,max(Row($$d$$1:$$d$$1000)*($$d$$1:$$d$$
1000或 ：
=oFFset(indiRect(

max(Row($$d$$1:$$d$$1000)*($$d$$1:$$d$$1000
4,0)
公式输入完毕，按ctrl+shift+enter结束，然后拖动
填充柄向下填充公式 。同理，如果要每隔n行提取数据，则
将上述公式中用红色标识的“4”表示
改为相应的数值即可。
要在excel工作表的某列中每隔n行提取数据，可以
oFFs et或index函数。假如数据在d1:d1000中，现在要每
隔4行提取一个数据，即提取d列第 4、8、12等行的数据，
如图。
在F2单元格中输入公式：
=oFFset($$d$$1,Row(d1)*4-1,0)
或：
=index($$d$$1:$$d$$1000,Row(d1)*4,0)
然后拖动填充柄向下填充公式。如果要每隔n行提取数


第 7 页 共 8 页


据，则将上述公式中用红色标识的“4”表示改为相应的数
值即可。
这是从上向下提取数值的情况，有时还需要从最后一个
数据开始向上每隔n行提取数据，如图：
在单元格中输入数组公式：
=index($$d$$1:(excel表格如何隔行删
除)$$d$$1000,max(Row($$d$$1:$$d$$1000)*($$d$$1:$$d$$1000< br>Row(a1)*4+1,0)或：
=oFFset(indiRect(

max(Row($$d$$1:$$d$$1000)*($$d$$1:$$d$$1000
4,0)
公式输入完毕，按ctrl+shift+enter结束，然后拖动
填充柄向下填充公式 。同理，如果要每隔n
行提取数据，则将上述公式中用红色标识的“4”表示
改为相应的数值即可。




第 8 页 共 8 页