Как скопировать последние 10 активных строк вместо последней активной строки

В настоящее время у меня есть код vba, который скопирует последнюю активную строку с формулами и всеми и вставляет ее в следующую строку под ней. Вместо этого я бы хотел, чтобы он копировал последние 10 активных строк и вставлял их под него. Может кто-нибудь помочь мне настроить текущий код, чтобы помочь это?

'Sub RunMost() Dim ws As Worksheet For Each ws In Sheets If ws.Name = ("Sheet1") Then ws.Activate ' Go to last cell Cells(Rows.Count, 2).End(xlUp).Offset(2, 0).Select ' Copy formula from cell above Rows(Selection.Row - 1).Copy Rows(Selection.Row).Insert Shift:=xlDown End If Next ws End Sub 

range(rows(selection.row-11),rows(selection.row-1)).copy

  • простое исправление для специальной пасты excel vba пожалуйста
  • Скопировать лист в другую книгу в VBA не копирует
  • Как скопировать несколько листов в мастер-лист с использованием отдельных заголовков столбцов
  • Скопируйте и вставьте таблицу Excel в слово без ссылки или сохранения в виде GIF
  • Кнопка Excel VBA (копирование ячеек в новую строку на другом листе)
  • Скопируйте сразу несколько листов (сохраняя относительные формулы)
  • Excel VBA - самый быстрый способ копирования и переноса вектора
  • Поиск последней используемой ячейки на листе и копирование строки в другой рабочий лист?
  • VBA - вставить как значения
  • Копировать выходные данные запроса из SQL SERVER 2012 и вставить в Excel
  • Excel VBA Копирование и вставка диапазона ячеек неоднократно в столбце
  • Interesting Posts

    Поиск ошибок и макросов вне порядка

    Как преобразовать неверные символы в файл Excel в нормальное русло?

    C # Анализ формата пользовательских ячеек Excel

    Даты чтения дат с «электронной таблицей-читателем» в php

    Ошибка при открытии файла в Excel, но открывается в Open XML SDK

    Excel – Формула для расчета разницы между столбцами с пустыми ячейками

    вставка строки в позицию курсора в ячейке EXCEL с помощью ENTER

    Как распечатать выход java в разных динамических листах excel

    чтение данных из листа excel, содержащего несколько таблиц c #

    Как заставить макрос останавливаться, если я отменил сохранение копии

    Как я могу использовать функцию WEEKNUM в инструкции в VBA?

    Как реализовать событие в Microsoft Script Control?

    Как открыть файлы из офисной панели надстройки надстройки?

    Excel VBA – запуск SQL-запроса с использованием диапазона ячеек рабочей таблицы

    Сравните два числа и установите значение 1 или 0 в самый высокий или самый низкий в Excel или SQL Server 2012

    Давайте будем гением компьютера.