[已解决]根据“字符”删除行！

丨左手写爱灬 · 发表于 2012-6-4 14:38

fujian.rar (6.2 KB, 下载次数: 10)

lisachen · 发表于 2012-6-4 14:53

这个最佳答案由 lisachen 给出，感谢 lisachen 的回答。

单击隐藏图章

本帖最后由 lisachen 于 2012-6-4 14:59 编辑

fujian.rar (14.76 KB, 下载次数: 35)

hamsik11 · 发表于 2012-6-4 14:54

Public Sub test()
Dim n
For n = Sheets("工程参数").UsedRange.Rows.Count To 1 Step -1
If InStr(Sheets("工程参数").Range("a" & n), "XIMA") = 0 Or InStr(Sheets("工程参数").Range("a" & n), "XMA") > 0 Then
Sheets("工程参数").Range("a" & n).EntireRow.Delete
End If
Next

End Sub

wayy · 发表于 2012-6-5 15:17

2楼代码很好，不知道楼主跑哪去了

丨左手写爱灬 · 发表于 2012-6-6 12:18

wayy 发表于 2012-6-5 15:17
2楼代码很好，不知道楼主跑哪去了

放了一会儿羊，忘记给好评了哈哈！马上补上！

丨左手写爱灬 · 发表于 2012-6-6 12:19

lisachen 发表于 2012-6-4 14:53

最喜欢用数组来解决问题了，可惜我刚刚入门很多都不懂，但是数组的运算效率真的非常高！

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