EXCEL的批量删除问题

来源：百度知道 编辑：UC知道 时间：2024/05/30 23:06:01
一共有几千行的数据，第一列是“序号”，下来每列是分别对应的资料，现在想把除每行序号末尾为“2”的一行全部删除，该怎么弄？用筛选用不了啊。。。求高手解答，谢谢！
每行序号末尾为“2”即序号分别是“2”、“12”、“22、“32”、“42”、“52”.......“xxx2”

1L意思是用B列作为标记用的吗？就是在把A列中末尾为“2”的数据在B列反应为“1”，然后在用公式把B列为“1”的一行删了，方法是不错，但有没直接点的法子，还有我是要保留末尾为“2”的一行，不是删除。

wangxf9209 你说的法子我试了，不错，把序号列改成文本，然后用筛选，在复制出来就好了，这个社会精英多啊~，宏我不会用，最主要是记不住，1L的法子我也记住了，插一列然后用个数字标记下，然后用数值筛选，谢谢各位了，以后有不懂的再请教各位~

分都不知道给哪位朋友。。。都热心人啊。。。帮大忙了。。。

加一列B列，B1中输入 =if(right(a1,1)="2",1,"")，往下拖，然后选择B列，Ctrl+G,条件是公式下的数值，确定，点右键，删除，删除整行。

运行下面的这个宏就可以了，（代码已测试）
-------------------------------------
Sub test()
'假设那个表格的名字是“sheet1”，如果不是的话，你就把代码中的“sheet1”替换成表格的名字
Dim a, i As Integer
a = Application.CountA(Sheet1.Columns(1))
For i = 1 To a
If Right(Cells(i, 1).Value, 1) = 2 Then Cells(i, 1).EntireRow.Delete
Next i
End Sub

1、建一新列，输入公式=(A2/10-INT(A2/10)=0.2) 拖下去
2、ctrl-a 全选，自动筛选
3、新列选择“FALSE”，全部删除

同意楼上的:
我用我的办法:
加一列B列,B1输入 =right(a1,1)后向下填充;
以B列进行排序;
将B列不是"2"的行选择后整行删除

呵呵，我也看成是删除尾数为2的行了。