Public Sub abc(arr, myb)
Set myb = CreateObject("scripting.dictionary")
For i = 1 To UBound(arr)
brr = Application.Index(arr, i, 0)
k = Application.WorksheetFunction.CountA(brr)
For j = 1 To k
s = s & "$" & Application.WorksheetFunction.Small(brr, j)
Next j
myb(s) = Array(i, k)
s = ""
Next i
Erase arr: Erase brr
End Sub
答：Public Sub abc(arr, myb) Set myb = CreateObject("scripting.dictionary") For i = ...详情>>
