数式以外のすべてをクリアする（Microsoft Excel）

投稿日: 2020年11月12日 2020年11月12日

Roniは、数式を含む可能性のあるセルを除いて、ワークシート内のすべてをクリアしたいと考えています。このタスクは、手動またはマクロを使用して実行できます。

手動でクリアを実行する場合は、次の手順を実行できます。

。 F5を押します。 Excelに[移動]ダイアログボックスが表示されます。（図1を参照）

。 [特別]ボタンをクリックします。 Excelは、[特別に移動]ダイアログボックスを表示します。

（図2を参照）

。 [定数]ラジオボタンを選択します。次に、[数式]オプションの下にある4つのチェックボックスが使用可能になります。（これは少し混乱する可能性があります。Microsoftが[定数]ラジオボタンで別のラジオボタンの下にあるいくつかのチェックボックスを制御するようにした理由はすぐにはわかりません。）

。 [数式]ラジオボタンの下にあるすべてのチェックボックスが選択されていることを確認します。（デフォルトで選択されているはずです。）

。 [OK]をクリックします。 Excelは、ワークシート内のすべての定数（数式を含まないセル）を選択します。

。 Delキーを押します。

これは、ワークシートの非公式の内容をたまにクリアする必要がある場合にのみ役立ちます。より頻繁に行う必要がある場合は、マクロレコーダーを使用して上記の手順を記録できます。または、必要に応じて、次のような独自のマクロを最初から作成することもできます。

Sub ClearAllButFormulas()

Dim wks As Worksheet

'ignore errors in case there is only formulas     On Error Resume Next     For Each wks In Worksheets         wks.Cells.SpecialCells(xlCellTypeConstants).ClearContents     Next     On Error GoTo 0     Set wks = Nothing End Sub

このマクロは、ブック全体のすべての非数式セルをクリアする必要がある場合に特に役立ちます。その理由は、手動でクリアを行う必要なしに、ワークブック全体のすべてのワークシートでクリアを行うためです。

このマクロを使用するときは注意が必要です。このマクロを実行する前に、ワークシートまたはワークブックに数式を含むセルを除いて、本当にすべてをクリアしたいことを確認してください。本当に保持する必要のあるセルの内容を誤って削除してしまうのは残念です。このような可能性について少しきしむ場合は、次のバージョンのマクロを使用することをお勧めします。

Sub ClearAllButFormulas2()

Dim wks As Worksheet     Dim sTemp As String     Dim iCheck As Integer

sTemp = "This macro deletes everything in the current "

sTemp = sTemp & "workbook except formulas. Once done, "

sTemp = sTemp & "it cannot be undone." & vbCrLf & vbCrLf     sTemp = sTemp & "Are you sure you want to continue?"



iCheck = MsgBox(sTemp, vbYesNo + vbExclamation, "Warning!")



If iCheck = vbYes Then         'ignore errors in case there is only formulas         On Error Resume Next         For Each wks In Worksheets             wks.Cells.SpecialCells(xlCellTypeConstants).ClearContents         Next         On Error GoTo 0     Else         MsgBox "Operation cancelled."

End If End Sub

このバージョンでは、クリアを実行するかどうかを確認するメッセージボックスが表示されます。結果として、誤ってワークブックを台無しにする可能性が少なくなります。

注：

このページ（または_ExcelTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

link：/ excelribbon-ExcelTipsMacros [ここをクリックして、新しいブラウザタブでその特別なページを開きます]。

_ExcelTips_は、費用効果の高いMicrosoftExcelトレーニングのソースです。

このヒント（9097）は、Microsoft Excel 2007、2010、2013、2016、2019、およびOffice 365のExcelに適用されます。Excelの古いメニューインターフェイス用のこのヒントのバージョンは、次の場所にあります。

link：/ excel-Clearing_Everything_Except_Formulas [数式以外のすべてをクリアする]。