对非空白单元格旁边的单元格求和

Question

我有两栏。

范围c5：c40（或c5：lastrow）包含价格。

范围D5：D40（或D5：lastrow）包含日期。

我想对单元格求和 c5：c40（或c5：lastrow）

D5：D40中包含日期的单元格旁边的

。

我有以下代码，但这仅给我单元格D2：D3中的True值，而不是数字

.Range("D2:D3").Merge
.Range("D2:D3").Value = "=SUMIF(D5:D6," <> ",C5:C6)"

我如何获得总和？

Answer 1

恐怕我误解了你。以下代码可以帮助您吗？

Sub testing()
    Dim total As Long
    Dim i As Integer
    For i = 5 To 40
        If Not IsEmpty(Cells(i, 4)) Then
            total = total + Cells(i, 3)
        End If
    Next i
End Sub