输入单元格地址，获取表名称

Question

我正在寻找一些excel VBA代码，当我输入一个单元格地址时，它会给出该单元格所在表格的名称，并将该表格的名称存储在变量中。我还想将单元格地址存储在名为＆＃34; GetCellsTable＆＃34;的变量中。

无论如何我可以这样做吗？

示例：

Dim StoreTableName as String?
Dim GetCellsTable as ?
StoreTableName = Range(GetCellsTable).ListObject.Name

Answer 1

MyVariable = SomeCell.ListObject.Name

编辑：

如果要将单元格地址（例如单元格＆＃34; A3＆＃34;）存储在变量中，然后使用它来获取表格名称：

Dim GetCellsTable As String
GetCellsTable = "A3"
MyTableName = Range(GetCellsTable).ListObject.Name

或者，如果要将单元格本身存储为变量中的范围对象：

Dim GetCellsTable as Range
Set GetCellsTable = Range("A3")
MyTableName = GetCellsTable.ListObject.Name