求助,判断后删除行

wang691441894 · 发表于 2018-8-6 06:19

具体就是对第一列,判断第一列中的数字是否是整数,不是整数则删除行,保留是整数的行,谢谢了.

wang691441894 · 发表于 2018-8-6 06:21

附件在二楼,谢谢了.

lsc900707 · 发表于 2018-8-6 07:20

wang691441894 发表于 2018-8-6 06:21
附件在二楼,谢谢了.

我看前一问题中有多位大神告诉过你方法的。

wang691441894 · 发表于 2018-8-6 07:23

lsc900707 发表于 2018-8-6 07:20
我看前一问题中有多位大神告诉过你方法的。

不好意思,这是我发的第一帖,前一帖子是指?

wang691441894 · 发表于 2018-8-6 07:34

lsc900707 发表于 2018-8-6 07:20
我看前一问题中有多位大神告诉过你方法的。

不好意思，我看了一下确实这是第二贴，不好意思啊

xyxcc177 · 发表于 2018-8-6 08:08

Sub del()

Dim rng As Range
Do While True
Set rng = Range("a:a").Find(".")
If Not rng Is Nothing Then
Rows(rng.Row).Delete
Else
Exit Do
End If
Loop
End Sub
将此段代码放到工作表的模块中

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

[求助] 求助,判断后删除行