我有一系列日期:
--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
但是,一旦我收到大量参赛作品,它的速度非常慢,并且不会很好。
答案 0 :(得分:0)
答案 1 :(得分:0)
您还可以尝试使用.Find
与.FindNext
结合使用来查找过滤条件。我发现这种方法比大多数时候完全循环更快。