Excel VBA: Как найти последнюю ячейку столбца в "умной таблице" с помощью макроса, и в дальнейшем использовать для вычисления

Автор Kaviton, 19 апреля 2018, 21:58

Kaviton

У меня сложности с нахождением последнего числа в столбце, определение его как переменной и арифметическое действие.

[вложение удалено администратором]

Администратор

Этот макрос извлекает данные из последней строки умной таблицы, из столбца 10 в переменную "var".

Макрос
Sub Макрос()

    Dim tbl As ListObject, var
   
    '1. Присваиваем умной таблице имя "tbl". Затем будем обращаться к умной таблице по этому имени.
    Set tbl = ActiveSheet.ListObjects("Таблица_учета")
    '2. Запись в переменную данных из последней строки, из столбца 10.
    ' Проверка, что в таблице есть данные.
    If tbl.ListRows.Count <> 0 Then
        var = tbl.ListRows(tbl.ListRows.Count).Range.Cells(1, 10).Value
    End If

End Sub
[свернуть]