Удалить дубликаты в колонке - всю строку

Вход

Регистрация

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

= Мир MS Excel/Удалить дубликаты в колонке - всю строку - Мир MS Excel

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удалить дубликаты в колонке - всю строку

Удалить дубликаты в колонке - всю строку

wwizard

Дата: Четверг, 12.01.2017, 23:59 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 176

Репутация: 0 ±

Замечаний: 40% ±

Немогу создать макрос, удаление всех дубликатов с колонки номер 2, но не просто удаление только ячеек, а всей строки.

[vba]

Код

Sub Макрос1()

    Cells.Select
    lr = Cells(Rows.Count, "B").End(xlUp).Row
    ActiveSheet.Range("$A$1:$K:D" & lr).RemoveDuplicates Columns:=2, Header:=xlNo
        xlYes
    Range("E1").Select
End Sub

[/vba]

Чтото не заработало. Ругается

т.е. http://prntscr.com/duvfuw и после
http://prntscr.com/duvg6t - все, простейшее действие и не получается

К сообщению приложен файл: 8956019.xlsx (11.7 Kb)

Ответить

SLAVICK

Дата: Пятница, 13.01.2017, 10:37 | Сообщение № 2

Группа: Модераторы

Ранг: Старожил

Сообщений: 2290

Репутация: 766 ±

Замечаний: 0% ±

2019

Цитата wwizard, 12.01.2017 в 23:59, в сообщении № 1 ()

а всей строки.

Можно так:
[vba]

Код

Sub D()
lr = Cells(Rows.Count, "B").End(xlUp).Row
Rows("1:" & lr).RemoveDuplicates Columns:=2, Header:=xlYes
End Sub

[/vba]

Цитата wwizard, 12.01.2017 в 23:59, в сообщении № 1 (

)

Чтото не заработало. Ругается

А ругается на диаппазон $A$1:$K:D" & lr и непонятное xlYes

Иногда все проще чем кажется с первого взгляда.

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удалить дубликаты в колонке - всю строку

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