Ошибка PasteSpecial при вырезании вместо копирования

Question

У меня есть «календарь», и иногда у меня есть «задачи» (с комментариями), которые я хочу перенести на другую дату в календаре. Я могу сделать это успешно (сохраняя комментарий), но затем я должен вернуться и удалить исходное местоположение. Когда я пытаюсь сделать следующее с помощью ctrl-x вместо ctrl-c, я получаю ошибку PasteSpecial method of range class failed при первом вызове PasteSpecial

Sub PasteasValue()

    Application.EnableEvents = False

    Selection.PasteSpecial xlPasteComments
    Selection.PasteSpecial Paste:=xlPasteValues

    Call ShapeThem(Selection)

    Application.EnableEvents = True


End Sub

Я не уверен, что принципиально отличается, когда я режу и копирую.

Answer 1

Специальная вставка работает только с копией, а не с обрезкой. Вы также не можете сделать это вручную.

Если вы закомментируете первый Paste Special, второй тоже не удастся.