Найдите похожие ячейки подряд и замените ячейку рядом с ней.

Question

Мои строки содержат данные, аналогичные приведенным ниже, в разных ячейках, расположенных рядом друг с другом

+--------------+--------------+--------------+---------------+---------------+ | Print1 | Print2 | Print3 | Print4 | Print5 | +--------------+--------------+--------------+---------------+---------------+ | Pad Print | Pad Print | Screen Print | Digital Print | Digital Print | +--------------+--------------+--------------+---------------+---------------+ | Screen Print | Screen Print | Screen Print | Pad Print | Digital Print | +--------------+--------------+--------------+---------------+---------------+ | Screen Print | Screen Print | Pad Print | Pad Print | Pad Print | +--------------+--------------+--------------+---------------+---------------+

Я хочу удалить повторяющиеся ячейки и сделать их похожими на приведенные ниже +--------------+--------------+---------------+--------+--------+ | Print1 | Print2 | Print3 | Print4 | Print5 | +--------------+--------------+---------------+--------+--------+ | Pad Print | Screen Print | Digital Print | | | +--------------+--------------+---------------+--------+--------+ | Screen Print | Pad Print | Digital Print | | | +--------------+--------------+---------------+--------+--------+ | Screen Print | Pad Print | | | | +--------------+--------------+---------------+--------+--------+

Ребята, подскажите, пожалуйста, как этого добиться?

Answer 1

Без VBA и При условии, что Print1 в A1.Затем, скажем, H2 скопировали в нужном направлении:

=IF(COLUMN()=8,A2,IF(AND(A2<>$H2,COUNTIF(A2:$E2,A2)=1),A2,FALSE))  

Затем выберите H2, чтобы закончить, и Delete ... FALSE с ячейками Shift влево.Их легко выбрать с помощью команды «Найти и выбрать»> «Перейти к специальным ...»> «Формулы»> «Только логические» (*).

Скопируйте A1 в H1 и поперек, чтобы удовлетворить.

Однако на основе этот прецедент может сделать вашу Q не по теме здесь.

Answer 2

Скопируйте данные и щелкните правой кнопкой мыши (на черном листе)> Специальная вставка> Проверить транспонирование.Он вставит его на чистый лист, но повернет все на 90 градусов.Затем вы можете выбрать столбец и использовать команду «Удалить дубликаты» на вкладке данных.

Если вам придется делать это много раз, запишите макрос, выделяющий столбец, и удалите дубликаты, затем выберите следующий столбец, остановите запись макросов.

РЕДАКТИРОВАТЬ: Здесь VBA для удаления дубликатов выбранных ячеек.

Sub RmDuplicates()
    With Selection
        Application.CutCopyMode = False
        .RemoveDuplicates Columns:=1, Header:=xlNo
    End With
End Sub