删除单元格范围内的数据但保留公式

Question

有没有办法删除一系列单元格中的所有数据但保留公式。我的示例文件是一个简单的计算，它将汇总来自C2：C5的数字，然后将总和放在表格（“摘要”）。范围（“B2”）中。单击按钮后，它将删除A2：C5范围内的数据，但是单元格A2：C5中的公式也将被删除。

我理想的结果是范围（A2：C5）中的公式将保留。

屏幕截图：

mycode的：

    Private Sub CommandButton1_Click()


Dim sum As Worksheet, ws As Worksheet

Dim c As Range

Set sum = Sheets("Summary"): Set ws = Sheets("Sheet1")

sum.Range("B" & sum.Range("B1000000").End(xlUp).Offset(1, 0).Row) = WorksheetFunction.sum(ws.Range("C2:C" & ws.Range("C100000").End(xlUp).Row))
'ws.Range("A2:C" & ws.Range("A1").SpecialCells(xlCellTypeLastCell).Row).ClearContents

For Each c In Sheet1.Range("A2:C9")
    If Not c.HasFormula Then c.ClearContents
Next c

End Sub

Answer 1

您可以尝试以下代码：

Dim C As Range
For Each C In Sheet1.Range("A2:C5")
    If Not C.HasFormula Then C.ClearContents
Next C