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

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удалить строку, если дубликат (Макросы/Sub)
Удалить строку, если дубликат
AleX_Leon Дата: Воскресенье, 01.02.2015, 19:21 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 21
Репутация: 4 ±
Замечаний: 0% ±

Excel 2016
Всем привет. Нужен макрос, позволяющий удалить строку, если дубликат в диапазоне(например А1).
Спасибо заранее
Пример вложил
К сообщению приложен файл: 3976588.xlsx (8.4 Kb)

i love www.excelworld.ru

Сообщение отредактировал AleX_Leon - Воскресенье, 01.02.2015, 19:32
 
Ответить
СообщениеВсем привет. Нужен макрос, позволяющий удалить строку, если дубликат в диапазоне(например А1).
Спасибо заранее
Пример вложил
Автор - AleX_Leon
Дата добавления - 01.02.2015 в 19:21
AleX_Leon Дата: Воскресенье, 01.02.2015, 19:34 | Сообщение № 2
Группа: Пользователи
Ранг: Новичок
Сообщений: 21
Репутация: 4 ±
Замечаний: 0% ±

Excel 2016
ОЙ, все уже нашел))
[vba]
Код
Sub RemoveDuplicates()
'пример удаления повторяющихся записей
      Cells.Sort Key1:=Range("A1")
      totalrows = ActiveSheet.UsedRange.Rows.Count
      For Row = totalrows To 2 Step -1
          If Cells(Row, 1).Value = Cells(Row - 1, 1).Value Then
              Rows(Row).Delete
          End If
      Next Row
End Sub
[/vba]
исходник

i love www.excelworld.ru

Сообщение отредактировал AleX_Leon - Воскресенье, 01.02.2015, 19:37
 
Ответить
СообщениеОЙ, все уже нашел))
[vba]
Код
Sub RemoveDuplicates()
'пример удаления повторяющихся записей
      Cells.Sort Key1:=Range("A1")
      totalrows = ActiveSheet.UsedRange.Rows.Count
      For Row = totalrows To 2 Step -1
          If Cells(Row, 1).Value = Cells(Row - 1, 1).Value Then
              Rows(Row).Delete
          End If
      Next Row
End Sub
[/vba]
исходник
Автор - AleX_Leon
Дата добавления - 01.02.2015 в 19:34
krosav4ig Дата: Воскресенье, 01.02.2015, 22:58 | Сообщение № 3
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация: 989 ±
Замечаний: 0% ±

Excel 2007,2010,2013
ну и зачем эти танцы с бубном, если можно просто[vba]
Код
Sub RemoveDuplicates()
     Intersect(ActiveSheet.UsedRange, [A:B]).RemoveDuplicates Array(1, 2), 2
end sub
[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениену и зачем эти танцы с бубном, если можно просто[vba]
Код
Sub RemoveDuplicates()
     Intersect(ActiveSheet.UsedRange, [A:B]).RemoveDuplicates Array(1, 2), 2
end sub
[/vba]
Автор - krosav4ig
Дата добавления - 01.02.2015 в 22:58
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удалить строку, если дубликат (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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