循环遍历列表并对excel VBA中的每个唯一值执行计算

Question

我有一些excel数据：

apple   7.00    30/05/2017
apple   3.00    05/05/2017
apple   3.00    11/05/2017
apple   7.00    12/05/2017
apple   7.00    16/05/2017
apple   7.00    17/05/2017
banana  7.00    18/05/2017
orange  7.00    19/05/2017
orange  7.00    22/05/2017
orange  7.00    23/05/2017
orange  7.00    24/05/2017
orange  7.00    25/05/2017
orange  7.00    26/05/2017
orange  7.00    05/06/2017
orange  7.00    06/06/2017
orange  7.00    08/06/2017
orange  7.00    09/06/2017
orange  7.00    12/06/2017

并希望遍历每个条目并执行一些计算。我是新手并且正在尝试学习VBA，在R中会做以下事情：

df=NULL
for(i in unique(col1)){
    a=subset of data
    perform some calculation of the data a
    append results to a df
}

我的问题是，如何在VBA中执行此操作

在上一节中，我感兴趣的结果是：

fruit   number of 5d weeks at same price
apple   0 
banana  0
orange  1

我的数据是~10k行