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

Question

我正在尝试使用 VBA 在工作表“工作表”中找到可变数量的列中的“分配测试”工作表中的单元格。代码保存在 Module1 中。

我在 .Range 行出现错误。我究竟做错了什么？

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

标签： vbaerror-handlingrangecells