Удалить дубликаты которые идут подряд
al3ks3
Дата: Среда, 23.08.2023, 12:51 |
Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация:
0
±
Замечаний:
0% ±
2021
Необходимо на листе в столбце удалить дубликаты которые идут только подряд, соответственно не удаляя все что идет через возможное промежуточное значение. Для примеру показываю что надо получить в результате.
Необходимо на листе в столбце удалить дубликаты которые идут только подряд, соответственно не удаляя все что идет через возможное промежуточное значение. Для примеру показываю что надо получить в результате. al3ks3
Ответить
Сообщение Необходимо на листе в столбце удалить дубликаты которые идут только подряд, соответственно не удаляя все что идет через возможное промежуточное значение. Для примеру показываю что надо получить в результате. Автор - al3ks3 Дата добавления - 23.08.2023 в 12:51
Oh_Nick
Дата: Среда, 23.08.2023, 13:09 |
Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 445
Репутация:
8
±
Замечаний:
20% ±
Excel 2019
al3ks3 , в лист и запустить макрос (поправил) [vba]Код
Sub RemoveConsecutiveDuplicates() Dim lastRow As Long Dim i As Long lastRow = Cells(Rows.Count, 1).End(xlUp).Row ' Предполагается, что данные находятся в первом столбце (столбец A) For i = lastRow To 2 Step -1 If Cells(i, 1).Value = Cells(i - 1, 1).Value Then Rows(i).Delete Shift:=xlUp End If Next i End Sub
[/vba]
al3ks3 , в лист и запустить макрос (поправил) [vba]Код
Sub RemoveConsecutiveDuplicates() Dim lastRow As Long Dim i As Long lastRow = Cells(Rows.Count, 1).End(xlUp).Row ' Предполагается, что данные находятся в первом столбце (столбец A) For i = lastRow To 2 Step -1 If Cells(i, 1).Value = Cells(i - 1, 1).Value Then Rows(i).Delete Shift:=xlUp End If Next i End Sub
[/vba]Oh_Nick
Сообщение отредактировал Oh_Nick - Среда, 23.08.2023, 13:13
Ответить
Сообщение al3ks3 , в лист и запустить макрос (поправил) [vba]Код
Sub RemoveConsecutiveDuplicates() Dim lastRow As Long Dim i As Long lastRow = Cells(Rows.Count, 1).End(xlUp).Row ' Предполагается, что данные находятся в первом столбце (столбец A) For i = lastRow To 2 Step -1 If Cells(i, 1).Value = Cells(i - 1, 1).Value Then Rows(i).Delete Shift:=xlUp End If Next i End Sub
[/vba]Автор - Oh_Nick Дата добавления - 23.08.2023 в 13:09
Serge_007
Дата: Среда, 23.08.2023, 13:12 |
Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация:
2749
±
Замечаний:
±
Excel 2016
В А1 - заголовок или пустую ячейку В другом столбце формула: Фильтруем и удаляем ЛОЖЬ
В А1 - заголовок или пустую ячейку В другом столбце формула: Фильтруем и удаляем ЛОЖЬ Serge_007
ЮMoney :41001419691823 | WMR :126292472390
Ответить
Сообщение В А1 - заголовок или пустую ячейку В другом столбце формула: Фильтруем и удаляем ЛОЖЬ Автор - Serge_007 Дата добавления - 23.08.2023 в 13:12
DrMini
Дата: Среда, 23.08.2023, 14:32 |
Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 1888
Репутация:
270
±
Замечаний:
0% ±
Excel LTSC 2024 RUS
Необходимо на листе в столбце удалить дубликаты которые идут только подряд
Вариант с доп. столбцом. [p.s.]По паразитирую на варианте Сергея для доп столбца[/p.s.]
Необходимо на листе в столбце удалить дубликаты которые идут только подряд
Вариант с доп. столбцом. [p.s.]По паразитирую на варианте Сергея для доп столбца[/p.s.]DrMini
Ответить
Сообщение Необходимо на листе в столбце удалить дубликаты которые идут только подряд
Вариант с доп. столбцом. [p.s.]По паразитирую на варианте Сергея для доп столбца[/p.s.]Автор - DrMini Дата добавления - 23.08.2023 в 14:32
прохожий2019
Дата: Среда, 23.08.2023, 15:36 |
Сообщение № 5
Группа: Проверенные
Ранг: Старожил
Сообщений: 1298
Репутация:
327
±
Замечаний:
0% ±
365 Beta Channel
[vba]Код
=LET(a;ЕСЛИ(A1:A9<>A2:A10;A1:A9;"");ФИЛЬТР(a;a<>""))
[/vba] адски туплю: Код
=ФИЛЬТР(A1:A9;A1:A9<>A2:A10)
[vba]Код
=LET(a;ЕСЛИ(A1:A9<>A2:A10;A1:A9;"");ФИЛЬТР(a;a<>""))
[/vba] адски туплю: Код
=ФИЛЬТР(A1:A9;A1:A9<>A2:A10)
прохожий2019
К сообщению приложен файл:
907.xlsx
(10.0 Kb)
Сообщение отредактировал прохожий2019 - Среда, 23.08.2023, 15:54
Ответить
Сообщение [vba]Код
=LET(a;ЕСЛИ(A1:A9<>A2:A10;A1:A9;"");ФИЛЬТР(a;a<>""))
[/vba] адски туплю: Код
=ФИЛЬТР(A1:A9;A1:A9<>A2:A10)
Автор - прохожий2019 Дата добавления - 23.08.2023 в 15:36
al3ks3
Дата: Среда, 23.08.2023, 16:30 |
Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация:
0
±
Замечаний:
0% ±
2021
Макрос в принципе наиболее удобен пока, спасибо за подсказки
Макрос в принципе наиболее удобен пока, спасибо за подсказки al3ks3
Ответить
Сообщение Макрос в принципе наиболее удобен пока, спасибо за подсказки Автор - al3ks3 Дата добавления - 23.08.2023 в 16:30