麻烦帮忙看看这段代码该怎么写IF判断语法错误

抹不去の回忆

Sub pzyc() '频次异常核算
  Dim arr, b
    arr = Sheets("采购计划表").Cells(1, 1).CurrentRegion
  
        For i = 2 To UBound(arr)
            If arr(i, 18) <> "" And arr(i, 16) > 0 Then
                 Cells(i, 21) =  if (arr(i, 18) / arr(i, 16) > 5,"异常","")
            End If
    Next
         
      
End Sub

标红色部分是我想做的一个判断，当i行18列/i行16列大于5返回异常否则为空，直接用IF判断提示语法错误，用函数调用也提示错误，搞不明白了，请大神帮忙指导一下。

fanyoulin

把 if 改成 iif 应该就对了；

抹不去の回忆

fanyoulin 发表于 2023-7-21 16:25
把 if 改成 iif 应该就对了；

完美解决，感谢大神指导

抹不去の回忆

fanyoulin 发表于 2023-7-21 16:25
把 if 改成 iif 应该就对了；

这样写是对了，运算量貌似加大了，有没有更好的写法，我后面还有几个类似的代码要写，这种写法太卡了

fanyoulin

抹不去の回忆 发表于 2023-7-21 16:31
这样写是对了，运算量貌似加大了，有没有更好的写法，我后面还有几个类似的代码要写，这种写法太卡了

iif应该就是 if else 的意思，速度我估计不慢，或者你改用 if else 来比较下差异?

fanyoulin

抹不去の回忆 发表于 2023-7-21 16:31
这样写是对了，运算量貌似加大了，有没有更好的写法，我后面还有几个类似的代码要写，这种写法太卡了

我看到别人说, iif 比 if else慢，那你就改成 if else 吧；

抹不去の回忆

fanyoulin 发表于 2023-7-21 16:46
我看到别人说, iif 比 if else慢，那你就改成 if else 吧；

能帮我改一下吗，我试着写了一下，出错了

fanyoulin

抹不去の回忆 发表于 2023-7-21 16:58
能帮我改一下吗，我试着写了一下，出错了

把 iif 拆分成两个部分就行了，看截图：

抹不去の回忆

fanyoulin 发表于 2023-7-21 17:05
把 iif 拆分成两个部分就行了，看截图：

脑子转不过弯来了，这下明白了，感谢，又跟你长知识了