如何清除Excel中命名范圍的內容

發布:未知文本批量工具

如何清除Excel中命名范圍的內容？

本文將向您展示清除指定命名范圍的內容以及清除所有命名范圍的內容，但將范圍名稱保留在Excel中的活動工作表中的方法。

使用VBA代碼清除命名范圍的內容

使用VBA代碼清除命名范圍的內容驚人的！在 Excel 中使用高效的選項卡，如 Chrome、Firefox 和 Safari！每天節省50％的時間，并減少數千次鼠標單擊！

請執行以下操作以清除當前工作表中指定命名范圍或所有命名范圍的內容。

1.在工作表中包含您要清除其內容的命名范圍，然后按其他 + F11 鍵打開 Microsoft Visual Basic應用程序 窗口。

2.在 Microsoft Visual Basic應用程序 窗口中，單擊插頁 > 模塊。然后將下面的VBA代碼復制到“代碼”窗口中。

要清除工作表中指定命名范圍的內容，請應用下面的VBA代碼。

VBA代碼1：在Excel中清除指定命名范圍的內容

Sub Clear_ActiveSheet_Name_Ranges()Dim xName As NameDim xInput As StringDim xRg As RangeOn Error Resume NextxInput = Application.InputBox("Enter the name of the named range you will clear contents from:", "KuTools For Excel", , , , , , 2)If xInput = "False" Then Exit SubApplication.ScreenUpdating = FalseSet xName = ActiveWorkbook.Names(xInput)If Not xName Is Nothing ThenxName.RefersToRange.ClearEnd IfApplication.ScreenUpdating = TrueEnd SubCopy

3。按 F5 鍵來運行代碼。

4.然后 Kutools for Excel 彈出對話框。請輸入您要清除其內容的命名范圍的名稱，然后單擊 OK 按鈕。看截圖：

然后，將立即清除指定命名范圍的單元格中的所有內容。

要清除活動工作表中所有已命名范圍的內容，請應用下面的VBA代碼。

VBA代碼2：在Excel的活動工作表中清除所有命名范圍的內容

Sub Clear_All_ActiveSheet_Name_Ranges()Dim xRange As RangeDim xName As NameDim xReSponse As LongOn Error Resume NextxReSponse = MsgBox("For clearing contents of all named ranges of active sheet in " & ActiveWorkbook.Name _& Chr(10) & "(OK to Delete, Cancel to Quit.)", vbOKCancel, "KuTools For Excel")If xReSponse = 2 ThenMsgBox "User chose to cancel.", vbOKOnly, "KuTools For Excel"Exit SubEnd IfFor Each xName In ActiveWorkbook.NamesSet xRange = NothingSet xRange = Intersect(ActiveSheet.UsedRange, xName.RefersToRange)If Not xRange Is Nothing Then xRange.ClearNext xNameApplication.ScreenUpdating = TrueEnd SubCopy

3。按 F5 鍵運行代碼，然后單擊 OK 按鈕在 Kutools for Excel 對話框如下圖所示。

然后，從活動工作表中清除所有已命名范圍的內容。

相關文章：如何在Excel中用VBA代碼清除組合框的內容？如何在Excel的單元格中同時清除內容和格式？如何清除Excel中單元格中的限制值？如果另一個單元格的值在Excel中發生更改，如何清除指定的單元格內容？如何清除Excel工作簿中打開和退出時指定的單元格內容？