Копирование данных Шифрование до последнего использованного Роу конкретного столбца

Question

Я использую этот код, чтобы получить последний используемый rows-

rowNo=objExcel.Activeworkbook.Sheets(1).UsedRange.Rows.count

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

// Что писать в коде ниже, чтобы использовать //

Ровно

Set Source=objExcel.Activeworkbook.Sheets(1).Column("G")

Source.Copy

Answer 1

Это неправильный путь, чтобы найти последнюю строку. См. link о том, как найти последнюю строку.

После того, как вы нашли в последней строке затем просто использовать этот код, чтобы скопировать

ws.Range("G1:G" & rowNo).Copy 

Где ws находится объект рабочего листа.