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

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