0

我在使用范围对象的 End 方法时遇到错误。

下面的代码是我程序的摘录，当我到达最后一行时，出现以下错误：“应用程序定义或对象定义错误”

Sub DataGroup(testCell, j, k)
    Dim archive As Range
    Set dataCellsA = Worksheets("DATA").Range("B2")
    Set dataCellsB = Worksheets("DATA").Range("I2")
    For i = 0 To 30
        Set currentLine = testCell.Offset(i, 0)
        Set archive = Worksheets("ARCHIVE").Range("B4").End(x1Down)

但是，在我的程序的后面部分，我有似乎是相同的实现，但我没有收到这部分的任何错误。

    Set dataCellsA = Worksheets("DATA").Range("C2")
    Set dataCellsB = Worksheets("DATA").Range("J2")

    Dim lastCellA As Range
    Dim lastCellB As Range

    Set lastCellA = dataCellsA.End(xlDown)
    Set lastCellB = dataCellsB.End(xlDown)

两者有什么区别？我确保将我的变量声明为范围，并且我小心使用“Set”前缀来确保它是一个对象，而不是值。

4

1 回答 1

2

所以，这就是答案：你有x1Down你应该有的地方xlDown（1 而不是 l）

于 2013-03-26T22:21:00.567 回答