Дописать функцию последняя строка

[kipish_lp]

Здравствуйте! Помогите пожалуйста дописать функцию.
Надо чтобы выводился номер последней строки с указанного листа.

Function A(Столбец As Range)
A = Cells(Rows.Count, Столбец.Column).End(xlUp).Row
End Function

У меня пока с текущего.

[Serge 007]

Сообщение от kipish_lp

Надо чтобы выводился номер последней строки с указанного листа.

Здравствуйте. А разве номер ПОСЛЕДНЕЙ строки на всех листах не одинаков?

[nilem]

Например, так

Function ПоследняяСтрока(лист As String, ячейка As Range) As Integer
ПоследняяСтрока = Sheets(лист).Cells(Rows.Count, ячейка.Column).End(xlUp).Row
End Function

А формула на листе
=ПоследняяСтрока("Лист1";F7)

[Hugo121]

Можно так, без лишних аргументов:

Option Explicit

Function A(Столбец As Range)
Application.Volatile
A = Sheets(Столбец.Parent.CodeName).Cells(Rows.Count, Столбец.Column).End(xlUp).Row
End Function

На листе =A(Лист1!G10)

P.S. Добавил Application.Volatile, а то не пересчитывалась при добавлении данных.

[Igor67]

Если интересно как получить последнюю заполненную ячейку встроенными функциями Ехс почитайте по ссылке
http://www.planetaexcel.ru/forum.php?thread_id=10983
Часто используют
последняя непустая ячейка в строке может быть найдена так:
ИНДЕКС(1:1;1;ПОИСКПОЗ(3E+307;1:1)) - для числовых значений
ИНДЕКС(1:1;1;ПОИСКПОЗ("яяя";1:1)) - для текста.
Диапазоны - выбираете под себя.
Но иногда помогают банально ИНДЕКС() + СЧЁТ()/СЧЁТЗ

[kipish_lp]

Полезные для себя ответы и советы получила, спасибо всем.