|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
- Sub zz()
- Dim d, ar, br
- Set d = CreateObject("Scripting.Dictionary")
- ar = Sheet1.Range("J2:Q6")
- br = Sheet3.Range("J2:Q" & Sheet3.[j65536].End(3).Row)
- For i = 1 To UBound(ar)
- d(ar(i, 1) & ar(i, 2) & ar(i, 3)) = ar(i, 8)
- Next
- For i = 1 To UBound(br)
- s = br(i, 1) & br(i, 2) & br(i, 3)
- If d.exists(s) Then
- br(i, 8) = d(s)
- Else
- br(i, 8) = 0
- End If
- Next
- Sheet3.Range("Q2").Resize(UBound(br)) = Application.Index(br, 0, 8)
- End Sub
- Sub cc()
- Dim i&, arr, s, d As Object
- arr = Range([a1], [a65536].End(3))
- Set d = CreateObject("Scripting.Dictionary")
- For i = 1 To UBound(arr)
- d(arr(i, 1)) = d(arr(i, 1)) + 1
- Next
- s = d.items
- For i = d.Count To 1 Step -1
- If Application.Index(d.items, i) > 1 Then
- d.Remove Application.Index(d.keys, i)
- End If
- Next
- Sheet2.[a1].Resize(d.Count) = WorksheetFunction.Transpose(d.keys)
- End Sub
复制代码 在这2段代码中,都用到了index函数,一处为2个参数,一处为3个参数,请问老师这该如何理解呢?
|
|