如果是经过排序的,且重复次数小于100的上面数据对应 A,B,C列a1=cells(1,1)b1=cells(1,2)*cells(1,3)for i=2 to 100if cells(i,1)=a1 thenb1=b1+cells(i,2)*cells(i,3)if cells(i,1)="" thenexit forelseendifelsecells(i-1,4)=b1a1=cells(i,1)b1=cells(i,2)*cells(i,3)if cells(i,1)="" thenexit forelseendifendifnext...
|