运行时错误9，超出范围，错误438，错误1009

Question

我的excel VBA代码一直给我错误。几天前我运行了很多代码。现在我正在研究新代码，它无法正常工作！

它给我的一些错误包括

Run time error 9, out of range
error 438
error 1009

我觉得有些不对劲，这与代码

不一定有关

Sub GetTickers1()

    WS = Workbooks("Ticker Symbols for Rodman and Renshaw Conference 2015").Worksheets("Sheet1")

    Dim i As Integer

    For i = 2 To i = 254 Step 1



    WS.Cells(i, 2) = Left(Right("" + WS.Cells(i, 1), 5), 4)

    Next i

End Sub

Answer 1

您需要在第一行中使用设置。