Excel VBA函数用于计算每月的记录数

时间:2017-08-10 16:18:56

标签: excel vba excel-vba

我有以下excel格式,需要找出每个Cust(Title1)每月的记录数(Title2):

Title1  Title2
CustA   1/1/2017
CustA   1/1/2017
CustB   1/1/2017
CustC   2/2/2017
CustD   2/2/2017
CustE   3/3/2017

基本上,结果需要如下所示:

Title1  January February    March
CustA   2       0           0
CustB   1       0           0
CustC   0       1           0
CustD   0       1           0
CustE   0       0           1

它需要计算Title1相同值的出现次数,并每月列出它们。我需要在不使用数据透视表的情况下执行此操作,并且所有操作都在VBA中完成,但我很难找到它的代码。

1 个答案:

答案 0 :(得分:1)

虽然为人们编码是非典型的,但由于没有提供代码,这里有一个例子可以让你朝着正确的方向前进:

Dim i as Integer
For i = 1 to 12
    Cells(2,i+3).Formula="=Countifs($A$2:$A$5,$A2=""CustA"",$B$2:$B$5,Month($B2)=" & i & ")"
Next i

你应该可以为其他行和变量等打击