Суммируйте ячейки, которые находятся рядом с непустыми ячейками

Question

У меня есть две колонки.

Диапазон c5: c40 (или c5: lastrow) содержит цену.

диапазон D5: D40 (или D5: последняя строка) содержит дату.

Я хочу сложить клетки в с5: с40 (или с5: последний)

, которые находятся рядом с ячейками в D5: D40, который содержит дату.

У меня есть следующий код, но это дает мне только значение True в ячейках D2: 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