同一个工作薄，在指定单元格内汇总各工作表中不同位置的数据之和

xiagangdianchan

求助各位老师：在同一个工作薄内，通过在“第1天”~“第5天”的工作表中筛选“香蕉”和“广东”两个条件，在指定单元格E内汇总第1天~第4天的“香蕉”采购额，详情请见附件。

opiona

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

ione_fox

1. Sub test()
   
2. Dim Dic, I&, J&, K&, Ar, Sht As Worksheet, Br
   
3. Set Dic = CreateObject("scripting.dictionary")
   
4. '    Ar = Range("a1").CurrentRegion
   
5. '    For I = 3 To UBound(Ar)
   
6. '        Dic(Ar(I, 2) & Ar(I, 3)) = 0
   
7. '    Next
   
8.     For Each Sht In Worksheets
   
9.         If Sht.Name <> "汇总" Then
   
10.             Br = Sht.Range("a1").CurrentRegion
    
11.                 For I = 3 To UBound(Br)
    
12.                     Dic(Br(I, 2) & Br(I, 3)) = Br(I, 5) + Dic(Br(I, 2) & Br(I, 3))
    
13.                 Next
    
14.         Erase Br
    
15.         End If
    
16.     Next
    
17.     Ar = Sheets("汇总").Range("a1").CurrentRegion
    
18.     For I = 3 To UBound(Ar)
    
19.         Range("e" & I) = Dic(Ar(I, 2) & Ar(I, 3))
    
20.     Next
    
21. End Sub
    

复制代码

ione_fox

附件附上 请查收

魂断蓝桥

Option Explicit

Sub a()
Dim arr, i%, d, sh As Worksheet
Set d = CreateObject("Scripting.Dictionary")
For Each sh In Sheets
    If sh.Name <> "汇总" And sh.Name <> "第5天" Then
        arr = sh.[A1].CurrentRegion
            For i = 3 To UBound(arr)
                d(arr(i, 2) & arr(i, 3)) = d(arr(i, 2) & arr(i, 3)) + arr(i, 5)
            Next
    End If
Next
arr = Sheets("汇总").[A1].CurrentRegion
For i = 3 To UBound(arr)
    arr(i, 5) = d(arr(i, 2) & arr(i, 3))
Next
[A1].Resize(UBound(arr), UBound(arr, 2)) = arr
Set d = Nothing
End Sub

xiagangdianchan

感谢各位大师的指点，能否在“E列“元格内输入函数公式，直接求得各工作表的数值。

air_lingluan

｛=SUM(SUMIFS(INDIRECT(shtname&"!E:E"),INDIRECT(shtname&"!b:b"),汇总!B4,INDIRECT(shtname&"!c:c"),汇总!C4))｝

air_lingluan

设置shtname={"第1天“，“第2天”，“第3天”，“第4天”，“第5天”｝

xiagangdianchan

air_lingluan 发表于 2018-7-19 13:17
设置shtname={"第1天“，“第2天”，“第3天”，“第4天”，“第5天”｝

楼上的老师，你好。我定义shtname={"第1天“，“第2天”，“第3天”，“第4天”，“第5天”｝后，但是数值显示错误#REF!, 能否在我的附件中帮忙编辑编辑。谢谢。