|
之前用的FIND实现的,还插了好多EXCEL 公式,一次算好多的,实在太慢。现在准备用数组来搞,不知道怎么用数组实现Find,和Findnext的功能。求大神帮助
- Sub Macro1()
- Dim arr, brr, d, d2, i&
- Set d = CreateObject("scripting.dictionary")
- Set d2 = CreateObject("scripting.dictionary")
- arr = Range("a1").CurrentRegion
- brr = Range("d1").CurrentRegion
- For i = 2 To UBound(arr)
- d(arr(i, 2)) = d(arr(i, 2)) & "," & arr(i, 1)
- Next
- For i = 2 To UBound(brr)
- d2(brr(i, 1)) = d2(brr(i, 1)) + 1
- brr(i, 2) = Split(d(brr(i, 1)), ",")(d2(brr(i, 1)))
- Next
- Range("e1").Resize(UBound(brr)) = Application.Index(brr, 0, 2)
- End Sub
复制代码
|
|