как использовать, с активным cell.offset 0, -1 и добавить слово к существующему значению

Question

Я пытаюсь сделать, с активной ячейкой смещения на 1 ячейку влево и добавить слово в конец этого существующего текста. Я получаю сообщение об ошибке 91 «Переменная объекта или переменная блока не установлена».

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, потому что вы можете просто ссылаться на ActiveCell, используя оператор with, который у вас уже есть, например:

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