У меня сложности с нахождением последнего числа в столбце, определение его как переменной и арифметическое действие.
[вложение удалено администратором]
Этот макрос извлекает данные из последней строки умной таблицы, из столбца 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
БЛАГОДАРЮ!!!
Большое спасибо!!!