如何删除包含数组上的字符串的行

Question

我有一个问题如何删除数组中包含字符串的行。这是我的代码

Dim brands As Variant

brands=Array("Test1","Test2","Test3")

For j=7 to 15
Cells(j,1).Select
If InStr(1,Cells(j,1).Value, brands,1)<> 0 Then
Rows(j).EntireRow.Delete
j=j-1

End If
Next j

我的问题是，假设我在阵列上有数百个字符串。在某些数据中，我需要删除包含数组字符串列表的行。

知道该怎么做吗？

由于