Страницы: 1
RSS
Вставить пустые столбцы перед каждым столбцом из массива столбцов
 
Добрый день,
Скажите пожалуйста, каким образом можно вставить пустые столбцы перед каждым столбцом из массива столбцов ?  
 
используйте INSERT
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
Выделяете столбец, нажимаете ПКМ, выбираете команду "Вставить". И так - с каждым столбцом из массива столбцов.
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
 
У меня большее количество столбцов, между которым необходимо по 2-3 столбца вставить, как это можно сделать более автоматизировано?  
 
Вставляем по 2 столбца:
Код
Sub Macro1()
Dim i As Long
    For i = 15 To 1 Step -1
        Cells(1, i).Resize(, 2).EntireColumn.Insert
    Next
End Sub
 
Спасибо, Юрий М
Макрос работает.  
Страницы: 1
Наверх