У меня есть документ Excel, который извлекает данные из базы данных Access.
Отсюда данные суммированы в сводной таблице.
Затем он помещается в другую таблицу, что облегчает чтение и фильтрацию.
Последняя таблица отформатирована как таблица, и формулы на месте.
В зависимости от данных в базе данных эта таблица может уменьшать или увеличивать количество строк при обновлении.
Когда я запускаю макрос для обновления данных и таблиц, я хочу иметь возможность автоматически изменять размер таблицы, чтобы отображались все данные, но в нижней части не появлялись лишние пустые строки.
Пока у меня есть следующий код, который просматривает лист сводной таблицы (Pivot), чтобы определить количество строк, отображаемых в выходном листе (отчет):
Sub ResizeList()
Dim ws As Worksheet
Dim ob As ListObject
Dim Lrow1 As Long
Lrow1 = Sheets("Pivot").Cells(Rows.Count, "A").End(xlUp).Row
Set ws = ActiveWorkbook.Worksheets("Report")
Set ob = ws.ListObjects("Report_Table")
ob.Resize ob.Range.Resize(Lrow1)
End Sub
Однако форматирование таблицы (а не данные) удаляется только из лишних строк внизу, когда таблица уменьшается в размере.
Кроме того, я получаю слишком много строк в таблице отчетов из-за заголовка и общего количества строк в сводной таблице.
Может кто-нибудь помочь?