代码修改，请大师帮忙，谢谢！

baojun026 · 发表于 2021-10-25 19:57

本帖最后由 baojun026 于 2021-10-26 09:26 编辑

如下这段是查找C列包含关键字“电子”时删除整行，需要再增加二个关键字（“文具” “设备”）应该如何修改？也就是查找C列只要有包含“电子”“文具”“设备”时都删除整行。

请大师帮忙修改下，谢谢！

Dim nRow%, sht As Worksheet, ii%
Set sht = ActiveSheet
nRow = sht.Range("C" & Rows.Count).End(xlUp).Row
For ii = nRow To 1 Step -1
      If sht.Cells(ii, "C") Like "*电子*" Then
         sht.Rows(ii).Delete
      End If
Next

liulang0808 · 发表于 2021-10-25 20:22

If sht.Cells(ii, "C") Like "*电子*" and sht.Cells(ii, "C") Like "*文具*" and sht.Cells(ii, "C") Like "*设备*" Then

lsc900707 · 发表于 2021-10-25 20:53

本帖最后由 lsc900707 于 2021-10-25 21:04 编辑

If sht.Cells(ii, "C") Like "*电子*" and If sht.Cells(ii, "C") Like "*文具*" and If sht.Cells(ii, "C") Like "*设备*" Then

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

[已解决] 代码修改，请大师帮忙，谢谢！