如何按照单元格的颜色来填充格式计算啊！大神求助！

xin3181771

领导要求按表格写个自动填充公式的宏，数据没有逻辑不知道怎么去操作。求各位大神指点迷津！

鄂龙蒙

1. Sub 统计()
   
2.     Dim i, m, arr, brr(), x, a
   
3.     arr = Sheet3.UsedRange
   
4.     For i = 9 To UBound(arr)
   
5.         If Len(arr(i, 1)) And InStr(arr(i, 2), "全区") Then
   
6.             m = m + 1
   
7.             ReDim Preserve brr(1 To 2, 1 To m)
   
8.             brr(1, m) = i + 1
   
9.         End If
   
10.     Next
    
11.     For i = 1 To m - 1
    
12.         brr(2, i) = brr(1, i + 1) - 2
    
13.     Next
    
14.     brr(2, m) = UBound(arr)
    
15.     For x = 1 To m
    
16.         a = 0
    
17.         For i = brr(1, x) To brr(2, x)
    
18.             a = a + Cells(i, "I")
    
19.         Next
    
20.          Cells(brr(1, x) - 1, "I") = a
    
21.     Next
    
22. End Sub

复制代码

鄂龙蒙

附件.rar (58.44 KB, 下载次数: 7)

2019-11-11 11:30 上传

点击文件名下载附件

xin3181771

鄂龙蒙 发表于 2019-11-11 11:30

感谢大神！！！