Имя таблицы возврата Excel с использованием формулы?

Question

Мне было интересно, если есть так или иначе, чтобы вернуть имя таблицы, используя формулу?

Я работал над тем, чтобы разбить несколько тысяч адресов в виде столбца информации. т.е. .. #, улица, город, штат, почтовый индекс и номер телефона. Адреса не находятся в каком-либо согласованном формате, который будет работать Text to Columns. Я, наконец, придумал формулы, чтобы выполнить работу, но они очень длинные. В сообщении я нашел предложение использовать повторяющиеся части формул в качестве Определенного имени. И это сделало его намного проще. Теперь вот проблема.

Формула, которая имеет название таблицы «Таблица 1», не будет работать в «Таблице2». Или любое другое имя таблицы. Заголовки столбцов одинаковы для каждой таблицы.

MAX(SEARCH(Table1[@State],Table1[@Origin])) 

Необходимо указать путь к названию таблицы. По формуле или формуле в качестве Определенного имени.

MAX(SEARCH(GetTableName[@State],GetTableName[@Origin])) 

Я предпочитаю, чтобы это была формула. Я не уверен, что решение VBA будет правильным ответом на этот вопрос, поэтому я не смогу выбрать его как ответ, даже если он работает. Он по-прежнему будет оценен. Я спрошу в отдельном посте, если я не найду Формулы решения.

TY

Я нашел этот пост, который имеет решение VBA, но я не могу его использовать. Я отправлю сообщение, чтобы кто-то мог понять это. Portland Runner Отправил этот CODE, чтобы получить имя таблицы.

Function GetTableName(shtName As String) As String 
    GetTableName = Worksheets(shtName).ListObjects(1).Name 
End Function 

В этой функции Ввожу Defined Имя формулу под названием "SheetName"

=MID(CELL("filename"),FIND("]",CELL("filename"))+1,100) 

Так что я могу использовать его, как это.

=MAX(SEARCH(INDIRECT(GetTableName(SheetName)&"[@State]"),INDIRECT(GetTableName(SheetName)&"[@Origin]"))) 

Однако мне все еще нужно, чтобы это была только формула. Хотя я могу запускать макросы на моем ПК, они не будут запускаться на ПК, на котором есть все данные.

Это последнее, что я получил от UDF. К сожалению, я все еще не могу его использовать. Плюс Он получает имя первой таблицы, а не фактическую таблицу, в которой находится ячейка. Хорошо, если это единственная таблица на листе или если первая таблица - это таблица, которую вы хотите.

Answer 1

Вот решение VBA, так как вы сказали, что хотите его увидеть. Это UDF (пользовательская функция), которую вы создаете с помощью VBA, но используете в качестве формулы внутри ячейки. Сохраните код в стандартном модуле кода, а не в модуле листа или в модуле «ThisWorkbook».

Function GetTableName(cellInTable As Range) As String 
    Dim tblName As String 
    tblName = vbNullString 
    On Error Resume Next 
    tblName = cellInTable.ListObject.Name 
    GetTableName = tblName 
End Function 

После сохранения в модуль, вы можете использовать его в формуле ячейки, как это:

=GetTableName(A1) 

или это

=GetTableName(B:B) 

или это

=GetTableName(B2:W900) 

Если вы используете диапазон, который перекрывает более одной таблицы, он будет retu rn имя первой таблицы.

Answer 2

Для получения имени таблицы вам понадобятся две ячейки. Заголовки моих таблиц начинаются в строке 2 и таблице данных в строке 3, поэтому я помещаю свои две формулы в ячейки A1 и B1 соответственно.

Первая ячейка должна ссылаться на верхнюю левую ячейку заголовка таблицы. Для меня формула заканчивается чтением:

"=My2016Data[[#Headers],[State]]" 

и приравнивается к «Государству».

формула Вторая ячейка должна быть:

"=MID(FORMULATEXT(A1),2,FIND("[",FORMULATEXT(A1))-2)" and equates to "My2016Data".