如何用excle实现，将某一列中含有需要查找的关键字的单元格的内容都提取到另外一列，然后自动排列下来。
需要的是自动能够抓取出来的，不是要每次都去筛选再复制出来，具体实现的功能如图所示，把A列中带有字母a的内容全部抓出来，排列在E列中
可以用以下数组公式：
E2单元输入：
=INDEX(A:A,SMALL(IF(ISNUMBER(FIND($D$1,$A$2:$A$200)),ROW($A$2:$A$200),4^8),ROW(A1)))&""
数组公式，按住Ctrl键和Shift键，再回车，结束输入。
下拉公式，示例如下图：
温馨提示：内容为网友见解，仅供参考
第1个回答 2018-02-02
添加辅助列G，在G2中输入公式 =IF(COUNT(FIND("A",A2)),A2,"") ,在E2中输入公式=INDEX(G:G,SMALL(IF(G$1:G$100<>"",ROW($1:$100),65536),ROW()))&""三键结束！
第2个回答 2018-02-02
Sub aa()
Dim rng As Range
Dim i As Integer
Dim str As String
Set d = CreateObject("scripting.dictionary")
str = InputBox("请输入关键词", "温馨提示")
For Each rng In Range("a1:a" & Range("a65535").End(3).Row)
For i = 1 To Len(rng)
If rng.Characters(i, 1).Text = str Then
d(rng.Value) = ""
End If
Next i
Next rng
Range("c1").Resize(d.Count, 1) = Application.Transpose(d.keys)
End Sub追问
Dim rng As Range
Dim i As Integer
Dim str As String
Set d = CreateObject("scripting.dictionary")
str = InputBox("请输入关键词", "温馨提示")
For Each rng In Range("a1:a" & Range("a65535").End(3).Row)
For i = 1 To Len(rng)
If rng.Characters(i, 1).Text = str Then
d(rng.Value) = ""
End If
Next i
Next rng
Range("c1").Resize(d.Count, 1) = Application.Transpose(d.keys)
End Sub追问
这个程序要写在哪里？
相似回答
