Копирование столбцов с одного листа на другой - VBA
Формулировка задачи:
Здравствуйте!
Помогите пожалуйста с написанием макроса.
Необходимо что бы макрос копировал последние 7 столбцов на одном листе и вставлял данные на второй лист(вставка - как значение).
Спасибо.
Решение задачи: «Копирование столбцов с одного листа на другой»
textual
Листинг программы
Sub SemStolb() Dim sht1 As Object Set sht1 = Sheets(1) Cells(1, sht1.Cells.SpecialCells(xlLastCell).Column - 6).EntireColumn.Resize(, 7).Select Selection.Copy Sheets(2).Activate Range("A1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д