excel在同一个文件夹下有n个工作簿的求和公式怎样写

发布网友发布时间：2022-04-29 09:19

共3个回答

热心网友时间：2022-06-25 09:27

这种功能如果用写公式的办法来写并不容易实现：因为你首先需要获取“同一个文件夹下n个工作簿”文件的名称，然后才能进行一步的计算。

以下是用VBA代码实现：

这段代码先建立一个汇总表，再获取 d:\同一个文件夹\ 下面所有excel文件，并提取相关数据到汇总表中，然后进行求和。

Sub 汇总()
    Dim cFile$, cPath$, nL%
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    nL = 5
    cPath = "d:\同一个文件夹\"
    cFile = Dir(cPath & "*.xls")
    Do While cFile <> ""
        nL = nL + 1
        Cells(4, nL).Resize(46, 1).Formula = "='" & cPath & "[" & cFile & "]Sheet1'!$C4"
        cFile = Dir
    Loop
    Range("c4:c49").Formula = "=sum(f4:iv4)"
    Range("c4:c49").Value = Range("c4:c49").Value
    Range("f4:iv49").ClearContents
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

热心网友时间：2022-06-25 09:28

亲，在公式中写入具体的工作簿路径、名称、Sheet名称即可，例如：
='d:\[工作簿1.xlsx]Sheet1'!A1+'d:\[工作簿2.xlsx]Sheet1'!A1+……

热心网友时间：2022-06-25 09:28

建多个条件求和：函数SUMIFS达到你的要求