Копирование и вставка несвязных ячеек (диапазонов)

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

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

Копирование и вставка несвязных ячеек (диапазонов) (Макросы/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 (9.7 Kb)

Сообщение отредактировал maxexcel - Понедельник, 24.10.2016, 20:29

Ответить

KuklP

Дата: Понедельник, 24.10.2016, 21:36 | Сообщение № 2

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

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

Сообщений: 2369

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

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

2003-2010

В модуль листа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им! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728