将表的布局复制到不同大小的表

Question

在Excel中，我有一个表，我想将布局复制到其他几个表（具有不同的长度）。每次我想要更改所有列标题（每个表中有3列）。我尝试定义一个新的表格样式，但功能太有限了我想要的东西（更改标题标题，最后一行的第二个单元格等）。

所以我认为最好的方法是制作一个宏，但有人可以帮我解决这个问题吗？

Answer 1

我认为你应该定义一个新的表样式。

然后在vba中为每个循环创建一个循环，循环遍历所有表（在vba中称为ListObjects），并将样式应用于每个表：

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