汇总子公司数据问题

juliet666777

各位老师，我每个月都会收到各个子公司的报表（附件中的a公司（1月）、b公司（1月）），收到后我会将汇总表中增加一个工作表（附件汇总表中的“1月”表）并用公式在子公司表中取数；到2月会收到子公司报表a公司（2月）、b公司（2月），我将“1月”表复制一下，然后查找替换将所有公式中的“1月”替换为“2月”。
汇总表分别按照月度和公司两个口径统计，我又在各个月份报表之前增加了两个表格分别统计。 目前按公司口径统计还比较方便；但是按月度统计我还需要每月新增一列，后面的合计也需要重新选定区域。想请问各位老师，这个表格还能再改进一下吗，谢谢！！

mjm04

思路：
1、统计汇总表 格式可以不用改，但a、b两个公司的数据表头要增加两个辅助列：月度与公司名；

2、工作表里的前两个工作薄分别是统计表， 第三个工作薄是数据来源表：也就是把加了辅助列的a公司与b公司数据直接粘到同一个工作薄；

3、在统计表里使用 SUMIFS 函数进行统计；可以对公司名、日期范围、项目名称进行设定，分门别类要求和；

这样你每次粘贴下数据表就行了，统计金额会自动更新的

zpy2

建议 子公司报表 仅包含 明细数据行，可以参考一下 多表合并或在线表单

3190496160

如果是经常性的工作，建议用vba代码来完成，高效快捷，通用

gaolei8001

仔细看了你的问题，我想应该不难解决，只是还有些问题需要了解，最好私信我。

juliet666777

3190496160 发表于 2022-5-15 09:59
如果是经常性的工作，建议用vba代码来完成，高效快捷，通用

老师您好，vba我没有接触过，您可以指导一下我从哪里开始入手吗

3190496160

juliet666777 发表于 2022-5-17 10:02
老师您好，vba我没有接触过，您可以指导一下我从哪里开始入手吗

现在开始学习，解决你的问题？呵

juliet666777

3190496160 发表于 2022-5-17 17:09
现在开始学习，解决你的问题？呵

这是什么意思啊

tomcluse_1227

可用VLOOKUP来引用数据，不用=来调用。

3190496160

Sub 新建工作表()
Application.ScreenUpdating = False
Dim d As Object
Set d = CreateObject("scripting.dictionary")
For Each sh In Sheets
    d(sh.Name) = ""
Next sh
w = InputBox("请输入名称", , Format(Date, "m月"))
If w = "" Then End
If d.exists(w) Then MsgBox w & "工作表已经存在，不能重复新建！": End
Sheets("模板").Copy after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = w
Application.ScreenUpdating = True
End Sub
Sub hz()
Application.ScreenUpdating = False
Set sh = ThisWorkbook.ActiveSheet
mc = sh.Name
f = Dir(ThisWorkbook.Path & "\*.xls*")
Do While f <> ""
    If f <> ThisWorkbook.Name Then
        If InStr(f, mc) > 0 Then
            Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & f, 0)
            ar = wb.Worksheets(1).Range("b5:b30")
            wb.Close False
            y = sh.Cells(3, Columns.Count).End(xlToLeft).Column + 1
            sh.Cells(5, y).Resize(UBound(ar), 1) = ar
            sh.Cells(3, y) = Split(f, ".")(0)
        End If
    End If
f = Dir
Loop
sh.Cells(3, y + 1) = "合计"
sh.Range(sh.Cells(3, 2), sh.Cells(30, y + 1)).Borders.LineStyle = 1
For i = 5 To 30
    sh.Cells(i, y + 1) = Application.Sum(sh.Range(sh.Cells(i, 2), sh.Cells(i, y)))
Next i
Application.ScreenUpdating = True
MsgBox "数据导入完毕！"
End Sub