Скопируйте последнюю строку в столбце Excel с помощью VBA

Question

Я хотел бы, чтобы скопировать значение последней строки в определенном столбце в другой ячейке,

, например, это код, который я судится, чтобы выяснить, какие последний используемый rown в колонке G

Dim LastRow As Long 

LastRow = Range("G65536").End(xlUp).Row 

Прямо сейчас LastRow прибудет это значение адреса строки, мне нужен этот код модифицированного таким образом, поэтому он будет копировать значение LastRow (не адрес) и минус это значение этой ячейки в другую ячейку с адресом «Q1»

Если кто-нибудь может помочь, дайте мне знать, спасибо!

Answer 1

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") должен быть изменен на любой другой ячейке, если требуется

Answer 2

Согласно Microsoft MVP:

Вы не должны использовать числа, потому что разные версии Excel имеют разное количество максимальных строк.

.Cells(.Rows.Count, "Q") является самой последней ячейки в нижней части колонны Q.

.Cells(.Rows.Count, "Q").End(xlUp).Row является номер строки последней непустой ячейки в столбце Q.

Таким образом, вы должны использовать ячейки (строки. граф, "G") End (xlUp) .Row

Чтобы найти количество строк используется:.

ActiveSheet.UsedRange.Rows.Count