如何用excle实现，将某一列中含有需要查找的关键字的单元格的内容都提取到另外一列，然后自动排列下来。

可以用以下数组公式：

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键，再回车，结束输入。

下拉公式，示例如下图：

添加辅助列G，在G2中输入公式  =IF(COUNT(FIND("A",A2)),A2,"")  ,在E2中输入公式=INDEX(G:G,SMALL(IF(G$1:G$100<>"",ROW($1:$100),65536),ROW()))&""三键结束！

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