vba - excel vba 请检查此代码是否无法正常工作

Question

我收到此错误消息：

编译错误 End If 没有阻塞 if

在最后一个 End If 指令中

请您与我分享您的答案。

比你提前。我真的很感谢你的帮助。

            If rompeControl = "" Then
            rompeControl = sheet_E.Range("H" & nf).Value
            wkFecha = sheet_E.Range("G" & nf).Value
            wkRuc = sheet_E.Range("J" & nf).Value
            If (sheet_E.Range("J" & nf) > "90000000") Then nc = 99
            Else
            sheet_E.Range("R" & nf) = Len(sheet_E.Range("J" & nf))
            nc = sheet_E.Range("R" & nf).Value
            End If

            wkLocal = sheet_E.Range("N" & nf).Value
            wkDebito = 0#
            wkCredito = 0#
            wkDebitoT = 0#
            wkCreditoT = 0#
            wkTipoId = "04"
            wkTipoDoc = "18"
        End If

Answer 1

它应该是：

 If (sheet_E.Range("J" & nf) > "90000000") Then 
     nc = 99
 Else
     sheet_E.Range("R" & nf) = Len(sheet_E.Range("J" & nf))
     nc = sheet_E.Range("R" & nf).Value
 End If

If (sheet_E.Range("J" & nf) > "90000000") Then nc = 99只有在没有 else 的情况下才可以这样说。