Дублирование столбцов в диапазоне n-раз через m-интервал

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Дублирование столбцов в диапазоне n-раз через m-интервал (Макросы/Sub)

kogotex

Дата: Среда, 03.05.2017, 20:03 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

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

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

Excel 2013

Собственно вопрос в шапке, но повторюсь: как продублировать столбцы с формулами (без их изменения) в выделенном диапазоне n-раз через m-интервал
Пример прикреплен: Лист1 - было, а Лист2 - хорошо бы стало.

В примере, 3 раза копия через 2 раза интервал, но так будет не всегда, поэтому важно и выделение (если сложно, то хотя бы маркер указания диапазона) и возможность поменять количество копий и шаг.

P.S.: обыскался уже, на форумах, даже в наборах надстроек типа Kutools For Excel, DigDB и т.д. нет ничего, что довольно странно, ведь интервальное выделение-вставка есть, а дублирования нет…

Помогите с макросом кто сможет такое.

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

Ответить

RAN

Дата: Среда, 03.05.2017, 20:29 | Сообщение № 2

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

Ранг: Экселист

Сообщений: 5660

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

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

2010

Если исправить формулы на протягиваемые, то хватит этого макроса, если не исправлять, нужно выеживаться.
[vba]

Код

Sub Макрос()
    Dim lstCol&, copyCol&, n&, m&, i&
    lstCol = 10
    copyCol = 3
    n = 2
    m = 3
    For i = lstCol To 1 Step -m
        Columns(i).Copy
        Columns(i).Offset(, 1).Resize(, n).Insert Shift:=xlToRight
    Next
End Sub

[/vba]

Быть или не быть, вот в чем загвоздка!

Ответить

kogotex

Дата: Четверг, 04.05.2017, 09:15 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

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

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

Excel 2013

RAN, Спасибо за вариант, как просто и быстро оказалось для опытного человека.

Ответить

kogotex

Дата: Четверг, 04.05.2017, 15:12 | Сообщение № 4

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

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

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

Excel 2013

Дополнение к теме.
Каюсь, из-за срочности и неожидания быстрого ответа создал тему на другом ресурсе, там также есть варианты решения для интересующихся: Дублирование столбцов с формулами в выделенном диапазоне n-раз через m-интервал

Извините, правила точнее прочитал.

Ответить

Страница 1 из 1
1