求求大神帮帮忙！如何统计文件夹内多个工作簿中指定单元格的总和

罗亮亮

在论坛里面逛了很久，也找了很多大神给的案例 可是理解能力还是不够的  实在是研究不下去了 上传了附件 希望好心人帮忙看看就是汇总表里面指定单元格里面的数据是其他七个一模一样的工作表中指定单元格里面的总和  我用的是公式 一个一个表调用的 没把我累死  整了好几天才弄完，我一直在想肯定有更简单的代码可以实现 想请人帮忙写一下代码   客流统计.rar (185.7 KB, 下载次数: 7)

2019-12-10 22:28 上传

点击文件名下载附件

罗亮亮

别沉呀 大神帮帮忙吧

liulang0808

1. Sub clear()
   
2.     Application.ScreenUpdating = False
   
3.     [c3:aa46].ClearContents
   
4.     arr = ActiveSheet.UsedRange
   
5.     For Each f In CreateObject("scripting.filesystemobject").getfolder(ThisWorkbook.Path & "\一周客流").Files
   
6.         With Workbooks.Open(f)
   
7.             brr = .Sheets(1).UsedRange
   
8.             .Close False
   
9.         End With
   
10.         For j = 3 To 46
    
11.             For i = 3 To 27
    
12.                 arr(j, i) = arr(j, i) + brr(j, i)
    
13.             Next i
    
14.         Next j
    
15.     Next f
    
16.     ActiveSheet.UsedRange = arr
    
17.     Application.ScreenUpdating = True
    
18. End Sub

复制代码

liulang0808

附件内容供参考。。。。。。

罗亮亮

liulang0808 发表于 2019-12-26 22:06
附件内容供参考。。。。。。

灰常感谢  太牛啦  绝对大神级别

EXCELLMY

统计文件夹内多个工作簿中指定单元格的总和

罗亮亮

liulang0808 发表于 2019-12-26 22:06
附件内容供参考。。。。。。

Private Sub CommandButton1_Click()
[C3:Z44] = ""
End Sub

Private Sub CommandButton2_Click()
    Application.ScreenUpdating = False
    arr = ActiveSheet.UsedRange
    For Each f In CreateObject("scripting.filesystemobject").getfolder(ThisWorkbook.Path & "\一周客流").Files
        With Workbooks.Open(f)
            brr = .Sheets(1).UsedRange
            .Close False
        End With
        For j = 35 To 36
            For i = 3 To 26
                arr(j, i) = arr(j, i) + brr(j, i)
            Next i
        Next j
    Next f
    ActiveSheet.UsedRange = arr
    Application.ScreenUpdating = True
End Sub
大师 我又修改了代码 但是下边合计的公式会自动变成数字

jjmysjg

liulang0808 发表于 2019-12-26 22:06
附件内容供参考。。。。。。

只汇总了第一个表呀，麻烦版主看看，其他的表怎么汇总

bingoleexuben

留个脚印，有空学学

罗亮亮

jjmysjg 发表于 2020-1-13 17:28
只汇总了第一个表呀，麻烦版主看看，其他的表怎么汇总

研究下他的代码就能搞定啦  三个表我都弄好啦 多谢版主