[分享]在VBA中使用Find方法

taxan · 发表于 2011-12-13 14:40

本帖最后由 taxan 于 2011-12-13 14:41 编辑

Function MyLookup(Src, MyArr2, MyCol)
'
'
'查找匹配的条件，然后返回需要的单元格

With MyArr2
   Set c = .Find(Src, LookIn:=xlValues)
   If Not c Is Nothing Then
      MyLookup = c.Worksheet.Cells(c.Row, MyCol)
End If
End With
End Function

一直用这个，直到我膝盖中了一箭~~

有个bug，就是不完全匹配时，也会出现结果~

haoyunlai521 · 发表于 2011-12-13 17:23

谢谢分享.

散落天涯 · 发表于 2011-12-21 23:39

初学者路过下载学习下

liucqa · 发表于 2011-12-22 01:27

这个很不错

wh1272 · 发表于 2011-12-23 10:35

最近正需要，谢谢了！

fanhongnc · 发表于 2011-12-23 14:31

留个记号好好学习下

哬扌户じ☆ve · 发表于 2012-1-15 12:01

谢谢分享
，受教了。

ksxsjj · 发表于 2012-1-16 09:33

留下来.学习学习

风云际会6 · 发表于 2012-1-16 12:03

顶！
find是个好东东。

wekido · 发表于 2012-2-29 13:49

下载不来啊

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