Копирование данных «отталкиваясь» от последней заполненной строки Excel

Posted by obzor under VBA

Задача казалось бы легкая есть данные (для примера в столбцах A:G) и нужно скопировать данные одной строки и вставить в определенную-другую строку этого же листа в диапазон например H:N или O:U и тд.
Трудность заключается в том что строки каждый день добавляются и для работы макросу нужно «отталкиваться» от последней строки с данными(снизу) поэтому прошу помочи разобраться как это сделать.

Для примера я выбрал пару действий чтоб понять сам принцип.. допустим надо:

с пред-пред-предпоследней строки (в примере 7-я строка) скопировать A:G и вставить в пред-предпоследнюю (в примере 8-я) в H:N
с пред-предпоследней строки (8-я) скопировать A:G и вставить в предпоследнюю (9-я) в H:N
с пред-пред-пред-предпоследней строки (6-я) скопировать A:G и вставить в пред-пред-предпоследнюю (7-я) в O:U
с пред-пред-предпоследней строки (7-я) скопировать A:G и вставить в предпоследнюю (9-я) в O:U

Aleksandr H.

rowsCount = Cells(Rows.Count, "A").End(xlUp).Row

Sub CopyMyRange()
    Dim LastRow As Integer
    Dim upOffset As Byte
    Dim rowNumber As Integer
    Dim rngFrom As Range
    LastRow = Cells(Rows.Count, "A").End(xlUp).Row
    upOffset = CInt(InputBox("Введите количество строк для отступа с конца", "парамерт 1", 2))
    
    rowNumber = Application.WorksheetFunction.Max(1, LastRow - upOffset)
    Set rngFrom = Range("A" & rowNumber & ":G" & rowNumber)
    rngFrom.Copy
    
    upOffset = CInt(InputBox("Введите количество строк c конца для вставки", "парамерт 1", 2))
    rowNumber = Application.WorksheetFunction.Max(1, LastRow - upOffset)
    
    With Cells(rowNumber, "H")
        .PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
            , SkipBlanks:=False, Transpose:=False
        .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
    End With
End Sub

Похожие статьи

• Ping из VBA
• Progress bar или индикация выполнения макроса в Microsoft Office Excel
• Запретить ввод пробелов в ячейки Excel
• Массовое переименование label на форме
• Вынести часть текста из многострочной ячейки по условию (Excel)
• Копирование данных в Excel «отталкиваясь» от последней заполненой строки
• Вставка данных в Excel после последней заполненной ячейки
• Как в Excel посчитать количество дней, прошедших с заданного числа
• Как вытащить URL адрес из формулы с гиперссылкой в Excel
• При открытии файла Excel запрашивается восстановление