VBA模糊查询：sheet1 B3 录入厂名的关键字，则sheet2 A列中找出包含关键字厂名并复制到表3A列,求助

Question

如题所述

Answer 1

引用ado, 用SQL语句吧，亲~
例如"insert into [sheet3](厂名) select 厂名 from sheet2 where 厂名 like %" & sheet1.range("B3") "%",
这语法不一定对，但思路大概这样

Answer 2

Sub test()
Dim i, j, k As Integer
Dim p As String
i = 1
j = Sheet2.[a65535].End(xlUp).Row
p = CStr(Sheet1.[b3])
For k = 1 To j
q = CStr(Sheet2.Cells(k, 1))
If InStr(q, p) <> 0 Then
Sheet3.Cells(i, 1) = Sheet2.Cells(k, 1)
i = i + 1
End If
Next
End Sub追问

运行到Sheet3.Cells(i, 1) = Sheet2.Cells(k, 1)出错

追答

这段代码，我自己测试过的。你注意下，这段代码是个sub，过程。你需要在excel里面，插入一个模块，把这段代码放到模块中，然后运行使用。而不是放到某个worksheet中。

来自：求助得到的回答

Answer 3

大概写出来了，但是不敢发，连着两次一发代码就屏蔽。
没办法，下面的代码发不出来了。