Bạn thử lại đoạn code sau:
Option Explicit
Sub RemoveduplicatesAndSort_LSX()
Dim data As Variant, Temp As Variant, sLSX As String, r As Long, i As Long, j As Long, iDate As Date, ca As Integer
Dim dic As New Scripting.Dictionary 'Tools/References: "Microsoft Scripting Runtime"
With...