Excel VBA：對象“ _Global”的范圍失敗錯誤

Question

我正在嘗試執行以下代碼以在Excel中將列從一個表復制到另一個表

Sub CopyData()
'
' CopyData Macro
'

'
    If Application.WorksheetFunction.CountA(Range("Table13[@Budget_Line_Id]")) <> 0 _
    Then Range("Table13[@Budget_Line_Id]").Delete

    'Select desired column to copy with destination option
    Range("Table1[[@Budget_Line_Id]]").Copy _
    Destination:=Range("Table13[[@Budget_Line_Id]]")
End Sub

我在第一行得到對象“ _Global”失敗的方法范圍錯誤

任何人都可以幫助解決這個問題

Answer 1

@引用當前行，如果當前活動單元格在表的上方或下方，則會導致錯誤。

Sub CopyData()
    If [CountA(Table13[Budget_Line_Id])] Then
        [Table1[Budget_Line_Id]].Copy [Table13[Budget_Line_Id]]
    End If
End Sub

https://msdn.microsoft.com/en-us/vba/excel-vba/articles/application-evaluate-method-excel