Здравствуйте.
Код сделан макрорекордером.
Перенос данных с листа 1 на лист 2 в определённые ячейки и с определённым шагом.
Пример выложен на 2 страницы (печатные)
Страниц может быть и 100, и моё детище получается громоздки.
Уважаемые специалисты как можно упростить код.
Код сделан макрорекордером.
Перенос данных с листа 1 на лист 2 в определённые ячейки и с определённым шагом.
Пример выложен на 2 страницы (печатные)
Страниц может быть и 100, и моё детище получается громоздки.
Уважаемые специалисты как можно упростить код.
Код |
---|
'Страница 1 Worksheets("1").Range("A1:A60").Copy Worksheets("2").Range("D4").PasteSpecial Paste:=xlPasteValues Worksheets("1").Range("B1:B60").Copy Worksheets("2").Range("C4").PasteSpecial Paste:=xlPasteValues Worksheets("1").Range("C1:C60").Copy Worksheets("2").Range("G4").PasteSpecial Paste:=xlPasteValues Worksheets("1").Range("D1:D60").Copy Worksheets("2").Range("L4").PasteSpecial Paste:=xlPasteValues Worksheets("1").Range("E1:E60").Copy Worksheets("2").Range("J4").PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False Sheets("1").Select 'удаляем 60 строк Rows("1:60").Select Selection.Delete Shift:=xlUp Do While Range("B1").Offset(LineCt, 0) = UCase(LineOfText) Call SHel Exit Sub Loop 'Страница 2 Worksheets("1").Range("A1:A60").Copy Worksheets("2").Range("D75").PasteSpecial Paste:=xlPasteValues Worksheets("1").Range("B1:B60").Copy Worksheets("2").Range("C75").PasteSpecial Paste:=xlPasteValues Worksheets("1").Range("C1:C60").Copy Worksheets("2").Range("G75").PasteSpecial Paste:=xlPasteValues Worksheets("1").Range("D1:D60").Copy Worksheets("2").Range("L75").PasteSpecial Paste:=xlPasteValues Worksheets("1").Range("E1:E60").Copy Worksheets("2").Range("J75").PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False Sheets("1").Select 'удаляем 60 строк Rows("1:60").Select Selection.Delete Shift:=xlUp Do While Range("B1").Offset(LineCt, 0) = UCase(LineOfText) Call SHel Exit Sub Loop Call Выход |