求和不包括某些值VBA的变量范围

Question

我是VBA的新手，正在尝试为工作创建报告模板。我还想看看如何根据自己的个人理解编码，而不是使用公式。

简单地说，我在ember serve中有一组变量值，column A中有一组日期。 column B是一个可变范围的日期（用户输入。我希望在我的代码中将其作为一个数组。）

我想在排除Column D中指定的日期时将column A求和，并将此总和输出到单元格column D中。我在下面附上了一张照片。

提前致谢！

Picture of the sheet

Answer 1

试试这段代码，这是不言自明的。

Sub sumVariables()
Dim i As Long, j As Long, sum As Long, match As Boolean
sum = 0
match = False
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
    For j = 2 To Cells(Rows.Count, 4).End(xlUp).Row
        If Cells(i, 2) = Cells(j, 4) Then
            match = True
        End If
    Next j
    If match = False Then
        sum = sum + Cells(i, 1)
    End If
    match = False
Next i
Cells(1, 7) = sum
End Sub

此代码适用于工作表中的n行，并在G1中提供总计。如果您需要任何帮助，请告诉我。