Страница 1 из 2
удаление одинаковых строк
Добавлено: 23 окт 2009, 11:00
angej
всем привет!
прошу помочь в решении моей проблемки...
нужно в таблице удалить одинаковые строки, таблица состоит из двух столбцов но строчек количество не определенное.
помогите кто может
Re: удаление одинаковых строк
Добавлено: 23 окт 2009, 11:01
atavin-ta
Это где? В аксесе? Тогда их проще не допускать.
Re: удаление одинаковых строк
Добавлено: 23 окт 2009, 11:25
angej
да в excel. может и проще не допускать но они уже есть. теперь нужно удалять или можно скопировать в другой файл не допуская повторов.
Re: удаление одинаковых строк
Добавлено: 23 окт 2009, 11:26
atavin-ta
Я имел в виду аксес. А если в экзеле (это другая прога), то пиши макрос. У тебя какой экзел? А то там кое-что по языку не совпадает.
Re: удаление одинаковых строк
Добавлено: 23 окт 2009, 11:48
angej
Excel 2003
Re: удаление одинаковых строк
Добавлено: 23 окт 2009, 12:08
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
Re: удаление одинаковых строк
Добавлено: 23 окт 2009, 12:26
angej
работает, но удаляет только если совпадают значения только в первом столбце, а мне нужно удалять тогда когда совпадают данные и в первом и во втором столбце
Re: удаление одинаковых строк
Добавлено: 23 окт 2009, 12:30
atavin-ta
Там два подобных условия. Я одно скопировал в другое и собирался исправить в копии номер столбца, а исправить забыл. Темперь исправил, попробуй, должно работать. А примерно по тому, что ты не указал, ни с какого столбца начинаешь (бывает и E, а перед ним четыре пустых), ни с какой строки (вдруг у тебя вверху шапка таблицы). Если таблица начинается не с угла, тогда надо исправить и адрес ячейки и явные константы в заголовках циклов и номера столбцов в условиях.
Re: удаление одинаковых строк
Добавлено: 23 окт 2009, 12:42
angej
большое спасибо!!!!! работает
Re: удаление одинаковых строк
Добавлено: 23 окт 2009, 19:18
Teslenko_EA
Здравствуйте angej.
Подобные задачи, для обработки табличных данных, иогут быть решены не полько перебором всех данных, но и конструкцией с применением библиотки ADO.
Скорость её выполнения практически не зависит от количества строк, не ограничена размером листа Excel (65536), и не идет в сравнение с перебором.
Евгений.