如何快速的，把包含品牌词的单元格标记出来？求大神指导

dailei0907

如何快速的，把包含品牌词的单元格标记出来？

deadzlq

PQ参考解法

ggmmlol

高级筛选可以搞定

dailei0907

ggmmlol 发表于 2019-8-23 23:09
高级筛选可以搞定

大神可以教下步骤不？谢谢啦

dailei0907

deadzlq 发表于 2019-8-23 21:08
PQ参考解法

大神，这个是要写代码吗？小白一枚，看的不是很懂

ggmmlol

dailei0907 发表于 2019-8-24 09:20
大神可以教下步骤不？谢谢啦

步骤：
1、在E2单元格填写以下公式作为筛选条件：
=ISNUMBER(LOOKUP(,-FIND($C$2:$C$71,A2)))
2、选中A1单元格，设置字体加粗等格式，以区分于下边的数据。
3、从菜单中启动“高级筛选”，按提示选定3项单元格区域，点“确定”完成筛选。

演示如下：
本例子筛选结果显示，只有2项包含了品牌，分别是“夏天”、“舒适”

1016373263

Sub wwww()
Dim s As String, n As Integer, l As Integer
  Dim arr, arr1
    arr = Range("a2:a120")
    arr1 = Range("c2:c71")
    For j = 1 To UBound(arr)
    For i = 1 To UBound(arr1)
    If InStr(1, Cells(j + 1, 1), Cells(i + 1, 3), vbTextCompare) <> 0 Then
    Cells(j + 1, "a").Interior.ColorIndex = 3
   End If
  Next i
Next j
End Sub