搜索系统

cree01 · 发表于 2014-6-16 09:31

本帖最后由 cree01 于 2014-6-17 16:47 编辑

各位高手，可否做一个如图片所示的搜素代码？
谢谢帮忙

jsxjd · 发表于 2014-6-16 09:44

上传Excel 文档并加以说明，感觉用函数公式就可实现

cree01 · 发表于 2014-6-16 14:24

jsxjd 发表于 2014-6-16 09:44
上传Excel 文档并加以说明，感觉用函数公式就可实现

已经添加.请帮忙

jsxjd · 发表于 2014-6-16 14:36

cree01 发表于 2014-6-16 14:24
已经添加.请帮忙

需要“搜索”什么，前面为什么是空的？

office8424 · 发表于 2014-6-16 14:44

Sub aa()
Range("c14:I100").Clear
n = 14
arr = Sheets("配件资料").Range("B3:H" & Sheets("配件资料").[c65536].End(3).Row).Value
For i = 1 To UBound(arr)
If arr(i, 2) Like "*" & [d7] & "*" Or arr(i, 3) Like "*" & [d7] & "*" Then
Sheets("配件资料").Range(Sheets("配件资料").Cells(i + 3, 2), Sheets("配件资料").Cells(i + 3, 8)).Copy Cells(n, 3)
n = n + 1
End If
Next i
End Sub

		自动登录	找回密码
密码			免费注册

[求助] 搜索系统

最新热点 /1