对象“_Worksheet”的方法“范围”失败
我试图使用下面的代码通过从另一个表中获取数据来生成数据。 我一直在做与VBA类似的事情一段时间，直到现在还没有遇到这个问题。 我已经通过相同的错误看了不less其他问题，但没有find我所需要的。
我的代码开始崩溃只有消息“400”，所以我添加了一个错误汉德，现在得到的消息：
对象“_Worksheet”的方法“范围”失败。
我的代码（在“买家”页面上）：
Public Sub MakeSheets(Optional ByVal SortSource As Boolean = False, Optional ByVal ExportSheets As Boolean = False) On Error GoTo ErrorMsg Dim r, n As Integer 'for looping through [r]ows and iterating [n]ew lines added to sheets If SortSource Then 'This code never executes because I'm only using the default boolean values so far Sheets("Buyers").UsedRange.Sort key1:=FullRange("NAME"), Header:=xlYes Sheets("Properties").UsedRange.Sort key1:=Sheets("Properties").FullRange("STREET NAME"), key2:=Sheets("Properties").FullRange("NUMBER"), Header:=xlYes End If Sheets("Ownership").Rows("3:" & Sheets("Ownership").UsedRange.Rows.Count).Delete n = 2 'last title row of target worksheet With Sheets("Properties") MsgBox .Cells(3, .FullRange("STREET NAME").Column).Value 'Successfully displays the appropriate cell value For r = 2 To .PropertyRows() If Not IsEmpty(.Cells(r, .FullRange("OWNER").Column).Value) Then n = n + 1 MsgBox n 'displays "3", confirming this point is successfully reached once. 'Problem appears to be next line Sheets("Ownership").Range("A" & n & ":L" & n).Value = Array( _ .Cells(r, .FullRange("MLS#").Column).Value, _ .Cells(r, .FullRange("LIST PRICE").Column).Value, _ .Cells(r, .FullRange("NUMBER").Column).Value & " " & .Cells(r, .FullRange("STREET NAME").Column).Value, _ .Cells(r, .FullRange("OWNER").Column).Value & " " & .Cells(r, .FullRange("OWNED").Column).Value, _ .Cells(r, .FullRange("SUBDIVISION").Column).Value, _ .Cells(r, .FullRange("COUNTY").Column).Value, _ .Cells(r, .FullRange("BED").Column).Value, _ .Cells(r, .FullRange("BATH").Column).Value, _ .Cells(r, .FullRange("YEAR BUILT").Column).Value, _ .Cells(r, .FullRange("TAXES").Column).Value, _ .Cells(r, .FullRange("TAX YEAR").Column).Value, _ .Cells(r, .FullRange("ACQUISITION DATE").Column).Value) End If Next r End With Exit Sub ErrorMsg: MsgBox Err.Description End Sub 如果需要，我可以发布FullRange的代码，但是它调用了其他一些自定义函数，我认为MsgBox I在循环开始之前投入了巧妙的certificate，这不是问题。 （在“买家”和“属性”中都有一个公开的FullRange函数，每个函数都引用自己的表单，两个表单中的代码在其他地方被广泛使用，没有问题）。
我也尝试完全删除With块，以防造成一些奇怪的冲突，但结果是相同的。
事实certificate，在Excel或者我的电脑的引擎下有可怕的事情发生了。 在发布之前，我已经退出并重新打开了Excel，但后来我开始出现一些古怪的行为（例如macros从运行macros菜单中消失），所以我重新启动了整个机器。 我原来的代码现在工作正常。 谢谢你和我一起看