如何将excel中查找到的内容复制到另一个excel表格中

我有一份图书目录的excel表，我现在用查找方式找到了所有包含 "名著”的内容，有500多条，我要是一行一行复制到另一个excel表格中，这样做太没有效率了，我怎样才能把查找出来的内容选定，然后复制到另一个excel表格中
我的自动筛选是灰色的？怎么办

用万能的vba可以实现。举例说明。

有一牛奶站，根据送奶的记录数据做成每天根据每个客户的送奶履历表。代码如下：

Sub 送奶履历表()

Const mYbook = "送奶履历表"

Dim MPATH As String

Dim I, J As Integer

Dim K1, K2 As Integer 'K1记录报表的行号，K2记录报表的列号

MPATH = ActiveWorkbook.Path

MBOOK = ActiveWorkbook.Name

Set d = CreateObject("Scripting.Dictionary")

Sheets("送奶记录").Select

I = 2

Do While Len(Cells(I, 2)) > 0

c = Cells(I, 2)

   If Not d.Exists(c) Then

       d.Add c, Cells(I, 3)

   End If

I = I + 1

Loop

I = I - 1

II = Trim(Str(I))

Dim BHK

Dim BH As String

Workbooks.Open Filename:=MPATH & "\" & mYbook

Sheets("报表").Select

Columns("A:AE").Select

Selection.ClearContents

Windows(MBOOK).Activate

K1 = 1: K2 = 1

For Each BHK In d.keys

Set cOnn = CreateObject("ADODB.Connection")

Set RST = CreateObject("ADODB.Recordset")

cOnn.Open "dsn=excel files;dbq=" & ThisWorkbook.FullName

BH = BHK

Sql = "SELECT `送奶记录$`.订奶编号, `送奶记录$`.客户电话, `送奶记录$`.客户姓名,`送奶记录$`.商品名称,  `送奶记录$`.日期, `送奶记录$`.数量 "

Sql = Sql & "FROM `送奶记录$` `送奶记录$` "

Sql = Sql & "WHERE (`送奶记录$`.订奶编号 =" & "'" & BH & "'" & ") "

Sql = Sql & " ORDER BY " & " `送奶记录$`.日期 "

 RST.Open Sql, cOnn, 1, 1

 Windows(mYbook).Activate

 If Not RST.EOF Then

    Cells(K1, 1) = RST.FIELDS(0)

    Cells(K1, 5) = RST.FIELDS(1)

    Cells(K1, 10) = RST.FIELDS(2)

 End If

 Do While Not RST.EOF '将送货记录填入送奶履历表中

 Cells(K1 + 1, K2) = RST.FIELDS(4)

 Cells(K1 + 2, K2) = RST.FIELDS(5)

 RST.MoveNext

 K2 = K2 + 1

 Loop

K1 = K1 + 4

K2 = 1

RST.Close

cOnn.Close

Set RST = Nothing

Set cnn = Nothing

Next BHK

End Sub

送奶记录表格式如下图：

送奶履历表，如图：