Код VBA удаляет формулу из ячеек после команды копирования и вставки

Question

У меня есть следующий код, который работает так, как я и ожидал, копирует мою строку данных и вставляет в новую строку.

Затем он очищает данные из исходной строки, готовые для следующий ввод.

Единственная проблема заключается в том, что он удаляет все мои формулы, хотя я указал, какие ячейки должны быть очищены в моем коде.

Sub CopyPaste()

Range("A9:Q9").Copy

Sheets("Raw data").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues

 Range("A9:Q9").Select
    Range("Q9").Activate
    
    Selection.ClearContents
    Range("A9").Select
    Selection.ClearContents
    Range("B9").Select
    Selection.ClearContents
    Range("L9").Select
    Selection.ClearContents
    Range("M9").Select
    Selection.ClearContents
    Range("P9").Select
    ActiveWindow.ScrollColumn = 2
    Range("A9").Select
   
End Sub

Вероятно, что-то смехотворно очевидное.

Answer 1

Range.Activate не то же самое, что Range.Select, но вы не должны делать ни из них; замените

Range("A9:Q9").Select
    Range("Q9").Activate
    
    Selection.ClearContents
    Range("A9").Select
    Selection.ClearContents
    Range("B9").Select
    Selection.ClearContents
    Range("L9").Select
    Selection.ClearContents
    Range("M9").Select
    Selection.ClearContents
    Range("P9").Select
    ActiveWindow.ScrollColumn = 2
    Range("A9").Select

на

   Range("Q9").ClearContents
   Range("A9").ClearContents
   Range("B9").ClearContents
   ... and so on

См. Как избежать использования Select для подробного обсуждения того, как улучшить ваш код.

Answer 2

Вы говорите ему вставлять значения ... не формулы.

Попробуйте использовать xlPasteAll вместо xlPasteValues ​​