ник: час
Function LastR() As Long
'Возвращает кол-во строк в листе
'синтаксис области копирования =Range("H3:H" & LastR())
Set R = Selection
Selection.SpecialCells(xlCellTypeLastCell).Select
LastR = Selection.row
R.Select
End Function
|
У меня позднее связывание, а потому Dim R As Range - при компиляции выдаёт ошибку - в Access нет Range
может другой какой тип сгодится?