各位高手看看，为什么得不到预想的结果

kangfshine

由公式计算可知，写的vba却得不到这个结果，求指点，谢谢

ROUND((E10-E9)/(E9+C9),4)	=	8.1135
ROUND((E11-E10)/(E10+C10),4)	=	-0.9722
ROUND((E12-E11)/(E11+C11),4)	=	19.7599

Sub BB()
Dim arr, Xi, Xj, Yi, Yj, Mi, Mj, Ni, Nj, i
arr = Range("A1:E12")
i = 2
For Xi = 1 To 9
For Xj = 1 To 5
For Yi = 1 To 9
For Yj = 1 To 5
For Mi = 1 To 9
For Mj = 1 To 5
For Ni = 1 To 9
For Nj = 1 To 5
If Round((arr(Xi, Xj) - arr(Yi, Yj)) / (arr(Mi, Mj) + arr(Ni, Nj)), 4) = 8.1135 Then
If Round((arr(Xi + 1, Xj) - arr(Yi + 1, Yj)) / (arr(Mi + 1, Mj) + arr(Ni + 1, Nj)), 4) = -0.9722 Then
If Round((arr(Xi + 2, Xj) - arr(Yi + 1, Yj)) / (arr(Mi + 2, Mj) + arr(Ni + 1, Nj)), 4) = 19.7599 Then

Cells(i, "J").Resize(1, 8) = Array(Chr(64 + Xj) & Xi, Chr(64 + Yj) & Yi, Chr(64 + Mj) & Mi, Chr(64 + Nj) & Ni)
i = i + 1
End If
End If
End If
Next Nj, Ni, Mj, Mi, Yj, Yi, Xj, Xi
End Sub

大灰狼1976

E10是第10行，Xi变量应该是10，现在的代码每个循环都没有到10的。

kangfshine

大灰狼兄，改了一下代码，还是得不到结果，不知为什么，能否帮忙看一下？

Sub BB()
Dim arr, Xi, Xj, Yi, Yj, Mi, Mj, Ni, Nj, i
arr = Range("A1:E12")
i = 2
For Xi = 1 To 10
For Xj = 1 To 5
For Yi = 1 To 10
For Yj = 1 To 5
For Mi = 1 To 10
For Mj = 1 To 5
For Ni = 1 To 10
For Nj = 1 To 5
If Round((arr(Xi, Xj) - arr(Yi, Yj)) / (arr(Mi, Mj) + arr(Ni, Nj)), 4) = 8.1135 Then
If Round((arr(Xi + 1, Xj) - arr(Yi + 1, Yj)) / (arr(Mi + 1, Mj) + arr(Ni + 1, Nj)), 4) = -0.9722 Then
If Round((arr(Xi + 2, Xj) - arr(Yi + 1, Yj)) / (arr(Mi + 2, Mj) + arr(Ni + 1, Nj)), 4) = 19.7599 Then

Cells(i, "J").Resize(1, 8) = Array(Chr(64 + Xj) & Xi, Chr(64 + Yj) & Yi, Chr(64 + Mj) & Mi, Chr(64 + Nj) & Ni)
i = i + 1
End If
End If
End If
Next Nj, Ni, Mj, Mi, Yj, Yi, Xj, Xi
End Sub

大灰狼1976

用你的数据举个例子，E10-E9，用变量表示时，Xi=10、Xj=9，现在你的Xi变量是能循环到10了，但是Xj变量只循环到5为止，所以得不到你要的结果，其他也没细看，你再确认一下。

petergaod

If Round((arr(Xi + 2, Xj) - arr(Yi + 2, Yj)) / (arr(Mi + 2, Mj) + arr(Ni + 2, Nj)), 4) = 19.7599 Then

kangfshine

把代码改了一下，测试结果如图貌似每个单元格都会被取到，每个数都各有50种可能 。50*50*50*50=625,0000  。居然有6百万种可能.
可是得不到预想的结果，难道是round函数的问题，请高手帮忙指导一下

Sub BB()
Dim arr, Xi, Xj, Yi, Yj, Mi, Mj, Ni, Nj, i
arr = Range("A1:E12")
i = 2
For Xi = 1 To 10
For Xj = 1 To 5
For Yi = 1 To 10
For Yj = 1 To 5
For Mi = 1 To 10
For Mj = 1 To 5
For Ni = 1 To 10
For Nj = 1 To 5

Cells(i, "J").Resize(1, 8) = Array(Chr(64 + Xj) & Xi, Chr(64 + Yj) & Yi, Chr(64 + Mj) & Mi, Chr(64 + Nj) & Ni)
i = i + 1
Next Nj
Next Ni
Next Mj
Next Mi
Next Yj
Next Yi
Next Xj
Next Xi
End Sub