VBA表格需求：自动引用单元格值作为表头并添加总计行

我来帮你调整这段VBA代码，完美适配你的需求——自动从指定单元格取表头，还能自动加上总计行。咱们一步步来改：

关键修改点说明 #

• 替换手动表头为动态引用：直接读取"Base Data"工作表D2:AS2的内容作为表格表头，不用再手动写固定数组。
• 调整列数常量：原来的COL_CNT是4，现在改成42，对应D到AS的42列。
• 添加总计行：通过ListObject的ShowTotals属性开启总计行，再给需要汇总的列设置求和规则。

修改后的完整代码 #

Const COL_CNT = 42 ' 调整为42列（D到AS共42列）
Const COL_KEY = "O" ' 用于确定最后一行的列，保持原设置
Const FIRST_ROW = 5
Dim i As Variant
i = InputBox("How many DFSP's in this Supply Chain?", "Enter Quantity")
If Not IsNumeric(i) Then
    MsgBox "Please input a number.", vbCritical
    Exit Sub
End If
If i < 1 Then Exit Sub

Dim sht As Worksheet
Dim LastRow As Long
Set sht = Worksheets("Instructions")
LastRow = sht.Cells(sht.Rows.Count, COL_KEY).End(xlUp).Row

With sht.Cells(LastRow, COL_KEY)
    If Len(.Value) > 0 Or (Not .ListObject Is Nothing) Then
        LastRow = LastRow + 1
    End If
    If LastRow < FIRST_ROW Then LastRow = 5
End With

' 定义表格范围：行数为输入的数量+1（表头+数据行），列数42
Dim tabRng As Range
Set tabRng = sht.Cells(LastRow, COL_KEY).Resize(i + 1, COL_CNT)

Dim objTable As ListObject
Set objTable = ActiveSheet.ListObjects.Add(xlSrcRange, tabRng, , xlYes)

' 从Base Data工作表的D2:AS2读取表头
Dim headerRange As Range
Set headerRange = Worksheets("Base Data").Range("D2:AS2")
objTable.HeaderRowRange.Value = headerRange.Value

' 启用总计行并设置求和
objTable.ShowTotals = True
' 循环设置每一列的总计方式（这里假设所有数值列都求和，可根据实际调整）
Dim col As ListColumn
For Each col In objTable.ListColumns
    ' 可以根据列的类型调整，比如只对数值列求和
    If col.DataType = xlNumber Then
        col.TotalsCalculation = xlSum
    End If
Next col

代码细节解释 #

1. 表头动态引用：通过Worksheets("Base Data").Range("D2:AS2")直接获取目标区域的表头内容，赋值给表格的表头行，这样不管报告表头怎么变，表格都会自动同步。
2. 总计行设置：objTable.ShowTotals = True会自动在表格底部添加总计行，然后通过循环给数值列设置求和计算。如果有些列不需要求和，你可以修改循环里的判断条件，比如指定某些列索引来设置。
3. 列数调整：把COL_CNT改成42，确保表格的列数和报告表头的列数完全匹配。

备注：内容来源于stack exchange，提问作者Ryan Data Guy