VBA查询指定区域包含指定字符的单元格并输出

davidshi

嗨，请教各位高手支援谢谢。
由于新手，对数组公式概念比较模糊，不会套用公式，请帮忙给代码，非常感谢。

数据表，设备名称在第五行；

当前表格查询指定A2单元格字符，查询结果输出在A3以下。

hfwufanhf2006

你这横向查询有点奇怪，我还是按照横向的模式做的：

s = Range("a2")
hs = 3
For i = 12 To Worksheets("Total-06").[l5].End(2).Column
    If InStr(Worksheets("Total-06").Cells(5, i), s) > 0 Then
       Cells(hs, 1) = Worksheets("Total-06").Cells(5, i)
       hs = hs + 1
    End If
Next i

davidshi

hfwufanhf2006 发表于 2020-6-22 15:36
你这横向查询有点奇怪，我还是按照横向的模式做的：

s = Range("a2")

非常感谢！