Преобразовать в диапазон - динамически захватить имя таблицы

Question

Я нашел следующий пост на этом сайте.

ActiveSheet.ListObjects("TableName").Unlist

Проблема в том, что я получаю разные таблицы и не знаю их имени. Я знаю, что A2 всегда будет частью таблицы, и я вижу имя таблицы на листе в Excel. Есть ли способ захватить имя таблицы и применить его динамически в коде?

Answer 1

Да:

ActiveSheet.cells(2,1).ListObject.Name

Дает вам имя таблицы, в которой находится ячейка A2. Так:

ActiveSheet.ListObjects(ActiveSheet.cells(2,1).ListObject.Name).Unlist

Сделаю работу