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

Question

我有两列。

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

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

我想在c5：c40（或c5：lastrow）中求和细胞

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

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

.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