如何在运行时通过VBA创建Excel表？

Question

在执行宏期间，我读取多个excel文件并创建一个新的excel文件，我构建了一个类似的表：

在运行时由VBA我想设置此区域并创建一个表，添加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

我通过录制VBA宏来获得此功能。如果您不熟悉微距录制，请参阅链接here。