|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
- Sub Test()
- lastC = [c999999].End(3).Row
- Set d = CreateObject("Scripting.Dictionary")
- Set dd = CreateObject("Scripting.Dictionary")
- ReDim arrNew(1 To lastC, 1 To 1)
-
- arr = UsedRange
- For i = 2 To UBound(arr)
- If arr(i, 1) <> "" Then d(Left(arr(i, 1), 6)) = ""
- If arr(i, 2) <> "" Then dd(Left(arr(i, 2), 6)) = ""
- Next
- MsgBox 1
-
- For i = 2 To UBound(arr)
- If d.exists(Left(arr(i, 3), 6)) And dd.exists(Left(arr(i, 3), 6)) Then
- n = n + 1
- arrNew(n, 1) = Left(arr(i, 3), 6)
- End If
- Next
-
- [f2].Resize(n, 1) = arrNew
- End Sub
复制代码 |
|