Question

我编写了这个示例代码来重新定义错误：

Sub test()

Dim rng As Range
Dim cell As Range

Set rng = ThisWorkbook.Worksheets(1).Range("C1:C3")

For Each cell In rng
    If cell.Value2 = cell.Offset(-1, 0).Value2 Then
    cell.Offset(1, 0) = "TRUE"
    End If
Next cell

End Sub

在If cell.Value = cell.Offset(-1, 0).Value2行中，我得到Application or Object defined error，但我不明白为什么。通常，如果B1具有相同的值，则应检查C1。也许我只是瞎了。谁能告诉我为什么这不起作用？

Answer 1

Range对象的

Offset属性具有参数的顺序：Offset(RowOffset, ColumnOffset)，您的代码引用不存在的单元格C0，尝试{{1 }}

使用offset获取应用程序或对象定义的错误

1 个答案: