Первая ячейка из одинаковых скопирована в соседнюю

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Первая ячейка из одинаковых скопирована в соседнюю (Макросы Sub)

wwizard

Дата: Суббота, 14.09.2013, 03:21 | Сообщение № 1

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

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

Сообщений: 176

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

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

Есть небольшой прайс лист с повторяющимися значениями в столбце 8.
Требуется чтобы каждое значение из повторяющихся вставилось на страницу 2 этого файла, просто подряд в колонку 5
Это возможно вообще както сделать? Замаялся вручную набивать

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

Сообщение отредактировал wwizard - Суббота, 14.09.2013, 03:21

Ответить

ShAM

Дата: Суббота, 14.09.2013, 06:34 | Сообщение № 2

Группа: Друзья

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

Сообщений: 1347

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

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

Excel 2010

Копируем Столбец 8, вставляем на Лист2 Столбец 5. Вкладка "Данные" - "Удалить дубликаты".
Записал макрорекордером, чуть подкорректировал:
[vba]

Код

Sub Макрос1()
      Range("H:H").Copy Worksheets("Лист2").Range("E1")
      Application.CutCopyMode = False
      Worksheets("Лист2").Range("$E:$E").RemoveDuplicates Columns:=1, Header:=xlNo
End Sub

[/vba]
ЗЫ: Если правильно понял задачу.