Excel 跨多個工作表求和

Question

我是 VBA 的新手，希望有人能幫助我。 我創建了一個自定義 function 來對多個工作表中的單元格的值求和。 但是，表格中我必須使用 function 的單元格與我需要求和的單元格不同。 例如，我需要對所有工作表中的 B2 求和，但我需要使用 function 的地方是單元格 C2。 有人可以幫忙嗎？ 我的代碼：

Function AutoSum() As Variant
    AutoSum = 0
    For Each ws In Worksheets
        If Not ws Is Application.ThisCell.Parent Then AutoSum = AutoSum + ws.Range(Application.ThisCell.Address)
    Next
End Function

Answer 1

您可以稍微更改它並放置您想要求和的范圍

=autosum(d1) 將對所有 D1 單元格求和。

Function AutoSum(rng As Range) As Variant
    AutoSum = 0
    Application.Volatile True
    For Each ws In Worksheets
        If Not ws Is Application.ThisCell.Parent Then
            AutoSum = AutoSum + ws.Range(rng.Address)
        End If
    Next
End Function