удаление одинаковых строк

[angej]

всем привет!
прошу помочь в решении моей проблемки...

нужно в таблице удалить одинаковые строки, таблица состоит из двух столбцов но строчек количество не определенное.

помогите кто может

[atavin-ta]

Это где? В аксесе? Тогда их проще не допускать.

[angej]

да в excel. может и проще не допускать но они уже есть. теперь нужно удалять или можно скопировать в другой файл не допуская повторов.

[atavin-ta]

Я имел в виду аксес. А если в экзеле (это другая прога), то пиши макрос. У тебя какой экзел? А то там кое-что по языку не совпадает.

[angej]

Excel 2003

[atavin-ta]

Примерно так, по-моему:

Код: Выделить всё

Sub DeleteRows()
 Dim R As Integer
 Dim i As Integer
 Dim j As Integer
 Range("A1").Select
 Selection.End(xlDown).Select
 R = Selection.Row
 Range("A1").Select
 For i = R To 2 Step -1
     For j = 1 To i - 1 Step 1
         If Cells(i, 1) = Cells(j, 1) And Cells(i, 2) = Cells(j, 2) Then Row(i).Delete
     Next j
 Next i
End Sub

[angej]

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

[atavin-ta]

Там два подобных условия. Я одно скопировал в другое и собирался исправить в копии номер столбца, а исправить забыл. Темперь исправил, попробуй, должно работать. А примерно по тому, что ты не указал, ни с какого столбца начинаешь (бывает и E, а перед ним четыре пустых), ни с какой строки (вдруг у тебя вверху шапка таблицы). Если таблица начинается не с угла, тогда надо исправить и адрес ячейки и явные константы в заголовках циклов и номера столбцов в условиях.

[angej]

большое спасибо!!!!! работает

[Teslenko_EA]

Здравствуйте angej.
Подобные задачи, для обработки табличных данных, иогут быть решены не полько перебором всех данных, но и конструкцией с применением библиотки ADO.
Скорость её выполнения практически не зависит от количества строк, не ограничена размером листа Excel (65536), и не идет в сравнение с перебором.
Евгений.