ClearContents для констант, но не для формул

Question

У меня есть диапазон (N1: N12) на листе1, и у меня есть код, который копирует и вставляет мне значения этого диапазона на вторичном листе2. Все работает, так или иначе, я не считал, что хочу другую кнопку, которая очищает только значения в диапазоне N1: N12, как только я их скопировал в sheet2. Я не знаю, как сохранить формулы в этом диапазоне, когда я хочу удалить значения. У вас есть идея? Я уже пробовал обычный макрос, который удаляет все, но это не то, что я хочу.

Sub Cancella() 
    Sheets("Foglio1").select 
    Range("N1:N12").clearcontents 
End Sub 

Код я использовать для копирования

Dim lastRow As Long 
    Sheets("Training Analysis").Range("P1:R13").Copy 

    lastRow = Sheets("Foglio1").Range("a65536").End(xlUp).Row 

    Sheets("Foglio1").Range("A" & lastRow + 1).PasteSpecial Paste:=xlPasteValues, Transpose:=True 

Answer 1

Заменить:

Range("N1:N12").clearcontents 

с:

For i = 1 To 12 
    If Not Cells(i, "N").HasFormula Then Cells(i, "N").ClearContents 
Next i 

Answer 2

Существует подмножество Range.SpecialCells methodxlCellTypeConstants, что цели. Это можно разбить на xlNumbers, xlTextValues, xlErrors, xlLogical или их комбинацию.

With WorkSheets("Foglio1") 
    .Range("N1:N12").SpecialCells(xlCellTypeConstants, xlNumbers).ClearContents 
End With 

И наоборот, клетки, содержащие формулы могут быть аналогичным образом ориентированы с xlCellTypeFormulas подмножества.