如何编写以下几个vba

rmrmrm123

0.1  0.1统计 0.2统计 0.3统计  
0.2      5             3             3  
0.3      
0.1      
0.4      
0.2      
0.1      
0.5      
0.1      
0.6      
0.3      
0.1      
0.2      
0.3      
      
我想把按钮1做在别的工作簿上应该如何实现(查看一b2文件)
  5      3          3  

第一: 使用按钮2,book文件中使现运算的功能   

也就是说把按钮和程序写在另一个工作簿上   

第二: 使用按钮2,让book文件最后的数值写在b2文件中相同的位置
   


0.1 0.8 0.6 0.84            5行             4行
0.25 0.96 0.87 0.7            2              1 (4-7)
0.3 0.74 0.32 0.66          2                2 (8-11)
0.78 0.38 0.87 0.3         3                2 (12-15)
0.24 0.11 0.4 0.18          2                1 (16-19)
0.2 0.12 0.64 0.15         1                2 (20-23)
0.87 0.34 0.66 0.34      
0.42 0.22 0.5 0.36      
0.44 0.69 0.82 0.75      
0.9 0.87 0.37 0.84      
0.85 0.55 0.87 0.66      
0.1 0.81 0.45 0.8      
0.2 0.2 0.87 0.42      
0.45 0.76 0.18 0.87      
0.2 0.29 0.84 0.96      
0.69 0.84 0.75 0.34      
0.1 0.9 0.7 0.87      
0.2 0.96 0.37 0.24      
0.85 0.74 0.3 0.91      
0.87 0.38 0.89 0.48      
0.4 0.11 0.41 0.17      
0.2 0.28 0.2 0.87      
0.66 0 0.69 0.34      
0.58 0.26 0.54 0.22      
0.63 0.69 0.44 0.55      
         
一:我想统计每5行有多少个0.87,显示在f列     
   
二:我想统计每4行有多少个0.87但是有附加条件(保留有数据的最后2行,从第1行
开始减去被除的余数      
  
举个例子:        

上面25行数据,保留最后有数据的2行,那么是从(1-23)行;  
      
从第1行开始减去被除的:也就是说23/4=5余3,从上往下减3行,那么就是
(4-23)行里每4行进行统计，显示在i列     

三:我想把vba宏的按钮做在b2工作簿上应该怎么做
详情在附件上，请大家帮忙，谢谢！！！！！！

rmrmrm123

谢谢

pureshadow

每五行有多少个0.87用公式：
=COUNTIF(INDIRECT("a"&ROW(A1)*5-4&":d"&ROW(A1)*5),0.87)
每四行有多少个0.84用公式：
=COUNTIF(INDIRECT("a"&ROW(A1)*4&":d"&ROW(A1)*4+3),0.87)
宏按钮你已经做到了