VBA计算A列每2个数相加 再计算平均值

laoau138

VBA计算A列每2个数相加  再计算平均值

dsmch

1. Sub Macro1()
   
2. Dim arr, d, i&
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = Range("a1").CurrentRegion
   
5. n = UBound(arr): x = [e1]
   
6. [f5] = ""
   
7. For i = UBound(arr) - 1 To 1 Step -1
   
8.     If arr(i, 1) = arr(n, 1) Then d(i) = ""
   
9. Next
   
10. zdh = n: h = n - x + 1
    
11. For Each a In d.keys
    
12.     If Abs(h - a) < zdh Then zdh = Abs(h - a)
    
13. Next
    
14. If Range("a1").Resize(n - 1).Find(arr(n, 1)) Is Nothing Then Exit Sub
    
15. s = IIf(d.exists(zdh + h), h + zdh, h - zdh)
    
16. s2 = s + 1
    
17. Do
    
18.     x1 = arr(s, 1): x2 = arr(s + 1, 1)
    
19.     yh = yh + x1 + x2  '右边和
    
20.     y = y + 1 '右边计数
    
21.     s = s + 2
    
22. Loop Until s >= n
    
23. Do
    
24.     x1 = arr(s2, 1): x2 = arr(s2 + 1, 1)
    
25.     zh = zh + x1 + x2  '左边和
    
26.     z = z + 1 '左边计数
    
27.     s2 = s2 + 2
    
28. Loop Until s2 >= n
    
29. [f5] = (zh + yh) / (y + z)
    
30. End Sub

复制代码

laoau138

dsmch 发表于 2017-1-22 13:57

高手中的高手

laoau138

dsmch 发表于 2017-1-22 13:57

用VBA数组统计B列  上一行出现同尾数 下一行跟尾数字总次数


http://www.excelpx.com/thread-427373-1-1.html

laoau138

dsmch 发表于 2017-1-22 13:57

这个就可以了