VBA计算A列左右两边两数和两数差平均值分两种情况

laoau138 · 发表于 2017-1-18 12:37

dsmch · 发表于 2017-1-21 11:24

复制代码

laoau138 · 发表于 2017-1-21 21:27

dsmch 发表于 2017-1-21 11:24

用VBA把每一行数字从小到大排序

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

laoau138 · 发表于 2017-1-21 21:38

dsmch 发表于 2017-1-21 11:24

有一点问题, D1输入8 程序出错了
正确来说，D1输入8，由于找不到5，结果不显示才对

dsmch · 发表于 2017-1-22 09:54

增加一个判断

Sub Macro1()
arr = Range("a1").CurrentRegion
n = UBound(arr): x = [d1]
Union([e6], [e8]) = ""
If Range(Cells(n - x + 1, 1), Cells(n - 1, 1)).Find(arr(n, 1)) Is Nothing Then Exit Sub
For i = n - x + 1 To n
If arr(i, 1) = arr(n, 1) Then s = i: Exit For
Next
s2 = s + 1
Do
x1 = arr(s, 1): x2 = arr(s + 1, 1)
yh = yh + x1 + x2 + Abs(x1 - x2) '右边和
yc = yc + x1 + x2 - Abs(x1 - x2) '右边差
y = y + 1 '右边计数
s = s + 2
Loop Until s >= n
Do
x1 = arr(s2, 1): x2 = arr(s2 + 1, 1)
zh = zh + x1 + x2 + Abs(x1 - x2) '左边和
zc = zc + x1 + x2 - Abs(x1 - x2) '左边差
z = z + 1 '左边计数
s2 = s2 + 2
Loop Until s2 >= n
[e6] = (zh + yh) / (y + z)
[e8] = (zc + yc) / (y + z)
End Sub

复制代码

laoau138 · 发表于 2017-2-12 21:16

dsmch 发表于 2017-1-22 09:54
增加一个判断

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

VBA计算等距离间隔循环相同数字

		自动登录	找回密码
密码			注册

[VBA] VBA计算A列左右两边两数和两数差平均值分两种情况