[已解决]请教如何得到这个结果

songdg · 发表于 2016-7-16 13:37

http://pan.baidu.com/s/1qYQrfTq
T列的结果是我想要的，由于上存不了附件，所以我把它放在网盘里。

最佳答案

wanao2008

2016-7-17 22:26

得到的数值和你的有点小小出入，请测试：

Sub wanao()
Dim x As Integer, y As Integer, S1 As Integer, S2 As Integer, jiShu As Integer
S1 = 14
S2 = 19
For x = 2 To 12
jiShu = 0
For y = 8 To 3 Step -1
If Cells(x, y) <> "" Then
jiShu = jiShu + 1
Cells(x, S1 - jiShu) = Cells(x, y)
If jiShu = 1 Then
Cells(x, S2 - jiShu) = 100
Else
Cells(x, S2 - jiShu) = 100 / Cells(x, "m") * Cells(x, S1 - jiShu)
End If
End If
If jiShu = 4 Then
Cells(x, "t") = Abs(Cells(x, "r") - Cells(x, "q")) + Abs(Cells(x, "q") - Cells(x, "p")) + Abs(Cells(x, "p") - Cells(x, "o"))
Exit For
End If
Next
Next
End Sub

复制代码

wanao2008 · 发表于 2016-7-17 22:26

得到的数值和你的有点小小出入，请测试：

Sub wanao()
Dim x As Integer, y As Integer, S1 As Integer, S2 As Integer, jiShu As Integer
S1 = 14
S2 = 19
For x = 2 To 12
jiShu = 0
For y = 8 To 3 Step -1
If Cells(x, y) <> "" Then
jiShu = jiShu + 1
Cells(x, S1 - jiShu) = Cells(x, y)
If jiShu = 1 Then
Cells(x, S2 - jiShu) = 100
Else
Cells(x, S2 - jiShu) = 100 / Cells(x, "m") * Cells(x, S1 - jiShu)
End If
End If
If jiShu = 4 Then
Cells(x, "t") = Abs(Cells(x, "r") - Cells(x, "q")) + Abs(Cells(x, "q") - Cells(x, "p")) + Abs(Cells(x, "p") - Cells(x, "o"))
Exit For
End If
Next
Next
End Sub

复制代码

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