自动删除符合条件的单元格所在行——遇到的问题

chinjingo

运行宏后，当A列为文本时可按条件删除，
但当A列为数字时不能实现删除目的。

请老师指点，多谢先！

[ 本帖最后由 chinjingo 于 2010-11-8 09:21 编辑 ]

lu_zhao_long

原帖由 chinjingo 于 2010-11-7 22:54 发表
运行宏后，当A列为文本时可按条件删除，
但当A列为数字时不能实现删除目的。

请老师指点，多谢先！

楼主是要求大家帮你写 VBA 代码呢，还是让大家帮你修改 VBA 代码呢？

yvhgydn

Sub 删除()
Dim i%, j%, k%, result, info
Dim sht As Worksheet
result = Application.InputBox(prompt:="请输入要删除的名字：", Title:="删除", Type:=2)
k = 0
Application.ScreenUpdating = False
For Each sht In ThisWorkbook.Worksheets
With sht
j = .Cells(65536, 1).End(xlUp).Row
For i = j To 2 Step -1
If .Cells(i, 1) & "" = result Then
.Rows(i).Delete
k = k + 1
End If
Next
End With
Next
If k > 0 Then
info = "共删除" & k & "项数据"
Else
info = "没有找到符合条件的数据"
End If
MsgBox info
Application.ScreenUpdating = True
End Sub

chinjingo

多谢“方寸”老师，

chinjingo

不好意思，没说清楚，是修改代码，
“方寸”老师帮解决，谢谢关注！