在R1C1公式中包含變量

Question

該代碼檢索已過濾數據的數量 - RelCov。然後計算RelCov組中的「魔杖」數量。 R1C1公式比較上週RelCov的週數，並將差異返回爲「更多」，「更少」或「與上週相同」，然後在該公式末尾添加「魔杖數量」 「那是RelCov。每當我在公式中包含&魔杖時，我都會收到「NAME」錯誤。這是我有：

Windows("usertemp.xls").Activate 
    Sheets("Sheet1").Select 
    Dim RelCov As Integer 
    RelCov = Application.CountIf(Range("ah:ah"), "Relevant Covered") 
    ActiveSheet.Range("$A$1:$AO$18690").AutoFilter Field:=34, Criteria1:="Relevant Covered" 
    Dim wands As Integer 
    wands = Application.CountIf(Range("b:b"), "WAND*") 
' MsgBox wands 
    Windows("User File Analysis test.xlsm").Activate 
    Sheets("Sheet1").Select 
    Range("ReleventCovered").Select 
    ActiveCell = RelCov '& Chr(10) & wands & " wands" 
    ActiveCell.Offset(rowOffset:=0, columnOffset:=1).Activate 
    ActiveCell.FormulaR1C1 = "=if(rc[-1]<r[-1]c[-1],r[-1]c[-1]-rc[-1]&"" less"",if(rc[-1]>r[-1]c[-1],rc[-1]-r[-1]c[-1]&"" More"","" same as last week""))& "" wands = """ 

當我包括&魔杖&後「」魔棒=「」在公式的結尾，我得到一個「名稱」的錯誤。如何在論壇結尾包含「魔杖」變量以獲取錯誤？

Answer 1

你可以使用：

ActiveCell.FormulaR1C1 = "=CONCATENATE(IF(RC[-1]<R[-1]C[-1],R[-1]C[-1]-RC[-1] &"" less"", IF(RC[-1]>R[-1]C[-1],RC[-1]-R[-1]C[-1]&"" More"","" same as last week"")), "" wands = ""," & RelCov & ")"