主题：代码简化思路求助

坐标1-19  当上一个值为零=下一个不为零的数据

Dim r As Row = Tables("表A").Current
If r("冲孔坐标1")=0 Then
If r("冲孔坐标2")>0 Then
r("冲孔坐标1")= r("冲孔坐标2")
ElseIf r("冲孔坐标3")>0 Then
r("冲孔坐标1")= r("冲孔坐标3")
ElseIf r("冲孔坐标4")>0 Then
r("冲孔坐标1")= r("冲孔坐标4")
ElseIf r("冲孔坐标5")>0 Then
r("冲孔坐标1")= r("冲孔坐标5")
ElseIf r("冲孔坐标6")>0 Then
r("冲孔坐标1")= r("冲孔坐标6")
ElseIf r("冲孔坐标7")>0 Then
r("冲孔坐标1")= r("冲孔坐标7")
ElseIf r("冲孔坐标8")>0 Then
r("冲孔坐标1")= r("冲孔坐标8")
ElseIf r("冲孔坐标9")>0 Then
r("冲孔坐标1")= r("冲孔坐标9")
ElseIf r("冲孔坐标10")>0 Then
r("冲孔坐标1")= r("冲孔坐标10")
ElseIf r("冲孔坐标11")>0 Then
r("冲孔坐标1")= r("冲孔坐标11")
ElseIf r("冲孔坐标12")>0 Then
r("冲孔坐标1")= r("冲孔坐标12")
ElseIf r("冲孔坐标13")>0 Then
r("冲孔坐标1")= r("冲孔坐标13")
ElseIf r("冲孔坐标14")>0 Then
r("冲孔坐标1")= r("冲孔坐标14")
ElseIf r("冲孔坐标15")>0 Then
r("冲孔坐标1")= r("冲孔坐标15")
ElseIf r("冲孔坐标16")>0 Then
r("冲孔坐标1")= r("冲孔坐标16")
ElseIf r("冲孔坐标17")>0 Then
r("冲孔坐标1")= r("冲孔坐标17")
ElseIf r("冲孔坐标18")>0 Then
r("冲孔坐标1")= r("冲孔坐标18")
ElseIf r("冲孔坐标19")>0 Then
r("冲孔坐标1")= r("冲孔坐标19")
End If
End If
If r("冲孔坐标2")=0 Then
If r("冲孔坐标3")>0 Then
r("冲孔坐标2")= r("冲孔坐标3")
ElseIf r("冲孔坐标4")>0 Then
r("冲孔坐标2")= r("冲孔坐标4")
ElseIf r("冲孔坐标5")>0 Then
r("冲孔坐标2")= r("冲孔坐标5")
ElseIf r("冲孔坐标6")>0 Then
r("冲孔坐标2")= r("冲孔坐标6")
ElseIf r("冲孔坐标7")>0 Then
r("冲孔坐标2")= r("冲孔坐标7")
ElseIf r("冲孔坐标8")>0 Then
r("冲孔坐标2")= r("冲孔坐标8")
ElseIf r("冲孔坐标9")>0 Then
r("冲孔坐标2")= r("冲孔坐标9")
ElseIf r("冲孔坐标10")>0 Then
r("冲孔坐标2")= r("冲孔坐标10")
ElseIf r("冲孔坐标11")>0 Then
r("冲孔坐标2")= r("冲孔坐标11")
ElseIf r("冲孔坐标12")>0 Then
r("冲孔坐标2")= r("冲孔坐标12")
ElseIf r("冲孔坐标13")>0 Then
r("冲孔坐标2")= r("冲孔坐标13")
ElseIf r("冲孔坐标14")>0 Then
r("冲孔坐标2")= r("冲孔坐标14")
ElseIf r("冲孔坐标15")>0 Then
r("冲孔坐标2")= r("冲孔坐标15")
ElseIf r("冲孔坐标16")>0 Then
r("冲孔坐标2")= r("冲孔坐标16")
ElseIf r("冲孔坐标17")>0 Then
r("冲孔坐标2")= r("冲孔坐标17")
ElseIf r("冲孔坐标18")>0 Then
r("冲孔坐标2")= r("冲孔坐标18")
ElseIf r("冲孔坐标19")>0 Then
r("冲孔坐标2")= r("冲孔坐标19")
End If
End If

.......  共19组

此主题相关图片如下：dingtalk_20240110145904.jpg