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

Вход

Регистрация

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

 

= Мир MS Excel/Копирование и вставка несвязных ячеек (диапазонов) - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копирование и вставка несвязных ячеек (диапазонов) (Макросы/Sub)
Копирование и вставка несвязных ячеек (диапазонов)
maxexcel Дата: Понедельник, 24.10.2016, 20:25 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 26
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Всем привет! Необходимо копировать данные из несвязных ячеек (диапазонов) из "Лист1" в другие несвязные ячейки в "Лист2". Т.е. из "Лист1"поочередно выделяем ячейки B2, E9, F7, далее копируем значения из этих ячеек, затем в "Лист2" поочередно выделяем F10, C5, E3 и вставляем скопированные значения. Файл-пример как должно быть во вложении. Прошу помочь!
К сообщению приложен файл: 7610697.xlsx(10Kb)


Сообщение отредактировал maxexcel - Понедельник, 24.10.2016, 20:29
 
Ответить
СообщениеВсем привет! Необходимо копировать данные из несвязных ячеек (диапазонов) из "Лист1" в другие несвязные ячейки в "Лист2". Т.е. из "Лист1"поочередно выделяем ячейки B2, E9, F7, далее копируем значения из этих ячеек, затем в "Лист2" поочередно выделяем F10, C5, E3 и вставляем скопированные значения. Файл-пример как должно быть во вложении. Прошу помочь!

Автор - maxexcel
Дата добавления - 24.10.2016 в 20:25
KuklP Дата: Понедельник, 24.10.2016, 21:36 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 2006
Репутация: 436 ±
Замечаний: 20% ±

В модуль листа1:
[vba]
Код
Public Sub www()
    Dim n&, c As Range, r As Range
    ReDim a(1 To Selection.Cells.Count)
    For Each c In Selection
        n = n + 1: a(n) = c.Value
    Next
    Set r = Application.InputBox("Select destination cells", Type:=8)
    If r.Cells.Count = n Then
        n = 0
        For Each c In r.Cells
            n = n + 1:c = a(n)
        Next
    End If
End Sub
[/vba]


Ну, с НДС и мы чего-то стoим! kuklp@mail.ru
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеВ модуль листа1:
[vba]
Код
Public Sub www()
    Dim n&, c As Range, r As Range
    ReDim a(1 To Selection.Cells.Count)
    For Each c In Selection
        n = n + 1: a(n) = c.Value
    Next
    Set r = Application.InputBox("Select destination cells", Type:=8)
    If r.Cells.Count = n Then
        n = 0
        For Each c In r.Cells
            n = n + 1:c = a(n)
        Next
    End If
End Sub
[/vba]

Автор - KuklP
Дата добавления - 24.10.2016 в 21:36
maxexcel Дата: Вторник, 25.10.2016, 14:27 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 26
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Добавил код в модуль в Лист1. Запускаю макрос, после того как выскочит окно "Select destination cells" , выбираю нужные ячейки, нажимаю ОК, затем перехожу на лист2, выбираю нужные ячейки, но вставить не получается, выдает ошибку. Файл во вложении.
К сообщению приложен файл: 7610697.xlsm(19Kb)
 
Ответить
СообщениеДобавил код в модуль в Лист1. Запускаю макрос, после того как выскочит окно "Select destination cells" , выбираю нужные ячейки, нажимаю ОК, затем перехожу на лист2, выбираю нужные ячейки, но вставить не получается, выдает ошибку. Файл во вложении.

Автор - maxexcel
Дата добавления - 25.10.2016 в 14:27
KuklP Дата: Вторник, 25.10.2016, 14:35 | Сообщение № 4
Группа: Проверенные
Ранг: Старожил
Сообщений: 2006
Репутация: 436 ±
Замечаний: 20% ±

Выделяете нужные ячейки на листе1, запускаете макрос - выбираете КУДА(destination) копировать - жмете ОК.


Ну, с НДС и мы чего-то стoим! kuklp@mail.ru
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеВыделяете нужные ячейки на листе1, запускаете макрос - выбираете КУДА(destination) копировать - жмете ОК.

Автор - KuklP
Дата добавления - 25.10.2016 в 14:35
maxexcel Дата: Вторник, 25.10.2016, 16:01 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 26
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Супер СПАСИБО! Работает!
 
Ответить
СообщениеСупер СПАСИБО! Работает!

Автор - maxexcel
Дата добавления - 25.10.2016 в 16:01
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копирование и вставка несвязных ячеек (диапазонов) (Макросы/Sub)
Страница 1 из 11
Поиск:

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