執行前：執行後：VBA程式碼：Option ExplicitSub 刪除行重複() Dim arr, db, i&, j% arr = ActiveSheet.UsedRange Set db = CreateObject("Scripting.Dictionary") For i = LBound(arr) To UBound(arr) db.RemoveAll For j = LBound(arr, 2) To UBound(arr, 2) If db.Exists(arr(i, j)) Then arr(i, j) = Empty Else db.Add arr(i, j), True End If Next j Next i ActiveSheet.UsedRange = arrEnd Sub程式見附件（電腦登陸開啟，手機版無法下載）。