某集团公司综合统计部门需要统计各分公司2024年一季度的能源消耗情况，各分公司报送的原始数据分散在多个Excel表格中，如要开展数据分析则首先要构建汇总表，汇总表作为一种典型的中间表，对于数据分析人员来讲熟练构建中间表将能有效提升数据分析效能。
第一、统计分析中间表的定义
中间表是将企业的电子数据，在进行清理、转换和验证后，进一步进行投影、连接等操作，创建的适合统计人员进行数据分析的表。
中间表的分类：中间表可以分为基础性中间表和分析性中间表。电子数据经过清理、转换和验证后，就可以得到基础性中间表。对基础性中间表进一步进行处理，如按照统计分析模型进行字段选择、连接处理，就可以得到分析性中间表。分析性中间表的主要目的是实现分析模型，得到分析结果。
中间表的特点：一是“面向主题”。二是“面向历史”，任何对中间表的创建都不应该增加和修改其历史数据，而只能是对历史数据的选择和整理。
第二、如何借助AI快速构建中间表
以该集团公司综合统计面临的真实工作场景为例，借助DeepSeek快速构建中间表。
集团公司各分公司原始数据表样：
首先将该中间表的具体要求进行系统阐述作为提示词。
以下给出提示词示例：
请设计自动化VBA代码，能够完成以下工作：
1、 将A公司1季度能源消耗表、B公司1季度能源消耗表和C公司1季度能源消耗表三个工作表对应的数据合并相加在一起，保存在新工作表“集团公司24年1季度能源消耗表”中，如果这个“集团公司24年1季度能源消耗表”工作表存在，就清除旧数据后再保存合并数据；如果这个“集团公司24年1季度能源消耗表”工作表不存在，就创建这个工作表。
2、 “集团公司24年1季度能源消耗表”工作表有7列数据：项目、计量单位，一月、二月、1-2月累计、三月，1-3月累计。第一行是标题“集团公司24年1季度能源消耗表”，第二行是字段名称，第四行，第三列开始保存数据。注意字段数据逻辑关系，C5+D5=E5;C5+C4=C7+C10;C7=C9+C8;E5+F5=G5;
3、 新创建的“集团公司24年1季度能源消耗表”表的字段结构和“A公司1季度能源消耗表”保持一致。请给出简洁、高效、正确的VBA代码，千万不要把代码搞复杂了，因为这三个表格数据很简单。
DeepSeek给出回复代码：
Sub MergeEnergyData()
Dim wsA As Worksheet, wsB As Worksheet, wsC As Worksheet
Dim wsTotal As Worksheet
Dim lastRow As Long, i As Long
Set wsA = Worksheets("A公司1季度能源消耗表")
Set wsB = Worksheets("B公司1季度能源消耗表")
Set wsC = Worksheets("C公司1季度能源消耗表")
' 创建/清空总表
On Error Resume Next
Set wsTotal = Worksheets("集团公司24年1季度能源消耗表")
On Error GoTo 0
If wsTotal Is Nothing Then
Set wsTotal = Worksheets.Add(After:=Sheets(Sheets.Count))
wsTotal.Name = "集团公司24年1季度能源消耗表"
Else
wsTotal.Cells.Clear
End If
' 复制A公司结构
With wsTotal
.Cells(1, 1) = "集团公司24年1季度能源消耗表"
wsA.Range("A2:G2").Copy .Range("A2")
wsA.Range("A4:B" & wsA.Cells(Rows.Count, 1).End(xlUp).Row).Copy .Range("A4")
End With
' 合并数据
lastRow = wsA.Cells(Rows.Count, 1).End(xlUp).Row
For i = 4 To lastRow
' 合并数值列（C/D/F列）
wsTotal.Cells(i, 3) = wsA.Cells(i, 3) + wsB.Cells(i, 3) + wsC.Cells(i, 3)
wsTotal.Cells(i, 4) = wsA.Cells(i, 4) + wsB.Cells(i, 4) + wsC.Cells(i, 4)
wsTotal.Cells(i, 6) = wsA.Cells(i, 6) + wsB.Cells(i, 6) + wsC.Cells(i, 6)
' 设置累计列公式（E/G列）
wsTotal.Cells(i, 5).Formula = "=C" & i & "+D" & i
wsTotal.Cells(i, 7).Formula = "=E" & i & "+F" & i
Next i
' 设置特殊公式关系
With wsTotal
.Range("C7").Formula = "=C8+C9" ' C7=C8+C9
.Range("E5").Formula = "=C5+D5" ' E5=C5+D5
.Range("G5").Formula = "=E5+F5" ' G5=E5+F5
End With
End Sub
其次，在Excel表中按ALT+F11,呼出VB编辑器，复制代码，并运行即可生成一键得到结果。完整的操作视频如下：
最后，在日常的统计工作中，时常出现数据核查等高时效性的响应需求，应用本方案的另一个优势是，当原始表数据发生变动时，通过再次执行预设的VB自动化处理流程即可实时生成更新后的汇总数据，极大提升效率，该方案尤其适用于报表数据较多的企业统计。
本案例的演示数据可添加研研获取，13240172794 微信同手机号，同时欢迎报名参加DeepSeek公开课《AI 能力放大器-deepseek 深度解析 》学习更多中间表构建知识。
统计课程报名入口已开放
扫描下方二维码立即报名！
关于我们
北京国研世讯教育管理咨询中心成立于2005年，是原国家统计局培训学院直属教学部。二十年精专统计与大数据领域，铸就了“数据国研”品牌，建成“中国统计培训网”线上学习平台，已经发展成为集政企培训、数据调研、数智咨询、数据平台搭建于一身的综合性机构。数字经济时代，数据国研依托行业专业优势、技术整合优势、变革管理优势，为企业提供一站式的统计与数据智能解决方案。累计服务客户500余家，涉及金融、能源、电力、水务、智能制造、建筑等30多个行业。
往期案例
统计 + 大数据
