下标超出范围

Question

我正在尝试将值从一个工作簿复制到另一个工作簿，以获得可变数量的行，由＆＃34;结束＆＃34;变量。问题是，我在Do While循环的第一行得到了一个超出范围错误的下标。我已经尝试将Range更改为许多不同的值，包括静态值（例如＆＃34; A23和＃34;）无济于事。我还能尝试什么？

i = 1
    If Not i = ending Then
        Do
            Worksheets("wsS2").Range("A" & 23 + i).copy
            Worksheets("wsS1").Range ("A" & 15 + i)
            i = i + 1
        Loop While Not i = ending
    End If

Answer 1

  

如果wsS2是变量，请删除引号。对于wsS1也是如此。 - 共产国际

删除引号就可以了！