макрос работает на 2007 и более поздних версиях, но не на 2003 (удалить дубликаты). Что мне нужно сделать, чтобы заставить его работать на 2003

Да, к сожалению, функция, которую вы используете, только в 2007+.

Итак, вас заботит только то, одинаковы ли ячейки в столбцах 1, 2, 6, 7, 8, 9? Я предполагаю, что это означает, что вам все равно, если 10-20 были одинаковыми.

Исходя из этого предположения, вот идея, которую вы можете попробовать:

Отсортируйте весь диапазон по первому столбцу. Затем прокрутите каждую ячейку в первом столбце. Проверьте значение следующей ячейки. Если следующая ячейка такая же, то смещаем и проверяем значение ячейки в той же строке, но во втором столбце. Если это совпадает, продолжайте через все 6 столбцов. Если они все совпадают, удалите всю строку.

Итак, что-то вроде этого (которое вам нужно будет изменить для вашей реализации)

Sub test()
  Dim rng As Range
  Dim lastRow As Integer
  Dim rowsToDelete As New Collection
  Dim i As Integer
  lastRow = Range("A1").End(xlDown).row

  For Each rng In Range("A1:A9")
    For i = rng.row + 1 To lastRow
      If RowIsDuplicate(rng, i) Then _
        If NotExists(rowsToDelete, i) Then rowsToDelete.Add i
    Next i
  Next rng

  'now loop through the rowsToDelete collection and delete all of the rows

End Sub

Function RowIsDuplicate(source As Range, row As Integer) As Boolean

  RowIsDuplicate = False
  For n = 0 To 5
    'Offset(0, n) means, from the range, go down 0 rows and over n columns
    If source.Offset(0, n).Value <> Range("A" & row).Offset(0, n).Value Then _
      Exit Function
    If n = 5 Then RowIsDuplicate = True
  Next n

End Function

Function NotExists(col As Collection, i As Integer) As Boolean
  Dim v As Variant

  For Each v In col
    If v = i Then
      NotExists = False
      Exit Function
    End If
  Next v
  NotExists = True
End Function

Я проверил это с информацией в диапазоне A1: F9.

1   2   3   4   5   6
1   2   3   4   5   5
1   6   5   4   9   87
1   2   3   4   5   6
1   6   5   4   9   87
1   2   3   4   5   5
1   2   3   4   5   5
1   2   3   4   5   5
1   2   3   4   5   5

У меня есть 6 повторяющихся строк в этой таблице выше. Код, который я разместил, поймал их.

Уже поздно, я устал... надеюсь, это поможет.

Привет, Джастин, и ребятам, которым я задал вышеуказанный вопрос. Ну, у меня появилась идея, когда я продолжал думать об этом. Это то, что я пытался сделать.

Просто используйте формулу Concatenate

 Cells(2,"T").Formula = "=CONCATENATE(A2,B2,F2,G2,H2,I2)" 'append all column values into one string then insert the formula till the end
 Range("T2").Copy Destination:=Range("T3:T39930") 'Apply formula to end of sheet 

Теперь с помощью удаления дубликатов в одном столбце. Вы можете удалить повторяющиеся строки.

Sub Remove_Duplicates_in_a_column()
Dim x As Long
Dim LastRow As Long
LastRow = 39930 ' last row number say 39930
For x = LastRow To 1 Step -1
If Application.WorksheetFunction.CountIf(Range("T1:T" & x), Range("T" & x).Text)>1 Then
        Range("T" & x).EntireRow.Delete
    End If
Next x
MsgBox "Finished The Process"
End Sub

И это работает. Ну, я думаю, что это более многообещающий подход, потому что вам не нужны методы сортировки или фильтрации, а один неиспользуемый столбец. Любая обратная связь, пожалуйста, дайте мне знать