求大神帮忙，将A1列里带有品牌的行删除，品牌不止一个

jokerone · 发表于 2019-4-21 18:19

求大神指导下，附件只是一小部分，处理的是要多个品牌名称的，单个的删除知道流程，想了解有没有办法可以一次处理多个品牌名，
比如表格中出现了nike ,adidas, vans 那么那一行就要删除，删除后下行跟上，对excel不太会，希望大神能帮忙解决下问题。。小弟感激不尽！

jokerone · 发表于 2019-4-21 18:24

求大神解答下！

jyieo · 发表于 2019-4-21 19:22

筛选，删除不就好了？？

jokerone · 发表于 2019-4-21 19:32

jyieo 发表于 2019-4-21 19:22
筛选，删除不就好了？？

筛选我试过了，数据没上面的那么少，好几千行。。。

浮生不偷闲 · 发表于 2019-4-21 19:46

删除后剩下啥了？没太懂删除带有品牌名的行是个啥概念

jokerone · 发表于 2019-4-21 19:56

问题解决了，谢谢大家

jokerone · 发表于 2019-4-21 20:00

本帖最后由 jokerone 于 2019-4-21 22:09 编辑

这是解决方案，菜鸟一个，轻喷

jokerone · 发表于 2019-4-21 20:02

本帖最后由 jokerone 于 2019-4-21 22:10 编辑

Sub test()
Dim Arr, j&, i&, rng As Range, brandname
Application.ScreenUpdating = False
brandname = Array("asics", "adidas")  '这里可以加上你要删除的品牌名
Arr = [a1].CurrentRegion
For i = 1 To UBound(Arr)
For j = 0 To UBound(tj)
      If InStr(Arr(i, 1), brandname(j)) Then
         If rng Is Nothing Then Set rng = Rows(i): Exit For Else Set rng = Union(rng, Rows(i)): Exit For
      End If
Next
Next
If Not rng Is Nothing Then rng.Delete Shift:=xlUp
MsgBox "删除操作完成！"
Application.ScreenUpdating = True
End Sub

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

[已解决] 求大神帮忙，将A1列里带有品牌的行删除，品牌不止一个