Скопируйте таблицу таблицы в таблицы разного размера

Question

В Excel у меня есть таблица, из которой я хочу скопировать планку в несколько других таблиц (имеющих разную длину). Каждый раз, когда я хочу изменить все названия столбцов (в каждой таблице есть 3 столбца). Я попытался определить новый стиль таблицы, но функция слишком ограничена для того, что я хочу (изменение заголовков заголовков, вторая ячейка последней последней строки и т. Д.).

Так что я думаю, что лучший способ сделать это - сделать макрос, но может ли кто-нибудь помочь мне в том, как это сделать?

Answer 1

Я думаю, вы должны определить новый стиль таблицы.

Затем в VBA создать для каждого цикла, где цикл по всем таблицам (так называемый ListObjects в VBA), и применить стиль к каждой таблице:

Dim tbl as ListObject 

For Each tbl In Sheets("Sheet1").ListObjects 'Change Sheet1 to your worksheet name 
    tbl.TableStyle = "TableStyleMedium2" 'Change name to your table style 
    tbl.HeaderRowRange.Cells(1, 1) = "Value" 'Header 1st column 
    tbl.HeaderRowRange.Cells(1, 2) = "Value" 'Header 2nd column 
    tbl.HeaderRowRange.Cells(1, 3) = "Value" 'Header 3rd column 
    tbl.TotalsRowRange.Cells(1, 2) = "Value" '2nd cell in totals row 
Next