如何将excel中的十的倍数行挑出来，同时保留后边列的内容？

Question

原来是这样的
要达到这样的效果

Answer 1

J1输入

=INDEX(G:G,SMALL(IF(MOD($G$1:$G$100,10)=0,ROW($1:$100),1000),ROW(1:1)))&""

先按 ctrl+shift,最后按回车

公式右拉下拉

Answer 2

在J1中输入公式：
=if(Mod(G1,10)=0,G1,0)
向下拖，
然后，在J列中排序，删除掉J列值为0的行，删除J列数值，则得到你要的结果。并且数据还是在原来的列中。

Answer 3

用VBA
单元格MOD 10 如果不等于0则删除行追问

有详细一点的命令吗，我对这个不太熟悉，谢谢啦

追答

我给你写一下详细的

dim i%,R%
r=usedrange.rows.count '得到总行数
for i=1 to r
if cells(i,1)mod 100 then
rows(i).delete shift:=xlUP

end if
next i

注:将cells(i,1)里的1改成你要判断的那一列的列序号

本回答被提问者采纳