Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
 
Set objWorkbook = objExcel.Workbooks.Open("d:\Script\Inbox\comandos.xls")
Set data = objWorkbook.WorkSheets("comandos")
ReDim pass(790)
j = 1
For i = 1 To data.UsedRange.Rows.Count
    pass(i) = data.Cells(i, 1).Value	
Next
 
DisplayArrayDupeCount pass,1
 
Sub DisplayArrayDupeCount(aTemp, iShow)
	Dim itemNameKey 
	Dim d:Set d = GetDupDict(aTemp)
 
	For Each itemNameKey In d.Keys
		If d(itemNameKey) > iShow Then 
	    	WScript.Echo itemNameKey & " found in array " & d(itemNameKey) & " times"
	    End If 
	Next
	Set d = Nothing
End Sub 
 
Function GetDupDict(aTemp)
	Dim dItems, j
 
	Set dItems = CreateObject("Scripting.Dictionary")
 
	For j = 0 To UBound(aTemp)
	   If Not IsEmpty(aTemp(j)) Then
	      dItems(aTemp(j)) = dItems(aTemp(j)) + 1
	   End If
	Next
	Set GetDupDict = dItems
	Set dItems = Nothing 
End Function