如何使用，使用 active cell.offset 0,-1 并向现有值添加一个词

Question

我正在尝试这样做，活动单元格向左偏移 1 个单元格，并在现有文本的末尾添加一个词。我收到错误 91 "object variable or with block variable not set."

Option Explicit

Sub ADD_OPD()

    Dim CELL As Range

    With ActiveCell
        CELL.Offset(0, -1) = CELL.Offset(0, -1).Text & "-" & "OPD"
    End With

End Sub

Answer 1

您收到对象错误，因为 Range.text 是只读的属性。更改为 Range.value 应该可以解决部分问题。

另一个问题是您没有设置您创建的 CELL 范围的值。但是，您可以直接丢弃 CELL 对象，因为您可以使用已有的 with 语句引用 ActiveCell，如下所示：

Sub ADD_OPD()
    With ActiveCell
        .Offset(0, -1).Value = .Offset(0, -1).Value & "-" & "OPD"
    End With
End Sub

如何使用，使用 active cell.offset 0,-1 并向现有值添加一个词

how to use, with active cell.offset 0,-1 and add a word to existing value

excel

vba

offset