财报分析 | 一键生成财报表格并自动分析

省大事了！本篇看完后你也可以借助AI快速自动完成重复性工作。

本篇以【财务工作】为例，处理一份每月例行的财务报表填写与数据差异分析的工作。但重点不是解决这一件事，毕竟不是每个人都是财务，重点是学会批量重复工作的解决原理，然后你就可以应用在你自己的繁杂、重复工作中。一次训练，一劳永逸！

我与AI完整对话与思考过程：聊天记录

难题：你每月需要重复做两件事

1. 根据 资产负债表 和 利润表 ，制作一份 月度财务报表
2. 根据 财务报表 ，分析差异原因并写成 分析报告

第1步：自动制作财务报表

第1版代码

1. 准备一张本月空白表格
2. 修改代码中的月份，并运行
3. 搞定！

Sub UpdateMonthlySheet()
    Dim wbOld As Workbook
    Dim wbNew As Workbook
    Dim wsOld As Worksheet
    Dim wsNew As Worksheet
    Dim cell As Range
    Dim oldFormula As String
    Dim newFormulaD As String
    Dim newFormulaE As String
    Dim newFormulaG As String

    ' 打开旧表和新表
    Set wbOld = Workbooks.Open("C:\Users\Alex\Desktop\Finacial Monthly Report-2024.04.xlsx", UpdateLinks:=0)
    Set wbNew = Workbooks.Open("C:\Users\Alex\Desktop\Finacial Monthly Report-2024.05.xlsx", UpdateLinks:=0)

    ' 设置旧表和新表中的月度工作表
    Set wsOld = wbOld.Sheets("月度")
    Set wsNew = wbNew.Sheets("月度")

    ' 循环遍历D列和E列的单元格（第5行到第45行），跳过第4、12、23、40行
    For i = 5 To 45
        If i <> 4 And i <> 12 And i <> 23 And i <> 40 Then
            ' 获取旧表中D列的公式并替换前缀
            oldFormula = wsOld.Cells(i, 4).Formula ' D列是第4列
            If InStr(oldFormula, "资产负债表24.03") > 0 Or InStr(oldFormula, "利润表24.03") > 0 Then
                newFormulaD = Replace(oldFormula, "24.03", "24.04")
                wsNew.Cells(i, 4).Formula = newFormulaD
            End If

            ' 获取旧表中E列的公式并替换前缀
            oldFormula = wsOld.Cells(i, 5).Formula ' E列是第5列
            If InStr(oldFormula, "资产负债表24.04") > 0 Or InStr(oldFormula, "利润表24.04") > 0 Then
                newFormulaE = Replace(oldFormula, "24.04", "24.05")
                wsNew.Cells(i, 5).Formula = newFormulaE
            End If
        End If
    Next i

    ' 处理G列（G5:G10, G13:G19）
    Dim gCells As Variant
    gCells = Array(5, 6, 7, 8, 9, 10, 13, 14, 15, 16, 17, 18, 19)

    For Each i In gCells
        ' 获取旧表中G列的公式并替换前缀
        oldFormula = wsOld.Cells(i, 7).Formula ' G列是第7列
        If InStr(oldFormula, "资产负债表24.04") > 0 Or InStr(oldFormula, "利润表24.04") > 0 Then
            newFormulaG = Replace(oldFormula, "24.04", "24.05")
            wsNew.Cells(i, 7).Formula = newFormulaG
        End If
    Next i

    ' 关闭工作簿，不保存更改
    wbOld.Close SaveChanges:=False
    wbNew.Close SaveChanges:=True

    MsgBox "Monthly sheet updated successfully!"
End Sub

第2版代码

1. 什么都不用准备
2. 什么都不用修改
3. 运行代码直接搞定！

(测试中)

第3步：自动分析报告

假设4月、5月财报两份文件存储在桌面，名称分别为：

• Finacial Monthly Report-2024.04
• Finacial Monthly Report-2024.05

方法1：AI总结报告

基于3月、4月的差异，“Finacial Monthly Report-2024.04”这份表格在【月度】工作表给出了异动分析报告如下：

1. 货币资金截止目前余额1,530万，月度环比下降44%，下降部分为正常月度费用，资金状况保持在良好状态                       
2. 长期应收款截止目前余额2,817万，月度环比增长22%，增长部分为4月向EF借款500万                     
3. 应付职工薪酬截止目前余额433万，月度环比增长24%，应付职工薪酬余额主要为计提的年终奖金，为4月当月计提奖金82万，发放年终奖金后此科目才会进行核销                      
4. 应交税费截止目前余额6.9万，月度环比下降83%，因企业所得税在季度计提，目前余额为应付印花税120元及应付个税6.9万元                        
5. 其他应付款截止目前余额64万，月度环比下降58%，下降部分为1季度计提律师服务费在4月完成结算                      
6. 未分配利润的变动主要是因为只有季度确认收入导致，季度变化才能反应真实情况                     
7. 营业税金及附加月度环比增长157%，当月发生额120元，全部为印花税费，印花税根据公司实际签署合同、订单的数量及金额情况计算缴纳                     
8. 财务费用月度环比增长157%，差异主要为3月收到银行1季度利息11万，季度变化才能反应真实情况                      
9. 投资收益月度环比增长22%，当月投资收益率0.176%，投资收益率在正常范围                       
10. 所得税费用为季度产生，季度变化才能反应真实情况                     

请你学习这种分析方式，并对我新上传的“Finacial Monthly Report-2024.05”做针对4月和5月差异分析，同时也总结为10条报告内容，分析项目相同，要注意每条都说明：目前情况（如目前余额或当月发生）、月度环比下降或增长的比例、一句话分析或解释，输出为条目给我即可

另外，我补充给你一些信息数据，方便你计算这10项差异，并得出正确结论：
1. 货币资金在E25单元格，月度差异百分比在F25单元格
2. 长期应收款余额在E41，月度差异百分比在G41
3. 应付职工薪酬目前余额在E28，月度差异百分比在F28
4. 应交税费在E29，月度差异百分比在F29
5. 其他应付款在E30，月度差异百分比在F30
6. 未分配利润的变动主要是因为只有季度确认收入导致，季度变化才能反应真实情况。
7. 营业税金及附加数据在E34，月度差异百分比在F34
8. 财务费用在E35，月度差异百分比在F35
9.  投资收益数据在E36，月度差异百分比在F36
10. 所得税费用为季度产生，季度变化才能反应真实情况。

如果按照这个模式，给出了分析方向参考，那么结果大概率是模仿你每次分析的话术来进行仿写，比如下图：

所以，我的建议是不要严格限定话术，而是让它自由发挥，根据数据来分析和提出自己的见解。

基于3月、4月的差异，请对我新上传的“Finacial Monthly Report-2024.05”做针对4月和5月差异分析，同时也总结为10条报告内容，分析项目如下，要注意每条都说明：目前情况（如目前余额或当月发生）、月度环比下降或增长的比例、你作为高级资深数据分析师1-2句话分析或解释，输出为条目给我即可

我补充给你一些信息数据，方便你计算这10项差异，并得出正确结论：
1. 货币资金在E25单元格，月度变化差异百分比在F25单元格
2. 长期应收款余额在E41，月度变化差异百分比在在G41
3. 应付职工薪酬目前余额在E28，月度变化差异百分比在F28
4. 应交税费在E29，月度变化差异百分比在F29
5. 其他应付款在E30，月度变化差异百分比在F30
6. 未分配利润在E32，月度变化差异百分比在F32
7. 营业税金及附加数据在E34，月度变化差异百分比在F34
8. 财务费用在E35，月度变化差异百分比在F35
9.  投资收益数据在E36，月度变化差异百分比在F36
10. 所得税费用在E37，月度变化差异百分比在F37

方法2：VBA生成对比报告