在特定單元格中開始計數器循環並在特定單元格中結束

Question

我正在嘗試創建一個以Range（A9）開始並以Range（A38）max結尾的循環計數器。 “ A9”上方和“ A38”下方的單元格均帶有文本，並且是鎖定的單元格。 我在該站點上找到了一些代碼，並試圖對其進行修改以滿足我的需要，但是我遇到了一個錯誤（“運行時錯誤'91'：對象變量或未設置塊變量”）。 不知道那是什么意思。 這是我的下面的代碼。

Private Sub cmdsGO_Click()
Dim myWrkBk As Workbook
Dim mySheet As Worksheet
Dim startCell As Range
Dim lastRow As Range
Dim i As Long

Set myWrkBk = ActiveWorkbook
Set mySheet = myWrkBk.Sheets("Sheet1")
Set startCell = Range("'Sheet1'! A9")

lastRow = Range("'Sheet1'!A38") 

While i <= lastRow
   i = i + 1
Wend    
End Sub

我正在使用命令按鈕開始循環。 Range（“ A9”）到Range（“ A38”）是30個數字。 因此，計數器當然應該從1開始到30結束，但不是。 謝謝。

我發現此代碼的原始位置是： 循環從一個單元格開始，然后刪除該列中的下一個600

Answer 1

嘗試數據系列。

Option Explicit

Private Sub cmdsGO_Click()
    Dim myWrkBk As Workbook
    Dim mySheet As Worksheet

    Set myWrkBk = ActiveWorkbook
    Set mySheet = myWrkBk.Sheets("Sheet1")
    With mySheet
        .Cells(9, "A") = 1
        .Range(.Cells(9, "A"), .Cells(38, "A")).DataSeries Rowcol:=xlColumns, Type:=xlLinear, Step:=1
    End With
End Sub

由於范圍對象（例如lastRow）首先從Range（“ Sheet1'！A38”）中分配了一個值，而不是被設置為范圍對象，然后在For Next循環中用作整數，因此您自己的代碼無法正常工作。