Как удалить строки c дублирующимися ячейками

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Как удалить строки c дублирующимися ячейками (Формулы)

Виталий

Дата: Понедельник, 23.12.2013, 14:39 | Сообщение № 1

Группа: Гости

Здравствуйте.
Имеется таблица вида:
символ, количество, ширина, высота
ПЛИТА ПВХ Б 1 154 764
ПЛИТА ПВХ Б 1 654 764
ПЛИТА ПВХ Б 2 948 823
ПЛИТА ПВХ М/Б 2 670 667
ПЛИТА ПВХ М/Б 2 670 667
ПЛИТА ПВХ М/Б 2 774 719
ПЛИТА ПВХ М/Б 2 774 719
СТЕКЛО 4 мм 1 350 980
СТЕКЛО 4 мм 2 413 1078
СТЕКЛО 4 мм 16 723 823
СТЕКЛО 4 мм 28 823 823
СТЕКЛО 4 мм 8 848 823
СТЕКЛО 4 мм 14 848 823

Как удалить дублирующиеся строки (в макросе)?
К примеру две последние строки должны быть в виде одной:

СТЕКЛО 4 мм 22 848 823

а сама таблица после преобразования:

ПЛИТА ПВХ Б 1 154 764
ПЛИТА ПВХ Б 1 654 764
ПЛИТА ПВХ Б 2 948 823
ПЛИТА ПВХ М/Б 4 670 667
ПЛИТА ПВХ М/Б 4 774 719
СТЕКЛО 4 мм 1 350 980
СТЕКЛО 4 мм 2 413 1078
СТЕКЛО 4 мм 16 723 823
СТЕКЛО 4 мм 28 823 823
СТЕКЛО 4 мм 22 848 823

Удаляю дубликат только по одному столбцу в макросе и только по одному столбцу:

Sub Double1()
Dim i As Long, j As Long
i = 3
Application.ScreenUpdating = False
Do While Rows(i).Cells(2) <> ""
Rows(i).Cells(2).Select
If (Rows(i).Cells(3) = Rows(i - 1).Cells(3)) Then
Range(Rows(i).Cells(1), Rows(i).Cells(4)).Select
Selection.Delete Shift:=xlUp
i = i - 1
End If
i = i + 1
Loop
Application.ScreenUpdating = True
End Sub

Помогите разобраться. Спасибо.
Вид таблицы не меняется.
Меняются только значения в ячейках и количество строк.
[moder]Тема закрыта. Причина: нарушение п.п. 3, 5r Правил форума[/moder]

Ответить

СообщениеЗдравствуйте.
Имеется таблица вида:
символ, количество, ширина, высота
ПЛИТА ПВХ Б 1 154 764
ПЛИТА ПВХ Б 1 654 764
ПЛИТА ПВХ Б 2 948 823
ПЛИТА ПВХ М/Б 2 670 667
ПЛИТА ПВХ М/Б 2 670 667
ПЛИТА ПВХ М/Б 2 774 719
ПЛИТА ПВХ М/Б 2 774 719
СТЕКЛО 4 мм 1 350 980
СТЕКЛО 4 мм 2 413 1078
СТЕКЛО 4 мм 16 723 823
СТЕКЛО 4 мм 28 823 823
СТЕКЛО 4 мм 8 848 823
СТЕКЛО 4 мм 14 848 823

Как удалить дублирующиеся строки (в макросе)?
К примеру две последние строки должны быть в виде одной:

СТЕКЛО 4 мм 22 848 823

а сама таблица после преобразования:

ПЛИТА ПВХ Б 1 154 764
ПЛИТА ПВХ Б 1 654 764
ПЛИТА ПВХ Б 2 948 823
ПЛИТА ПВХ М/Б 4 670 667
ПЛИТА ПВХ М/Б 4 774 719
СТЕКЛО 4 мм 1 350 980
СТЕКЛО 4 мм 2 413 1078
СТЕКЛО 4 мм 16 723 823
СТЕКЛО 4 мм 28 823 823
СТЕКЛО 4 мм 22 848 823

Удаляю дубликат только по одному столбцу в макросе и только по одному столбцу:

Sub Double1()
Dim i As Long, j As Long
i = 3
Application.ScreenUpdating = False
Do While Rows(i).Cells(2) <> ""
Rows(i).Cells(2).Select
If (Rows(i).Cells(3) = Rows(i - 1).Cells(3)) Then
Range(Rows(i).Cells(1), Rows(i).Cells(4)).Select
Selection.Delete Shift:=xlUp
i = i - 1
End If
i = i + 1
Loop
Application.ScreenUpdating = True
End Sub

Помогите разобраться. Спасибо.
Вид таблицы не меняется.
Меняются только значения в ячейках и количество строк.
[moder]Тема закрыта. Причина: нарушение п.п. 3, 5r Правил форума[/moder]

Автор - Виталий
Дата добавления - 23.12.2013 в 14:39

Как удалить строки c дублирующимися ячейками (Формулы)

Страница 1 из 1
1