
Последние записи
- Прозрачность тайлсета в TPNGImage
- Как сделать VBA макрос в excel
- Поиск по столбцу 1-ого не нулевого значения (формулой в Microsoft Office Excel)
- Простановка единиц в ячейки под объектами (Microsoft Office Excel)
- Расчет затраченного времени между определенным рабочим временем (формулой в Microsoft Office Excel)
- Мигающий экран на Assembler
- VBA-макрос по копированию 10 строчек в выбранном диапазоне в Microsoft Office Excel
- Копирование только нужного диапазона в Microsoft Office Excel
- Перенос диапазона стоки в Microsoft Office Excel на другой лист по условию
- Мелодия в Pascal.ABC.Net с помощью System.Console.Beep — задержка воспроизведения звука

18th
Ноя
Копирование данных в Excel «отталкиваясь» от последней заполненой строки
Posted by obzor under VBA
Есть данные (для примера в столбцах A:G) и нужно скопировать данные одной строки и вставить в определенную-другую строку этого же листа в диапазон например H:N или O:U и тд.
Трудность для меня заключается в том что строки каждый день добавляются и для работы макросу нужно «отталкиваться» от последней строки с данными (снизу).
Последняя строка столбца А
Код:
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