利用VBA求红色部分百分比

lnftp

老师们，帮忙看看 VBA求百分比.rar (10.61 KB, 下载次数: 9)

2016-2-4 22:03 上传

点击文件名下载附件 这个怎么处理啊

grf1973

1. Sub 百分比()
   
2.     Range("g5:g1000,j5:j1000,m5:m1000").ClearContents
   
3.     arr = Range("a1:r" & [e65536].End(3).Row)
   
4.     For j = 6 To 12 Step 3
   
5.         For i = 5 To UBound(arr) Step 3
   
6.             s = arr(i, j) + arr(i + 1, j) + arr(i + 2, j)
   
7.             If s > 0 Then
   
8.                 arr(i, j + 1) = Format(arr(i, j) / s, "0.00%")
   
9.                 arr(i + 1, j + 1) = Format(arr(i + 1, j) / s, "0.00%")
   
10.                 arr(i + 2, j + 1) = Format(arr(i + 2, j) / s, "0.00%")
    
11.             End If
    
12.         Next
    
13.     Next
    
14.     Range("a1:r" & [e65536].End(3).Row) = arr
    
15. End Sub
    

复制代码