请老师帮忙；一般VBA运算谢谢

1595136403

一般VBA运算谢谢

yjh_27

参见附件。

yjh_27

1. Sub aa()
   
2. R = Range("a" & Rows.Count).End(xlUp).Row
   
3. 
   
4. arr = Range("a2:R" & R)
   
5. brr = YjhSort(arr, "a", "5", "c,1;1;7,2;1;7,3;1;7,4;1;3,5;1;7,6;1;7,7;1;7,8;1;6,9;1;6,10;1;5,11;1;4,12;1;7,1;1;1,1;1;1,15;1;3,16;1;3,17;1;3,1;1;1,1;1;1,1;1;1,1;1;1,1;1;1,1;1;1,1;1;1,1;1;1,15;1;2,16;1;2,17;1;2")
   
6. 
   
7. For i = 1 To UBound(brr)
   
8.     brr(i, 14) = brr(i, 13) - brr(i, 9)
   
9.     If brr(i, 9) = 0 Then brr(i, 15) = "" Else brr(i, 15) = brr(i, 14) / brr(i, 9) * 100
   
10.     If brr(i, 8) = 0 Then brr(i, 19) = "" Else brr(i, 19) = brr(i, 16) / brr(i, 8) / 100
    
11.     If brr(i, 8) = 0 Then brr(i, 20) = "" Else brr(i, 20) = brr(i, 17) / brr(i, 8) * 10
    
12.     If brr(i, 5) = 0 Then brr(i, 21) = "" Else brr(i, 21) = brr(i, 20) / brr(i, 5)
    
13.     If brr(i, 17) = 0 Then brr(i, 22) = "" Else brr(i, 22) = brr(i, 16) / brr(i, 17)
    
14.     If brr(i, 17) = 0 Then brr(i, 23) = "" Else brr(i, 23) = brr(i, 18) / brr(i, 17)
    
15.     brr(i, 24) = brr(i, 11) - brr(i, 12)
    
16.     If brr(i, 9) = 0 Then brr(i, 25) = "" Else brr(i, 25) = brr(i, 24) / brr(i, 9) * 100
    
17.     If brr(i, 16) = 0 Then brr(i, 26) = "" Else brr(i, 26) = brr(i, 18) / brr(i, 16)
    
18. 
    
19. Next
    
20. 
    
21. Sheet2.Range("Z2").Resize(UBound(brr), UBound(brr, 2) - 2) = brr
    
22. 
    
23. End Sub
    

复制代码

1595136403

yjh_27 发表于 2014-12-24 19:07
参见附件。

谢谢老师，让老师多费心了！谢谢！！老师不好意思还有个别不对我已把正确结果放在附件中，老师如果有时间帮忙再看看(错误数据我用黄色注明了)花了您好多时间了!再次感谢!

yjh_27

1595136403 发表于 2014-12-24 21:30
谢谢老师，让老师多费心了！谢谢！！老师不好意思还有个别不对我已把正确结果放在附件中，老师如果有时间 ...

brr = YjhSort(arr, "a,a", "5,1", "c,1;1;7,2;1;7,3;1;7,4;1;3,5;1;7,6;1;7,7;1;7,8;1;6,9;1;6,10;1;5,11;1;4,12;1;7,1;1;1,1;1;1,15;1;3,16;1;3,17;1;3,1;1;1,1;1;1,1;1;1,1;1;1,1;1;1,1;1;1,1;1;1,1;1;1,15;1;2,16;1;2,17;1;2")

1595136403

yjh_27 发表于 2014-12-24 22:12
brr = YjhSort(arr, "a,a", "5,1", "c,1;1;7,2;1;7,3;1;7,4;1;3,5;1;7,6;1;7,7;1;7,8;1;6,9;1;6,10;1;5,1 ...

老师早上好：感谢你大力支持！能把你的程序编到我的附件里吗？不怕您笑，(我对VBA真的一点都不懂)？我是个菜鸟！只好救助您！老师可能还有个问题没说清楚，当“E”列数据相同时“E”列数据有多有少每次不同。期待您的回复。祝福好人一身平安，谢谢！！

yjh_27

1595136403 发表于 2014-12-25 08:03
老师早上好：感谢你大力支持！能把你的程序编到我的附件里吗？不怕您笑，(我对VBA真的一点都不懂)？我是个 ...

“D”列有几项(行)相加放入“AD”列中。

模拟结果与描述不符

1595136403

yjh_27 发表于 2014-12-25 08:43
模拟结果与描述不符

老师你好：真不好意思是我没表示(描述)清楚，当“E”列数据相同时，“D”列有几项(行)相加放入“AD”列中{不是几项(行)里面具体数据相加}，而是有几“行”(相加)。老师有时间帮忙改改，谢谢老师！！

yjh_27

1595136403 发表于 2014-12-25 12:36
老师你好：真不好意思是我没表示(描述)清楚，当“E”列数据相同时，“D”列有几项(行)相加放入“AD”列中 ...

你是要计数，
计数的标准是什么，“D”列都有数，无法区分

1595136403

yjh_27 发表于 2014-12-25 12:59
你是要计数，
计数的标准是什么，“D”列都有数，无法区分

老师你好：不好意思是当“E”列数据相同时：，“D”列都有数，共出现了几次？也就是说当：“E”列数据相同时“D”列由“D2”加“D3”加“D4”加“D5”加“D6”形成共出现次(数).....5次。