это последующий вопрос к этот.
следующая формула может использоваться для поиска значения последней непустой ячейки в столбце В Microsoft Excel:
Komp=LOOKUP(2,1/(A:A<>""),A:A)
мой вопрос в том, как я могу преобразовать эту формулу в Макрофункцию? Так что я могу использовать его так:
=GetLastValueInColumn('A')
действительно, мне нужно преобразовать букву 'A' в диапазон A: A, но не знаю, как.
2440
либо просто используйте формулу листа в макросе, т. е.
Function GetLastValueInColumn(r As Range) As Range
GetLastValueInColumn = Application.WorksheetFunction.LOOKUP(2,1/(r<>""),r)
End Function
или использовать некоторые специфические методы VBA, пара подробно описаны в ответ на StackOverflow.
Как писал эйрикдод, есть много способов выполнить свою основную задачу в VBA.
для преобразования строки в объект диапазона, ссылающийся на весь столбец, можно использовать что-то вроде:
Function LastValueInColumn(COL)
Dim R as Range
Set R = Cells(1,COL).EntireColumn
Это будет работать (набор R в нужную колонку) при условии, коль это буква столбца и номер. Но это вызовет ошибку времени выполнения, если, например, COL является объектом диапазона или недопустимой ссылкой на столбец. Так, в зависимости от вашего применения, вы возможно, потребуется сделать некоторую проверку ошибок.
попробуйте:
Public Function GetLastValue(rIn As Range) As Variant
Dim N as Long
N = Cells(Rows.Count, rIn.Column).End(xlUp).Row
GetLastValue = Cells(N, rIn.Column)
End Function
и использовать его как это:
Примечание:
это в желаемом формате:
=GetLastValue(A:A)
 |  |  |  |  |  |  |  |  |  |
Постоянная ссылка на данную страницу: [ Скопировать ссылку | Сгенерировать QR-код ]
