VBA错误消息 - 方法＆＃39;范围＆＃39;对象_Global＆＃39;失败

Question

我有一个代码，我正在接收一个＆＃34;＆＃39;范围＆＃39;对象_Global＆＃39;失败＆＃34;错误，我希望有人可以帮助解决原因。我已经在网上看了一切似乎都建议我需要具体说明代码所指的哪个表单，我已经使用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

中的句号

此外，这假设这两个范围在表格表上，否则代码将失败。