VBA錯誤消息-對象_Global的方法“范圍”失敗

Question

我有一個代碼，在其中收到“對象_Global'失敗的'范圍'”錯誤，並且希望有人可以提供幫助。 我在網上查看，似乎所有內容都建議我需要具體說明代碼所指的工作表，以及使用With和End With完成的工作。 請在下面查看我的代碼；

With ThisWorkbook.Worksheets("Tables")
Range(StartingPoint, EndPoint).Copy
End With

但是，它似乎不起作用。 該代碼上方指定的變量如下：

Dim ws7 As Worksheet
Set ws7 = ActiveSheet

Dim StartingPoint As Range
Dim EndPoint As Range
Set StartingPoint = Sheets("Tables").Range("C58:R58").Find(ws7.Range("C3"))
If Not StartingPoint Is Nothing Then
Set EndPoint = StartingPoint.Offset(10, 0)
End If 

任何幫助和/或有用的閱讀材料將不勝感激。

謝謝。

Answer 1

您的With語句當前未執行任何操作，因為您尚未限定Range調用-它必須為：

With ThisWorkbook.Worksheets("Tables")
.Range(StartingPoint, EndPoint).Copy
End With

注意句號中的.Range

另外，這還假定這兩個范圍在“表”表中，否則代碼將失敗。