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

Вход

Регистрация

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

 

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

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Дублирование столбцов в диапазоне n-раз через m-интервал (Макросы/Sub)
Дублирование столбцов в диапазоне n-раз через m-интервал
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(13Kb)
 
Ответить
СообщениеСобственно вопрос в шапке, но повторюсь: как продублировать столбцы с формулами (без их изменения) в выделенном диапазоне n-раз через m-интервал
Пример прикреплен: Лист1 - было, а Лист2 - хорошо бы стало.

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

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

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

Автор - kogotex
Дата добавления - 03.05.2017 в 20:03
RAN Дата: Среда, 03.05.2017, 20:29 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4501
Репутация: 907 ±
Замечаний: 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]


Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеЕсли исправить формулы на протягиваемые, то хватит этого макроса, если не исправлять, нужно выеживаться.
[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]

Автор - RAN
Дата добавления - 03.05.2017 в 20:29
kogotex Дата: Четверг, 04.05.2017, 09:15 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - kogotex
Дата добавления - 04.05.2017 в 09:15
kogotex Дата: Четверг, 04.05.2017, 15:12 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

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

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

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

Автор - kogotex
Дата добавления - 04.05.2017 в 15:12
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Дублирование столбцов в диапазоне n-раз через m-интервал (Макросы/Sub)
Страница 1 из 11
Поиск:

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