#excel #vba #excel-formula
#превосходить #vba #excel-формула
Вопрос:
Я делаю запрос на отпуск для ведьмы, которая будет записывать отпуска для некоторых сотрудников. Я сделал панель мониторинга, чтобы показать вставленные листы простым и кратким способом, как показано ниже.
Что я хочу, так это автоматически развернуть таблицу, чтобы она автоматически соответствовала размеру функции динамического массива.
Ответ №1:
Сделайте следующее:
Dim mySheetName As Worksheet Dim myTableName As String Dim myTable As ListObject Dim myEnd As Integer myTableName = "Table1" Set mySheetName = Sheets("Sheet1") Set myTable = mySheetName.ListObjects(myTableName) myEnd = mySheetName.Range("A" amp; mySheetName.Rows.count).End(xlUp).Row 'Resize the table: myTable.Resize Range("C9:AK" amp; myEnd) Комментарии:
1. Спасибо, Тони, я думаю, что этот фрагмент кода будет работать только в том случае, если размер динамического массива больше размера таблицы. Я хочу найти метод, который получит длину разлитого массива и соответствующим образом изменит размер таблицы.