Deleting Duplicate rows

[Niraj Baraili]

Hi Experts,

I found a code in below link for deleting duplicate rows using dictionary method. But i am not able correlate these lines - "Application.Index(sn, j, 0)" and "Application.Index(.items, 0, 0) " . Hope someone will put some light on it.

http://www.snb-vba.eu/VBA_Dictionary_en.html#L_22

Sub M_delete_duplicates()
sn = Sheets("Sheet1").Cells(1).CurrentRegion.resize(,5)

With CreateObject("scripting.dictionary")
For j = 1 To UBound(sn)
.Item(sn(j, 1)) = Application.Index(sn, j, 0)
Next

Sheets("Sheet1").Cells(1, 4).Resize(.Count, UBound(sn, 2)) = Application.Index(.items, 0, 0)
End With
End Sub

 

[Niraj Baraili]

I found my solution here. Very informative.

https://usefulgyaan.wordpress.com/2...cing-an-array-without-loop-application-index/

 

[p45cal]

Be aware that slicing and dicing arrays like this often slower (in the order of 10 times) than looping; I've had occasions to test this. Do your own testing.
Also, if you use Index or Tranpose, check that dates aren't converted to strings, which might then be misinterpreted by Excel when writing those strings to a sheet.