| Вопрос: Как вставить колонку ? | Добавлено: 25.10.05 09:20 |
Автор вопроса:  jojobublik
|
|
Есть готовая таблица в Excel, нужно в середину вставить колонку.
Вот начал и не могу добить, поскажите пож-та Private Sub CommandButton111_Click() Name_book11 = Application.ActiveWorkbook.Name FILE22 = ActiveWorkbook.Sheets("Загрузка").Cells(3, 5).Value Workbooks.Open Filename:=FILE22 Name_book22 = Application.ActiveWorkbook.Name ' Добавим новые столбцы Workbooks(Name_book11).Sheets("Данные").Activate Workbooks(Name_book11).Sheets("Данные").Range("N1:N64000").Select Selection.Copy Workbooks(Name_book22).Sheets("Данные").Activate Workbooks(Name_book22).Sheets("Данные").Columns("N:N").Select Workbooks(Name_book22).Sheets("Данные").Range("N:N").Insert Shift:=xlToRight Workbooks(Name_book22).Sheets("Данные").Range("N1:N64000").Select ActiveSheet.Paste MsgBox ("Колонка добавлена ! ") End Sub |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  jojobublik Вопросов: 2 Ответов: 1 |
Профиль | | #1 | Добавлено: 25.10.05 09:59 |
|
никто не знает чтоли?
хоть бы примерный код |
||
|
Номер ответа: 2 Автор ответа: AndreyMp ICQ: 237822510 Вопросов: 28 Ответов: 1182 |
Профиль | | #2 | Добавлено: 25.10.05 10:16 |
| Selection.EntireColumn.Insert | ||
Страница: 1 |