动态excel求和函数

Question

我正在尝试对动态范围进行求和公式。很像在数据透视表中。

看一下图片，我希望 L15 是从 L16 到空白行的范围之和。由于范围是动态的，我不确定如何在我的代码上编写它。到目前为止，我所拥有的是：

If out.Range("A15").Cells(i, 1) = "Aktier" Then
        out.Range("L15").Cells(i, 1) = Application.WorksheetFunction.Sum(Range("L15").Cells(i + 1, 1), Range("L15").Cells(i + 1, 1).End(xlDown))
End If

所以我的问题基本上是如何编写 Sum(A1:End(xlDown)) 之类的东西？ :)

希望你们能帮帮我！ :D

提前致谢！

Answer 1

首先，我建议您尽可能地获得一个更像数据库的结构，因此我将有一列重复该概念，然后您就可以轻松地使用 Excel SUMIF 函数。

这可能不是您的情况（这似乎是会计程序的输出）。利用使用 VBA 宏，您可以使用循环来生成我之前提到的列（您也可以使用该概念进行求和，但我相信生成更好的数据格式会更清晰）。请看下图：

Sub Add_Concepts()

i = 1
Concept = Cells(i, 2)
i = 2
Do While (Cells(i, 2) <> "")
 Cells(i, 1) = Concept
 If Cells(i + 1, 2) = "" Then 'Change in concept
  Concept = Cells(i + 2, 2) 'New concept
  i = i + 2 'add 2 to skip the New concept line and the white space
 End If
  i = i + 1
Loop

End Sub

现在您可以使用常规的 Excel 函数了。

希望这会有所帮助！

Answer 2

跳过步骤

片段：

If out.Range("A15").Cells(i, 1) = "Aktier" Then
    With out.Range("L15")
        .Cells(i, 1) = Application.WorksheetFunction _
          .Sum(.Parent.Range(.Offset(1), .Offset(1).End(xlDown)))
    End With
End If

工作示例：

Option Explicit

Sub SumToBlank()

    Dim out As Worksheet: Set out = ThisWorkbook.Worksheets("Sheet1")
    Dim i As Long: i = 1

    If out.Range("A15").Cells(i, 1) = "Aktier" Then
        With out.Range("L15")
            .Cells(i, 1) = Application.WorksheetFunction _
              .Sum(.Parent.Range(.Offset(1), .Offset.End(xlDown)))
        End With
    End If

End Sub