代码报错，帮忙看一下什么原因如何修改

任雨听风

Sub 非标件计算()
    For r = 9 To Cells(Rows.Count, 4).End(3).Row
         mark = Split("x,X,*", ",") '分割标志任意添加
               arr = Right(Cells(r, 5), Len(Cells(r, 5)) - 1)
                For i = 0 To UBound(mark)
                arr = Replace(arr, mark(i), Space(1))
                Next i
        arr = Split(arr)
           If Cells(r, 18) = "非标" And Cells(r, 4) = "矩形管" Then
           Cells(r, 6) = (Val(arr(0)) + Val(arr(1))) * 2 * Val(arr(2)) * 0.00785
           Cells(r, 16) = (Val(arr(0)) + Val(arr(1))) * 2 / 1000
           Else
           If Cells(r, 18) = "非标" And Cells(r, 4) = "Z型钢" Then
           Cells(r, 6) = Val(arr(0))
           Cells(r, 16) = (Val(arr(0)) + Val(arr(1)))
        End If
        End If
     Next r
End Sub
这个一运行就会报错5‘，但是如果我把它改成arr = Cells(r, 5)就没有这个问题，请问以下是什么原因我应该如何修改

rysxing

Right()和Len()参数类型是字符串，不应该是单元格

任雨听风

rysxing 发表于 2024-7-18 18:25
Right()和Len()参数类型是字符串，不应该是单元格

他是运行到这个表的空白单元格的时候会报错，点击报错结束他还是会计算出数值

Again123456

任雨听风 发表于 2024-7-18 19:23
他是运行到这个表的空白单元格的时候会报错，点击报错结束他还是会计算出数值

当空白的时候，right(string,-1)不就报错了么？

rysxing

任雨听风 发表于 2024-7-18 19:23
他是运行到这个表的空白单元格的时候会报错，点击报错结束他还是会计算出数值

那就不知道了，VB确实不懂。。