多个表自动求和--超难 高手请进--谢谢

jutou

1.求和

2很多同样的的表，但是行数、数字不一样，怎么做？

3必须要打开每个表吗？有时到月底时会要有40多张啊 晕!

   很麻烦，而且容易漏掉或者重复节省时间啊

谢谢大侠

mliG7iqR.rar (5.07 KB, 下载次数: 2)

2009-10-6 22:43 上传

点击文件名下载附件
多个表自动求和--超难 高手请进--谢谢

jsnjwaq

同样的问题,重复发帖,有必要吗?

你的要求不是很清楚,不知道要求哪个和,看到你C2中的值并不是用公式得到,难道是要求C2?

C2=A2+B2

jutou

对的，是求

1 各表的A,B,C各列的和

2C=A+B

对我这个菜鸟来说很难，见笑了

恳请解决  谢谢

jutou

  请求：

  1各表的A,B,C列的和；

  2C=A+B

  3求所有表的A,B,C的和

谢谢   着急干活   问题说的不清楚  补充一下-----谢谢！

蓝桥玄霜

Sub pldrwb1007()
    Dim myFs As FileSearch
    Dim myPath As String, Filename$
    Dim i As Long, n As Long
    Dim Sht1 As Worksheet, sh As Worksheet
    Dim wb1 As Workbook
    Dim wb As Workbook
    Dim aa, nm$, nm1$, m, arr, r1, col1%
    Application.ScreenUpdating = False
    Set wb1 = ThisWorkbook
    Set myFs = Application.FileSearch
    myPath = ThisWorkbook.Path
    With myFs
        .NewSearch
        .LookIn = myPath
        .FileType = msoFileTypeNoteItem
        .Filename = "*.xls"
        If .Execute(SortBy:=msoSortByFileName) > 0 Then
            n = .FoundFiles.Count
            col1 = 2
            ReDim myfile(1 To n) As String
            For i = 1 To n
                myfile(i) = .FoundFiles(i)
                Workbooks.Open myfile(i)
                Set wb = ActiveWorkbook
                m = [a65536].End(xlUp).Row
                Cells(m + 1, 1).Formula = "=sum(r2c:r[-1]c)"
                Cells(m + 1, 2).Formula = "=sum(r2c:r[-1]c)"
                [c2].formua = "=rc[-2]+rc[-1]"
                [c2].AutoFill Range("c2:c" & m + 1)
                If wb <> wb1 Then
                    wb.Close savechanges:=True
                    Set wb = Nothing
                End If
            Next
        Else
            MsgBox "该文件夹里没有任何文件"
        End If
    End With
    Set myFs = Nothing
Application.ScreenUpdating = True
End Sub
把要统计的所有的工作簿放在一个文件夹里面。代码只要放在一个工作簿的模块里即可。

xdwy81129

学习下。

蓝桥好厉害。

jutou

老大就是老大！

我太菜，，，怎么用啊？

zsd5237

学习[em02][em02]

蓝桥玄霜

ysYFvvCV.rar (10.72 KB, 下载次数: 8)

2009-10-9 09:15 上传

点击文件名下载附件
多个表自动求和--超难 高手请进--谢谢

把这个工作簿和其它要计算的工作簿放在同一个文件夹里面，其它文件不要放在里面，打开本工作簿，点击“计算”按钮。

bel_joe

高手阿,又学习了一招