Sub zidian() Dim d, r, ar, i Set d = CreateObject("scriptingdictionary") r = Sheet1Cells(RowsCount, 1
