.Formula产生运行时错误1004-适用于所有其他字符串

Question

一切正常，除了kcFormula的最后一个.Formula 。 它返回1004 Runtime Application error 。 我在想也许我将kcFormula声明为字符串，并且太大了，或者我不知道我在做什么：D

这是问题陈述：

Sheets("AML").Range(myRNG).Formula = kcFormula

Sub SharePoint_FormatADDcolS()
Dim myRNG As String
Dim lastROW As Integer
Dim matchFormula As String
Dim kcFormula As String
matchFormula = "=IF(ISNA(Table3[[#This Row],[Status]]=Table3[[#This Row],[Last Status]]),"
matchFormula = matchFormula & """ Status Changed"""
matchFormula = matchFormula & "," & "IF(Table3[[#This Row],[Status]]<>Table3[[#This Row],[Last Status]],"
matchFormula = matchFormula & """ Status Changed""" & "," & """Status Unchanged""" & "))"
kcFormula = "=IF(OR(Table3[[#This Row],[Status]]=" & """Rejected""" & "," & "Table3[[#This Row],[Status]] =" & """Completed""" & "," & "Table3[[#This Row],[Status]]=" & """Not Implemented""" & ")," & """ """ & ",INDEX('AMLLAST'!$1:$1048576,MATCH(Table3[[#This Row],[ID]],'AMLLAST'!$E:$E,0),11)"
lastROW = ActiveSheet.UsedRange.Rows.Count

    With Sheets("AML")
        .ListObjects(1).Name = "Table3"
    End With
Sheets("AML (2)").Name = "AMLLAST"

    With Sheets("AML")
                Range("J1").Select
                Range(Selection, Selection.End(xlDown)).Select
                Selection.Copy
                Range("J1").Select
                ActiveSheet.PasteSpecial Format:=3, Link:=1, DisplayAsIcon:=False, _
                IconFileName:=False
            Sheets("AML").Range("C1").EntireColumn.Insert
            Sheets("AML").Range("C1").EntireColumn.Insert
            Sheets("AML").Range("C1") = "Last Status"
            Sheets("AML").Range("D1") = "Match"
            Sheets("AML").Range("K1").EntireColumn.Insert
            Sheets("AML").Range("K1") = "BITOOL - Rating"

        myRNG = "C2:" & "C" & lastROW
                Sheets("AML").Range(myRNG).NumberFormat = "General"
                Sheets("AML").Range(myRNG).Formula = "=INDEX('AMLLAST'!$1:$1048576,MATCH(Table3[[#This Row],[ID]],'AMLLAST'!$E:$E,0),2)"
        myRNG = "D2:" & "D" & lastROW
                Sheets("AML").Range(myRNG).NumberFormat = "General"
                Sheets("AML").Range(myRNG).Formula = matchFormula
        myRNG = "K2:" & "K" & lastROW
                Sheets("AML").Range(myRNG).NumberFormat = "General"
                Sheets("AML").Range(myRNG).Formula = kcFormula

    End With
End Sub

Answer 1

您最后缺少括号.....我尚未在excel中对其进行测试，但是我想这就是问题所在。

请注意，对于此类问题，解决这些问题的最简单方法是debug.print公式，然后将其粘贴到实际单元格中。 这样，Excel将为您提供更清晰的错误消息，您可以解决该错误消息。

Answer 2

您可以通过消除所有串联来提高最后一条语句的可读性：

kcFormula = "=IF(
               OR(Table3[[#This Row],[Status]] = ""Rejected"",
                  Table3[[#This Row],[Status]] = ""Completed"",
                  Table3[[#This Row],[Status]] = ""Not Implemented""
                 ),
              "" "",
              INDEX('AMLLAST'!$1:$1048576,
                    MATCH(Table3[[#This Row],[ID]],'AMLLAST'!$E:$E,0
                         )
                   ,11
                   )"
                 )  <---- this guy is missing! (put him inside the closing " mark

另外，在键入那些深层嵌入的复杂IF语句时，我通常将它们粘贴到记事本中，并将它们分成多行。 当您执行此操作时，您会注意到您缺少OpiesDad指出的最后一个) 。

给他这个解决方案的功劳，我只想指出一些技巧，以解决那些无法在评论中找到问题的问题。