通过查询关键字得到电子联行号

韬韬他妈 · 发表于 2015-8-29 06:11

本帖最后由韬韬他妈于 2015-8-29 08:38 编辑

各位老师，不好意思，我又来求助了。工作中经常要用到通过关键字，来查询多个数据通过查询关键字得到电子联行号.JPG

附件如下

wormtwo · 发表于 2015-8-29 06:36

wormtwo · 发表于 2015-8-29 06:37

Sub test()
Dim arr, sh As Worksheet, i&, yhName$, GJZ$, k&, brr()
With Worksheets("结果")
yhName = .Range("d6").Value
GJZ = .Range("d7").Value
.Range("d10:e20000").ClearContents
End With
For Each sh In Worksheets
With sh
If .Name <> "结果" Then
arr = .Range("a1").CurrentRegion
For i = 2 To UBound(arr)
If arr(i, 1) = yhName And arr(i, 3) Like "*" & GJZ & "*" Then
k = k + 1
ReDim Preserve brr(1 To 2, 1 To k)
brr(1, k) = arr(i, 2): brr(2, k) = arr(i, 3)
End If
Next
End If
End With
Next
Worksheets("结果").Range("d10").Resize(UBound(brr, 2), 2) = WorksheetFunction.Transpose(brr)
End Sub

复制代码

韬韬他妈 · 发表于 2015-8-29 08:36

本帖最后由韬韬他妈于 2015-8-29 08:41 编辑

wormtwo 发表于 2015-8-29 06:37

太感谢了，大师，效率太高了

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

[已解决] 通过查询关键字得到电子联行号