Sub 合并相除()
arr = Range("c3:f19")
For i = 1 To UBound(arr)
If arr(i, 1) = 0 Then arr(i, 1) = arr(i - 1, 1)
If arr(i, 3) = 0 Then arr(i, 3) = arr(i - 1, 3)
arr(i, 4) = arr(i, 3) / arr(i, 1)
Next i
Range("c3:f19") = arr
End Sub
Sub 合并相除()
arr = Range("c3:f19")
For i = 1 To UBound(arr)
If arr(i, 1) = 0 Then arr(i, 1) = arr(i - 1, 1)
If arr(i, 3) = 0 Then arr(i, 3) = arr(i - 1, 3)
arr(i, 4) = arr(i, 3) / arr(i, 1)
Next i
Range("c3:f19") = arr
End Sub