Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Удалить дубликаты которые идут подряд - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Удалить дубликаты которые идут подряд
al3ks3 Дата: Среда, 23.08.2023, 12:51 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

2021
Необходимо на листе в столбце удалить дубликаты которые идут только подряд, соответственно не удаляя все что идет через возможное промежуточное значение. Для примеру показываю что надо получить в результате.
К сообщению приложен файл: 1236356.png (6.1 Kb)
 
Ответить
СообщениеНеобходимо на листе в столбце удалить дубликаты которые идут только подряд, соответственно не удаляя все что идет через возможное промежуточное значение. Для примеру показываю что надо получить в результате.

Автор - 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]


Сообщение отредактировал 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 - заголовок или пустую ячейку
В другом столбце формула:
Код
=A2<>A1

Фильтруем и удаляем ЛОЖЬ


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеВ А1 - заголовок или пустую ячейку
В другом столбце формула:
Код
=A2<>A1

Фильтруем и удаляем ЛОЖЬ

Автор - 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.]
К сообщению приложен файл: udalenieodinakovykhpodrjad.xlsx (10.0 Kb)
 
Ответить
Сообщение
Необходимо на листе в столбце удалить дубликаты которые идут только подряд

Вариант с доп. столбцом.
[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)
К сообщению приложен файл: 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
Дата добавления - 23.08.2023 в 16:30
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!