Напишите код VBA, который удаляет дубликаты строк на активном листе, учитывая сочетание столбцов А, В и С, D и сохраняет только первую уникальную запись. Укажите полную процедуру.

Для удаления дубликатов строк в VBA, учитывая столбцы A, B, C и D, и сохранения первой уникальной записи, можно использовать следующий код:

1. Определите диапазон данных на активном листе.
2. Используйте метод RemoveDuplicates объекта Range, указав столбцы для сравнения и указав, что заголовки присутствуют (если применимо).

Пример кода:

Sub RemoveDuplicateRows()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim dataRange As Range

    Set ws = ActiveSheet

    ' Находим последнюю строку с данными
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

    ' Определяем диапазон данных (предполагая, что данные начинаются с A1)
    ' Если есть заголовки, диапазон должен включать их.
    ' Если заголовков нет, начните с первой строки данных.
    Set dataRange = ws.Range("A1:D" & lastRow)

    ' Удаляем дубликаты, учитывая столбцы A, B, C, D
    ' Параметр 1 означает, что заголовки есть в диапазоне.
    ' Если заголовков нет, измените на 0.
    dataRange.RemoveDuplicates Columns:=Array(1, 2, 3, 4), Header:=xlYes

    MsgBox "Дубликаты строк удалены."
End Sub