求vba大神指导

1149589899

就是一张表里有很多行信息，需要检索行中某一信息并将所有包含此检索信息的行生成一个新的表格。类似检索一个人名，将表一所有含有此人名的行都检索出来重新生成一个新表格！见附录一，谢谢各位！加急！

1149589899

有没有大神啊真的谢谢了

wxg0007

加急付钱，有需要可以点左手边我的QQ私聊

1149589899

有没有懂的大神，类似检索圈出来的所有张富杰，将所有的这些行生成新表格.

魂断蓝桥

Sub 查询()
Dim cnn As Object
Dim Sql As String, sh As Worksheet
Application.DisplayAlerts = False
For Each sh In Sheets
    If sh.Name <> "明细" Then sh.Delete
Next
Application.DisplayAlerts = True
Set cnn = CreateObject("ADODB.CONNECTION")
cnn.Open "Provider=Microsoft.Jet.OleDb.4.0;Extended Properties='Excel 8.0;HDR=YES'; Data Source=" & ThisWorkbook.FullName
Sql = "select * from [明细$a1:k] where 摘要 LIKE '%张富杰%'"
Sheets.Add AFTER:=Sheets(Sheets.Count)
With ActiveSheet
    .Name = "张富杰"
    Sheets("明细").[A1:K1].Copy .[A1]
    .[A2].CopyFromRecordset cnn.Execute(Sql)
End With
cnn.Close: Set cnn = Nothing
End Sub

1149589899

魂断蓝桥 发表于 2018-8-28 15:29
Sub 查询()
Dim cnn As Object
Dim Sql As String, sh As Worksheet

谢谢谢谢您！！！！！！！！！！！！！千言万语一句感谢！