2010-12-13 9 views
7

Excel VBAで、Range("A1:B2").ClearContentを安全に使用して、セル内の既存の式を削除しないでください。Excel:ClearContentの保存式

私のシナリオをより明確にするために、私はデータベースから新鮮なデータを取り出して、シート上のすべてのデータを消去したいだけですが、数式ではなく、他のフィールドのデータをvlookupで解決するからです。

+0

次に何を消去しようとしていますか? – SLaks

+0

セルの値だけ:数字、日付、テキスト – Lorenzo

+0

数式は値を作成します。 – SLaks

答えて

10

定数値のみを取得するには、SpecialCellsプロパティを使用します。

Sub RemoveConstants() 

    Dim rConstants As Range 

    Set rConstants = Sheet1.Range("A1:B2").SpecialCells(xlCellTypeConstants) 
    rConstants.ClearContents 

End Sub 
+2

範囲内のセルに実際に値がない場合、 に応答してExcelで「セルが見つかりませんでした」というエラーがスローされることを覚えておいてくださいrConstants = Sheet1.Range( "A1:B2")。SpecialCells(xlCellTypeConstants) – Murrah

+2

"No Cell were found"エラーを避けるために、サブの先頭にOn Error Resume Nextを追加してください。 –

関連する問題