选择与月份和类型匹配的日期范围

时间:2014-03-14 18:37:01

标签: vb.net excel vba

我有一系列日期:

--ID------Date-----Type
 123  |10/27/2013|  1
 124  |11/27/2013|  2
 125  |12/27/2013|  3
 ...      ...      ...

我需要选择所有类型的总和" 1" 10月份有日期的商品。 我尝试重复每一个:

For i = 7 To tmRowCount
    If (person.Cells(i, "D").Value = ctype) Then
        cmth = Month(person.Cells(i, "C").Value)
            If cmth = mth Then
                c = c + 1
            End If
    End If
Next i

但是,一旦我收到大量参赛作品,它的速度非常慢,并且不会很好。

2 个答案:

答案 0 :(得分:0)

=SUMPRODUCT((MONTH(A2:A10)=10)+0, (B2:B10=1)+0)

此处A2:A10是包含要查找的日期的范围,B2:B10是“类型”列。

请查看this了解详细说明

答案 1 :(得分:0)

您还可以尝试使用.Find.FindNext结合使用来查找过滤条件。我发现这种方法比大多数时候完全循环更快。