With DataTables("表A") .DataCols("第一列").Caption = "一季度_东部" .DataCols("第二列").Caption = "一季度_西部" .BuildHeader() End With