RemoveDuplicates - PullRequest
       1

RemoveDuplicates

0 голосов
/ 17 мая 2019

У меня есть рабочая тетрадь, в которой есть столбцы (A, B) (C, D) (E, F) (G, H) (I, J).Мне нужно отсортировать каждые 2 кортежа, затем удалить дубликаты в этом столбце с двумя кортежами, а затем перейти к следующему, пока я не завершу (A, B) до (I, J).У меня нет проблем со столбцами (A, B), НО, когда я прихожу к (C, D), происходит сбой макроса с сообщением

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

Я пробовал приведенный ниже код - X, Y как строки, а я какInteger.Я также изменил 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).Вместо этого, если я получаю сообщение об ошибке, как описано выше.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...