您可以試一下下面的方法:
您可以按照以下步驟添加一個(gè)Excel批量刪除多個(gè)單元格內(nèi)容按鈕:
打開(kāi)Excel并進(jìn)入開(kāi)發(fā)者模式。如果您的Excel沒(méi)有開(kāi)發(fā)者選項(xiàng)卡,請(qǐng)按照以下步驟打開(kāi):文件 -> 選項(xiàng) -> 自定義功能區(qū) -> 主選項(xiàng)卡,然后選中“開(kāi)發(fā)者”框并單擊“確定”。
在開(kāi)發(fā)者選項(xiàng)卡中,單擊“插入”按鈕下面的“按鈕”控件,并在工作表上繪制一個(gè)按鈕。
右鍵單擊新創(chuàng)建的按鈕,并選擇“設(shè)置對(duì)象格式”選項(xiàng)。
在“格式控制”對(duì)話框中,選擇“控件”選項(xiàng)卡,并在“輸入范圍”框中輸入以下代碼:
=IF(DELETECELLS=TRUE, "", "Delete Cells")
單擊“確定”并關(guān)閉“格式控制”對(duì)話框。
右鍵單擊剛才創(chuàng)建的按鈕,并選擇“查看代碼”選項(xiàng)。
在“Microsoft Visual Basic for Applications”編輯器中,輸入以下代碼:
Private Sub DeleteCells_Click()Dim rangeSelection As RangeSet rangeSelection = Application.SelectionrangeSelection.ClearContentsEnd Sub
單擊“保存并關(guān)閉”按鈕,然后關(guān)閉編輯器。
現(xiàn)在,當(dāng)您單擊該按鈕時(shí),將會(huì)自動(dòng)刪除當(dāng)前選定區(qū)域的所有單元格內(nèi)容。