如何在运行时通过VBA创buildExcel表格？

在macros执行过程中，我读取多个Excel文件并创build一个新的Excel文件，我build立一个类似的表：

在VBA的运行时，我想设置这个区域并创build一个表，添加Total Row并获得以下结果：

谢谢 ：-）

Answer 1

喜欢这个：

Range("A1:I9").Select ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$I$9"), , xlYes).Name = "Table1" ActiveSheet.ListObjects("Table1").ShowTotals = True ActiveSheet.ListObjects("Table1").ListColumns("B").TotalsCalculation = xlTotalsCalculationSum ActiveSheet.ListObjects("Table1").ListColumns("C").TotalsCalculation = xlTotalsCalculationSum 'Repeat row above until column I 

我通过录制VBAmacros获得了这个。 如果您不熟悉Macro录制，请参阅此处的链接。