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

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

---

所以我认为最好的方法是制作一个宏，但是有人能帮我做一下吗？

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

然后在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