5,172
社区成员




Sub GetStockName()
Dim Arr, k%, icl%
Dim Dic As Object, Itm
Arr = [A1].CurrentRegion
Set Dic = CreateObject("Scripting.Dictionary")
For icl = 1 To 6
For k = 1 To UBound(Arr)
Dic(Arr(k, icl)) = Dic(Arr(k, icl)) + 1
Next
Next
For Each Itm In Dic
If Dic(Itm) < 6 Then Dic.Remove Itm
Next
Arr = Dic.keys
[G1].Resize(UBound(Arr) + 1) = Application.Transpose(Arr)
Set Dic = Nothing
End Sub