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

Вход

Регистрация

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

 

= Мир MS Excel/Первая ячейка из одинаковых скопирована в соседнюю - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Первая ячейка из одинаковых скопирована в соседнюю
wwizard Дата: Суббота, 14.09.2013, 03:21 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 176
Репутация: 0 ±
Замечаний: 40% ±

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


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

Автор - 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]
ЗЫ: Если правильно понял задачу. :)


Сообщение отредактировал ShAM - Суббота, 14.09.2013, 06:39
 
Ответить
СообщениеКопируем Столбец 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]
ЗЫ: Если правильно понял задачу. :)

Автор - ShAM
Дата добавления - 14.09.2013 в 06:34
Wasilich Дата: Суббота, 14.09.2013, 12:29 | Сообщение № 3
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация: 326 ±
Замечаний: 0% ±

2003
Я так делал.
[vba]
Код
Sub Макрос2()
     Range("H:H").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Worksheets("Лист2").Range("E1"), Unique:=True
End Sub
[/vba]
 
Ответить
СообщениеЯ так делал.
[vba]
Код
Sub Макрос2()
     Range("H:H").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Worksheets("Лист2").Range("E1"), Unique:=True
End Sub
[/vba]

Автор - Wasilich
Дата добавления - 14.09.2013 в 12:29
KuklP Дата: Суббота, 14.09.2013, 13:43 | Сообщение № 4
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
[offtop]Wasilic, так делали в далеком 2003 ;) Сейчас все проще(см. ответ Алишера).
P.S. сам сижу на 2003 и пока не собираюсь от него отказываться[/offtop]


Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728


Сообщение отредактировал KuklP - Суббота, 14.09.2013, 13:43
 
Ответить
Сообщение[offtop]Wasilic, так делали в далеком 2003 ;) Сейчас все проще(см. ответ Алишера).
P.S. сам сижу на 2003 и пока не собираюсь от него отказываться[/offtop]

Автор - KuklP
Дата добавления - 14.09.2013 в 13:43
Wasilich Дата: Воскресенье, 15.09.2013, 11:22 | Сообщение № 5
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация: 326 ±
Замечаний: 0% ±

2003
Wasilic, так делали в далеком 2003

Как вариант, для тех у кого 2003. Да и чем он хуже?


Сообщение отредактировал Wasilic - Воскресенье, 15.09.2013, 11:22
 
Ответить
Сообщение
Wasilic, так делали в далеком 2003

Как вариант, для тех у кого 2003. Да и чем он хуже?

Автор - Wasilich
Дата добавления - 15.09.2013 в 11:22
  • Страница 1 из 1
  • 1
Поиск:

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