Excel VBA / Добавить колонки через Cells - Microsoft Office Excel

sernik · 06.10.2014, 12:59

Добрый день Уважаемые форумчане.
Подскажите, как будет более правильно добавить несколько колонок(столбцов в листе) в нужном месте.
В своем коде я ищу нужный столбец, далее необходимо добавить новых 7, выглядит это следующим не красивым способом:

Код:

Do While Sheets(1).Cells(4, g) <> "Выполнено всего"
    If IsDate(Sheets(1).Cells(5, g)) Then DataNew = NewDate
    g = g + 1
Loop

    Sheets(1).Cells(4, g).Select
    Selection.EntireColumn.Insert
    Selection.EntireColumn.Insert
    Selection.EntireColumn.Insert
    Selection.EntireColumn.Insert
    Selection.EntireColumn.Insert
    Selection.EntireColumn.Insert
    Selection.EntireColumn.Insert

Спасибо!

RAN. · 06.10.2014, 13:18

Код:

Sheets(1).Cells(4, g).Resize(, 7).EntireColumn.Insert

Kefirrr · 06.10.2014, 13:24

i = 6 ' нач. столбец
j = i + 7 ' кон столбец

Range(Columns(i), Columns(j)).Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

sernik · 08.10.2014, 13:47

Спасибо всем, более оптимально.

06.10.2014, 13:18	#2
RAN. Форумчанин Регистрация: 05.07.2011 Сообщений: 208	Код: `Sheets(1).Cells(4, g).Resize(, 7).EntireColumn.Insert`

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Excel VBA/ Форма / Добавить кнопку свернуть окно	sernik	Microsoft Office Excel	0	21.08.2014 18:04
Cells(x, y).Value без vba	Dimmak01	Microsoft Office Excel	9	18.02.2011 17:09
Составить программу в VBA через EXCEl	Apsalon	Microsoft Office Excel	4	22.12.2010 15:26
Данные из Excel через VBA	mchip	Microsoft Office Word	5	20.10.2009 16:08
Создать график через VBA в Excel	lopuxi	Microsoft Office Excel	1	16.10.2009 16:06

06.10.2014, 13:24	#3
Kefirrr Пользователь Регистрация: 05.06.2010 Сообщений: 53	i = 6 ' нач. столбец j = i + 7 ' кон столбец Range(Columns(i), Columns(j)).Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove