Копировать последнюю строку в столбце Excel с помощью VBA
Я хотел бы скопировать значение последней строки в конкретном столбце в другую ячейку,
например, это код, который я подаю в суд, чтобы найти, который является последним используемым rown в столбце G
Dim LastRow As Long LastRow = Range("G65536").End(xlUp).Row Прямо сейчас LastRow get – значение адреса строки, мне нужно, чтобы этот код был изменен таким образом, чтобы он скопировал значение LastRow (а не адрес), а не прошлое этого значения этой ячейки в другую ячейку с адресом «Q1 "
Если кто-нибудь может помочь, дайте мне знать, спасибо!
Range.Copy method имеет параметр, который позволяет копировать Range в требуемый пункт назначения.
Согласно синтаксису MSDN Range.Copy выглядит следующим образом:
expression.Copy(Destination) expression A variable that represents a Range object.
В вашей ситуации вы можете назвать это следующим образом:
Range("G65536").End(xlUp).Copy Range("Q1")
Если Range("Q1") должен быть изменен на любую другую ячейку, если требуется
Согласно Microsoft MVP:
Вы не должны использовать числа, потому что разные версии Excel имеют разное количество максимальных строк.
.Cells(.Rows.Count, "Q") – самая последняя ячейка внизу столбца Q.
.Cells(.Rows.Count, "Q").End(xlUp).Row – номер строки последней .Cells(.Rows.Count, "Q").End(xlUp).Row ячейки в столбце Q.
Поэтому вы должны использовать ячейки (Rows.Count, «G»). End (xlUp) .Row
Чтобы найти количество используемых строк:
ActiveSheet.UsedRange.Rows.Count