销售汇总12个月的子表汇总成一个表

richard_qian

大神们！我的工作簿中1月到12月的子表里面的数据全部汇总到一个总表进里面去，在汇总里能把每个月所销售的产品对应位置显示每个月的数量和总数量。   望大神求助 帮忙帮忙  请看附件

sjlxp2010

C3=SUM(IFERROR(($A3&$B3=INDIRECT(C$2&"!$A$3:$A$16")&INDIRECT(C$2&"!$B$3:$B$16"))*INDIRECT(C$2&"!$C$3:$C$16"),"")),三键拖拉

opiona

http://club.excelhome.net/thread-1409141-1-1.html

hasyh2008

Sub 汇总()
    Dim x%, y%, str As String

    For x = 3 To Range("A" & Rows.Count).End(xlUp).Row
        For y = 1 To 12
            str = Range("A" & x).Value
            Cells(x, y + 2) = Application.VLookup(str, Sheets(y & "月").Range("A:C" ), 3, False)

                If Cells(x, y + 2).Text = "#N/A" Then
                     Cells(x, y + 2).Value = 0
                End If

            Range("O" & x) = WorksheetFunction.Sum(Range("C" & x).Resize(1, 12))

        Next y
    Next x
End Sub


Sub 清除()
    Range("C3:O" & Rows.Count).ClearContents
End Sub

hasyh2008

hasyh2008 发表于 2018-7-17 08:00
Sub 汇总()
    Dim x%, y%, str As String

附件中是Cells(x, y + 2) = Application.VLookup(str, Sheets(y & "月").Range("A2:C100" ), 3, False)，可修改为
Cells(x, y + 2) = Application.VLookup(str, Sheets(y & "月").Range("A:C" ), 3, False)

jjmysjg

hasyh2008 发表于 2018-7-17 08:00
Sub 汇总()
    Dim x%, y%, str As String

谢谢，如何自动提取各个字表的A&B列不重复值到汇总表的AB列？

richard_qian

hasyh2008 发表于 2018-7-17 08:00
Sub 汇总()
    Dim x%, y%, str As String

谢谢大神！！非常感激！！完成工作有望加工资！

hasyh2008

Sub 汇总()
    Dim x%, y%, str As String

    For x = 3 To Range("A" & Rows.Count).End(xlUp).Row
        For y = 1 To 12
            str = Range("A" & x).Value
            Cells(x, y + 2) = Application.VLookup(str, Sheets(y & "月").Range("A:C"), 3, False)

                If Cells(x, y + 2).Text = "#N/A" Then
                     Cells(x, y + 2).Value = 0
                End If

            Range("O" & x) = WorksheetFunction.Sum(Range("C" & x).Resize(1, 12))

        Next y
    Next x

End Sub


Sub 清除()
    Range("C3:O" & Rows.Count).ClearContents
End Sub

Sub 提取物资名称()
    Dim i%
    For i = 1 To 12
        Sheets(i & "月").Select
        Sheets(i & "月").Range("A3:B" & Sheets(i & "月").Range("B" & Rows.Count).End(xlUp).Row).Select
        Selection.Copy Sheet13.Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
    Next i
    Sheet13.Select
    ActiveSheet.Range("A2:B" & Sheet13.Range("B" & Rows.Count).End(xlUp).Row).RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes
End Sub

hasyh2008

jjmysjg 发表于 2018-7-17 08:32
谢谢，如何自动提取各个字表的A&B列不重复值到汇总表的AB列？

见上一楼层！

jjmysjg

hasyh2008 发表于 2018-7-17 11:36
Sub 汇总()
    Dim x%, y%, str As String

如果各个字表的命名不规则，比如是一、二、三等，代码能改改吗