Vba 应用程序定义或对象定义的范围和单元格错误

我正在尝试使用VBA更新工作表“分配测试”中的单元格，这些单元格的列数可变，可以在工作表“工作表”中找到。代码保存在模块1中

我的射程线出错了。我做错了什么

Sub resetDoors()
Dim TotalDoorsR As Integer
Dim rr As Integer

TotalDoorsR = ThisWorkbook.Sheets("Worksheet").Range("C14").Value

For rr = 0 To TotalDoorsR
    With ThisWorkbook.Sheets("Allocation TEST")
        .Range(.Cells(4, rr * 2), .Cells(18, rr * 2)).Value = "EMPTY"
    End With
    Next

On Error Resume Next

End Sub

---

当

rr

为零时，那么

rr*2

仍然为零，并且没有列零…它应该是第一列填充为“空”的？哦，我应该捕捉到了。我修正了rr=1到#。应该是B栏，谢谢！