Excel 中使用 VBA 清除儲存格的內容

您可以使用以下的 VBA 程式碼，在 Excel 中建立一個清除全部儲存格的按鈕：

• 開啟 Excel，並在工具列上點選「開發人員」選項卡。
• 點選「插入」，選擇「按鈕」，並在工作表上畫出一個按鈕。
• 右鍵點選按鈕，並點選「指派巨集」。
• 輸入下列的 VBA 程式碼，並按下儲存。

 

Sub ClearCells()

    ActiveSheet.Cells.ClearContents

End Sub

完成後，按下按鈕即可清除工作表中所有儲存格的內容。

請注意，此程式碼會完全清除所有儲存格的內容，包括任何公式和格式。如果您只想清除特定儲存格的內容，請修改程式碼以符合您的需求。

在 Excel 中建立一個清除 A2 至 D15 儲存格的按鈕：

• 開啟 Excel，並在工具列上點選「開發人員」選項卡。
• 點選「插入」，選擇「按鈕」，並在工作表上畫出一個按鈕。
• 右鍵點選按鈕，並點選「指派巨集」。
• 輸入下列的 VBA 程式碼，並按下儲存。

Sub ClearCells()

    Range("A2:D15").ClearContents

End Sub

完成後，按下按鈕即可清除 A2 至 D15 儲存格的內容。

這段程式碼的運作方式如下：

使用 Range 物件來取得 A2 至 D15 儲存格範圍。

使用 ClearContents 方法來清除此儲存格範圍內的內容。

請注意，這段程式碼只會清除 A2 至 D15 儲存格範圍內的內容，而不會影響其他儲存格的內容。如果您想要清除其他儲存格範圍的內容，請修改程式碼中的範圍。

如果您想要自定義此按鈕的外觀，請右鍵點選按鈕，然後選擇「格式化控制項」。在「格式化控制項」對話框中，可以設定按鈕的顏色、字體、大小等屬性。

在 Excel 中建立一個清除指定儲存格的按鈕：

• 開啟 Excel，並在工具列上點選「開發人員」選項卡。
• 點選「插入」，選擇「按鈕」，並在工作表上畫出一個按鈕。
• 右鍵點選按鈕，並點選「指派巨集」。
• 輸入下列的 VBA 程式碼，並按下儲存。

Sub ClearSelectedCells()

    Dim selectedRange As Range

    

    Set selectedRange = Selection

    selectedRange.ClearContents

End Sub

完成後，按下按鈕即可清除選取的儲存格的內容。

這段程式碼的運作方式如下：

宣告一個 Range 變數 selectedRange，用來存放使用者選取的儲存格範圍。

使用 Selection 物件來取得使用者選取的儲存格範圍，並將範圍指定給 selectedRange 變數。

使用 ClearContents 方法來清除 selectedRange 變數中的儲存格內容。

請注意，這段程式碼只會清除使用者選取的儲存格範圍內的內容，而不會影響其他儲存格的內容。如果使用者沒有選取任何儲存格，則此按鈕將不會有任何作用。

如果您想要自定義此按鈕的外觀，請右鍵點選按鈕，然後選擇「格式化控制項」。在「格式化控制項」對話框中，可以設定按鈕的顏色、字體、大小等屬性。