| Вопрос: удаление дублированных строк | Добавлено: 07.07.05 16:02 |
Автор вопроса:  Vasjka
|
|
Помогите пожалуйста как удаляить одинаковые строки
Заранее спасибо. |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  Vasjka Вопросов: 3 Ответов: 2 |
Профиль | | #1 | Добавлено: 07.07.05 16:03 |
| забыл добавить, в экселе удалять строки. | ||
|
Номер ответа: 2 Автор ответа: mc-black ICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | | #2 | Добавлено: 14.07.05 13:19 |
|
Option Explicit
Sub test() Dim i As Long Dim j As Long i = 1 Do While Not ThisWorkbook.Worksheets("Лист1"  .Cells(i, 1).Value = Empty
j = i + 1 Do While Not ThisWorkbook.Worksheets("Лист1" .Cells(j, 1).Value = Empty
If ThisWorkbook.Worksheets("Лист1" .Cells(j, 1).Value = ThisWorkbook.Worksheets("Лист1".Cells(i, 1).Value Then
Rows(j).Delete Else j = j + 1 End If Loop i = i + 1 Loop End Sub Этот макрос в текущей книге на листе "Лист1" удаляет повторяющиеся строки. Проверка на повторение идёт по первому столбцу. Проверял - работает. 
|
||
|
Номер ответа: 3 Автор ответа: GSergВопросов: 0 Ответов: 1876 
|
Профиль | | #3 | Добавлено: 14.07.05 14:23 |
|
Данные -> Фильтр -> Расширенный -> Только уникальные записи.
Если охота видеть это в коде, запишии макрос. |
||
Страница: 1 |