请教一下，如何用excel返回包含查找内容的所有列的值

好好学习137

例如：

WIFI模块

GSM模块

GPS模块

GPRS模块

电容 在另一列中返回所有包含“模块”的列的值

好好学习137

由于上传图片和附件不成功，只能这样写一下，大佬们能看懂不

abc123281

1. ub 查找()
   
2. Dim arr, brr(1 To 10000)
   
3. rw = [a65536].End(xlUp).Row
   
4. arr = Range("a1:a" & rw)
   
5. For i = 1 To UBound(arr)
   
6.   If InStr(arr(i, 1), "模块") Then
   
7.     n = n + 1
   
8.     brr(n) = arr(i, 1)
   
9.    End If
   
10. Next
    
11. [d1].Resize(n) = Application.Transpose(brr)
    
12. End Sub

复制代码

abc123281

查找.rar (13.96 KB, 下载次数: 23)

2018-4-2 16:50 上传

点击文件名下载附件

好好学习137

abc123281 发表于 2018-4-2 16:50

厉害了，请问大佬可不可以用公式的形式来写啊，我这个宏不太熟悉

abc123281

当然可以   但是我对公式并不感兴趣

gykg-excel

=INDEX(A:A,SMALL(NOT(ISNUMBER(FIND("模块",$A$1:$A$6)))/1%%+ROW($A$1:$A$6),ROW(A1)))&""

林竹999

看不懂是什么