模糊查找数据复制问题

szdcp

各位高手


           本人菜鸟，附件参照之前大神的代码使用模糊查找功复制相应数据到工作表2，但是该代码只能复制一列数据且没有标题，我想要的是查找到的条目后面相关的几列也要一起复制到工作表2，请各位大神帮忙

3190496160

Sub 查找()
    Dim cnn As Object, SQL$
    Set cnn = CreateObject("ADODB.Connection")
'   cnn.Open "Provider=Microsoft.Jet.Oledb.4.0;Extended Properties=excel 8.0;Data source=" & ThisWorkbook.FullName     '旧版本
    cnn.Open "Provider = microsoft.ace.oledb.12.0;extended properties=Excel 12.0;Data Source =" & ThisWorkbook.FullName
    SQL = "Select * from [Sheet1$a1:k] where 首字母 like '%" & [m1] & "%'"
    Sheet2.Range("a1:c65536").ClearContents
    Sheet2.[a1].CopyFromRecordset cnn.Execute(SQL)
    cnn.Close
    Set cnn = Nothing
End Sub

3190496160

模糊查找.rar (327.42 KB, 下载次数: 3)

2022-12-7 11:19 上传

点击文件名下载附件

ykcbf1100

还是用数组吧，这个简单一点

leirongqin

看附件。。。

gwjkkkkk

参与 一下。。。

szdcp

非常感谢各位大神的回复