[已解决]删除带4和7的行(已解决)

weiyi060419 · 发表于 2006-11-5 10:19

A列有编号从J00001到J00999，要求删除其中尾数是4或7的单元格，如J00004、J00144、J00017等。

请高手帮忙，谢谢！

[此贴子已经被作者于2006-11-10 13:48:57编辑过]

最佳答案

西窗暗雨

2006-11-8 21:37

有简单一点的，D2=IF(OR(--RIGHT(A2,1)=7,--RIGHT(A2,1)=4),1,0)，下拖，然后通过自动筛选把D列等于1的筛选出来，再把这些行删除，再展开就OK了。

qee用 · 发表于 2006-11-5 10:27

Sub aTest()
Dim i%
For i = [a65536].End(xlUp).Row To 3 Step -1
If Cells(i, 1) Like "*[47]" Then Cells(i, 1).Delete xlUp
Next i
End Sub

weiyi060419 · 发表于 2006-11-8 15:10

这是什么，程序？宏？

可惜这些我都不会，有简单的公式吗？

西窗暗雨 · 发表于 2006-11-8 21:37

有简单一点的，D2=IF(OR(--RIGHT(A2,1)=7,--RIGHT(A2,1)=4),1,0)，下拖，然后通过自动筛选把D列等于1的筛选出来，再把这些行删除，再展开就OK了。

weiyi060419 · 发表于 2006-11-10 11:18

QUOTE:

以下是引用西窗暗雨在2006-11-8 21:37:28的发言：

有简单一点的，D2=IF(OR(--RIGHT(A2,1)=7,--RIGHT(A2,1)=4),1,0)，下拖，然后通过自动筛选把D列等于1的筛选出来，再把这些行删除，再展开就OK了。

真简单,谢谢你了!

不过最后一步：删除等于1的行,我选择这几行删除，但也把隐藏的行删除了

有没有一步到位的方法，不要选一行删一行

西窗暗雨 · 发表于 2006-11-10 11:53

在筛选后，把行选中，再通过编辑-定位-定位条件-可见单元格的方法只删除不隐藏的行。

jx1680000 · 发表于 2006-11-10 12:27

QUOTE:

以下是引用西窗暗雨在2006-11-10 11:53:29的发言：
在筛选后，把行选中，再通过编辑-定位-定位条件-可见单元格的方法只删除不隐藏的行。

这个我常用在COPY，粘贴可见数据上，这个好

jx1680000 · 发表于 2006-11-10 12:35

我晕，排一下序，把要删除的排在一起，不就一下搞定了吗？

[em01]

[此贴子已经被作者于2006-11-10 12:37:00编辑过]

		自动登录	找回密码
密码			注册

狗尾续貂了，呵呵