Excel Vba：子或函數未定義

Question

我有以下代碼

Sub CopyMacro()
'
' CopyData Macro
'
    Dim tableName As ListObject
    Set tableName = Worksheets("ToCopySheet").ListObjects(1)
    ListObjects("Table1").ListColumns("TaskUID").DataBodyRange.Copy tableName.ListColumns("TaskUID").DataBodyRange

End Sub

當我嘗試運行此程序時，出現編譯錯誤。 子或功能未定義。 我在這里不明白這個問題，因為我沒有發現此語法有任何錯誤。

我要完成的事情是將一列從一個表復制到另一張表中的另一個表列（ToCopySheet）。

有人可以幫助解決此錯誤

Answer 1

也許你是說

Sub CopyMacro()
'
' CopyData Macro
'
    Dim tableName As ListObject
    Set tableName = Worksheets("ToCopySheet").ListObjects(1)

    Dim ws As Worksheet
    Set ws = ActiveSheet
    ws.ListObjects("Table1").ListColumns("TaskUID").DataBodyRange.Copy tableName.ListColumns("TaskUID").DataBodyRange

End Sub