删除重复项

Question

我有一个工作簿，其中有（A，B）（C，D）（E，F）（G，H）（I，J）列。我需要对每个2元组进行排序，然后删除该2元组列中的重复项，然后移至下一个，直到完成（A，B）至（I，J）。 当我遇到（C，D）宏崩溃并显示消息时，我对（A，B）列没有问题

Run Time Error - 1004 " Application defined or object defined error

我尝试了下面的代码-X，Y作为字符串，而I作为整数。 我也将Columns:=Array(I,(I+1))更改为Columns:= I

If I = 1 Then
  Sheets("sorted").Range(X & "1" & ":" & y & "9999").RemoveDuplicates Columns:=Array(I, (I + 1)), Header:=xlYes
  ' Columns:=Array(7,8), Header:=xlYes|
Else
  Sheets("sorted").Range(X & "1" & ":" & y & "9999").RemoveDuplicates Columns:=Array(I, (I + 1)), Header:=xlYes
End If

预期结果-我想从（A，B）到（I，J）的每组列中删除重复项。相反，如果收到如上所述的错误消息。