Добрый день!
Собственно возникла проблема при копировании ячеек. Казалось бы все просто, но каждый раз выскакивает что-то новое. Вот прошу помощи при возможности.
Записал макрос на рекордер, выполняется он правильно, но когда начинаю вставлять данные о последней строке, либо не выполняется макрос, либо выполняется не правильно. Использовал цикл For, но не получилось ещё.
Последняя строка всегда известна - в переменной "j". А вставляться диапазон из ячеек должен с i-го столбца до конца строки( с i-го потому что есть шапка с инфой).
p.s.: Прошу помощи, потому что сам ещё "зеленый" в программировании.
Ниже код записанный на рекордере:
Собственно возникла проблема при копировании ячеек. Казалось бы все просто, но каждый раз выскакивает что-то новое. Вот прошу помощи при возможности.
Записал макрос на рекордер, выполняется он правильно, но когда начинаю вставлять данные о последней строке, либо не выполняется макрос, либо выполняется не правильно. Использовал цикл For, но не получилось ещё.
Последняя строка всегда известна - в переменной "j". А вставляться диапазон из ячеек должен с i-го столбца до конца строки( с i-го потому что есть шапка с инфой).
p.s.: Прошу помощи, потому что сам ещё "зеленый" в программировании.
Ниже код записанный на рекордере:
Код |
---|
Sub Макрос1() Sheets("Лист2").Select ActiveCell.Range("A1:K1").Select Selection.Copy Sheets("Лист1").Select ActiveCell.Select ActiveSheet.Paste Application.CutCopyMode = False Selection.AutoFill Destination:=ActiveCell.Range("A1:K6"), Type:= _ xlFillDefault ActiveCell.Range("A1:K6").Select End Sub |