Question

我无法解决这个问题。之前我遇到过类似的问题，原来我使用的是单个单元格的范围，这是多余的。但在这种情况下，我需要End（xlDown），我无法让它工作。我尝试了一些组合，我无法弄清楚正确的语法。帮助

Public Exceptions As Range
Public Xcept As Range

Sub Example()
Static ExcSh As Worksheet
Set ExcSh = Worksheets("ComboExceptions")
Set Exceptions = ExcSh.Range("A2")

Set Xcept = ExcSh.Range(Exceptions.Offset(1).Cells, Exceptions.Offset(1).Cells.End(xlDown))
'This is where the error happens ^
End Sub

Answer 1

解决了！我已宣布

Static ExcSh As Worksheet

在另一个Sub中使得错误的函数无法访问。我公开了，现在以下命令工作正常：

Set Xcept = ExcSh.Range(Exceptions.Offset(1), Exceptions.Offset(1).End(xlDown))

Excel VBA：运行时错误424，对象必需

1 个答案: