Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Microsoft Office и VBA > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 14.07.2017, 23:32   #1
ольгаг
Форумчанин
 
Регистрация: 22.02.2010
Сообщений: 320
Репутация: 21
По умолчанию Скопировать значения из диапазонов на один лист

Здравствуйте Уважаемые программисты!

Подскажите пожалуйста как кодом (vba excel 2003) выполнить следующее:
На листе "Список" в 1-ом столбце расположен именованный диапазон с именем "Общ_список_имен". В имен.диапазоне "Общ_список_имен" приведен список из имен содержащихся в этой же книге именованных диапазонов.
Как кодом на лист "все_данные" в 1-ый столбец скопировать сначала все значения из имен.диапазона "Элементы1", затем начиная с последней пустой ячейки в 1-ом столбце листа "все_данные" скопировать все значения из имен.диапазона "Элементы2" и т.д.

Код:
имен.диапазон "Общ_список_имен" на листе "Список":
Элементы1
Элементы2
...

имен.диапазон "Элементы1" на листе "Элементы1":
и1
а4

имен.диапазон "Элементы2" на листе "Элементы2":
в4
у7

Надо сформировать на листе "все_данные" 1-ый столбец в след. виде:
и1
а4
в4
у7
Заранее спасибо!

Последний раз редактировалось ольгаг; 14.07.2017 в 23:38.
ольгаг вне форума   Ответить с цитированием
Старый 16.07.2017, 17:32   #2
OLEGOFF
Пользователь
 
Регистрация: 05.03.2014
Сообщений: 14
Репутация: 10
По умолчанию

Попробуйте следующий код
Код:
Sub Макрос6()
     'Запускать с листа "Список"
Worksheets("все_данные").Range("A:A").ClearContents
  For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
   Range(Cells(i, 1).Value).Copy _
   Worksheets("все_данные").Cells(Rows.Count, 1).End(xlUp)(2)
  Next i
End Sub
OLEGOFF вне форума   Ответить с цитированием
Старый 17.07.2017, 10:07   #3
Aleksandr H.
2 the Nation Glory
Профессионал
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Адрес: Wild West Ukraine
Сообщений: 2,667
Репутация: 1096
По умолчанию

Цитата:
Сообщение от OLEGOFF Посмотреть сообщение
Попробуйте следующий код
А после и такую модификацию
Код:
Sub Макрос6()
     'Запускать с листа "Список"
Worksheets("все_данные").Range("A:A").ClearContents
  For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
   Sheets(Cells(i, 1).Value).Range(Cells(i, 1).Value).Copy _
   Worksheets("все_данные").Cells(Rows.Count, 1).End(xlUp)(2)
  Next i
End Sub
__________________
Mailto: media.project@ukr.net
Aleksandr H. на форуме   Ответить с цитированием
Старый 24.07.2017, 23:33   #4
ольгаг
Форумчанин
 
Регистрация: 22.02.2010
Сообщений: 320
Репутация: 21
По умолчанию

Спасибо за помощь!
ольгаг вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Скопировать диапазон с листа на лист Aleksandr H. Microsoft Office Excel 7 27.07.2016 13:55
Поиск максимального значения из нескольких диапазонов-строк. Tidus Microsoft Office Excel 5 01.07.2014 02:26
Как скопировать лист? gizy@ Microsoft Office Excel 11 13.01.2012 15:33
Скопировать скрытый лист внутри книги... GieNa Microsoft Office Excel 6 06.10.2010 19:02
...как скопировать лист?... maxvip Microsoft Office Excel 6 23.01.2010 17:03


20:32.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.