亞寵展、全球?qū)櫸锂a(chǎn)業(yè)風(fēng)向標(biāo)——亞洲寵物展覽會深度解析
365
2025-04-02
如何清除Excel中命名范圍的內(nèi)容？
如何清除Excel中命名范圍的內(nèi)容？
本文將向您展示清除指定命名范圍的內(nèi)容以及清除所有命名范圍的內(nèi)容，但將范圍名稱保留在Excel中的活動工作表中的方法。
使用VBA代碼清除命名范圍的內(nèi)容
驚人的！ 在 Excel 中使用高效的選項卡，如 Chrome、Firefox 和 Safari！
每天節(jié)省50％的時間，并減少數(shù)千次鼠標(biāo)單擊！
請執(zhí)行以下操作以清除當(dāng)前工作表中指定命名范圍或所有命名范圍的內(nèi)容。
1.在工作表中包含您要清除其內(nèi)容的命名范圍，然后按 其他 + F11 鍵打開 Microsoft Visual Basic應(yīng)用程序 窗口。
2.在 Microsoft Visual Basic應(yīng)用程序 窗口中，單擊 插頁 > 模塊。 然后將下面的VBA代碼復(fù)制到“代碼”窗口中。
要清除工作表中指定命名范圍的內(nèi)容，請應(yīng)用下面的VBA代碼。
VBA代碼1：在Excel中清除指定命名范圍的內(nèi)容
Sub Clear_ActiveSheet_Name_Ranges()
Dim xName As Name
Dim xInput As String
Dim xRg As Range
On Error Resume Next
xInput = Application.InputBox("Enter the name of the named range you will clear contents from:", "KuTools For Excel", , , , , , 2)
If xInput = "False" Then Exit Sub
Application.ScreenUpdating = False
Set xName = ActiveWorkbook.Names(xInput)
If Not xName Is Nothing Then
xName.RefersToRange.Clear
End If
Application.ScreenUpdating = True
End Sub
Copy
3。 按 F5 鍵來運行代碼。
4.然后 Kutools for Excel 彈出對話框。 請輸入您要清除其內(nèi)容的命名范圍的名稱，然后單擊 OK 按鈕。 看截圖：
然后，將立即清除指定命名范圍的單元格中的所有內(nèi)容。
要清除活動工作表中所有已命名范圍的內(nèi)容，請應(yīng)用下面的VBA代碼。
VBA代碼2：在Excel的活動工作表中清除所有命名范圍的內(nèi)容
Sub Clear_All_ActiveSheet_Name_Ranges()
Dim xRange As Range
Dim xName As Name
Dim xReSponse As Long
On Error Resume Next
xReSponse = 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 Then
MsgBox "User chose to cancel.", vbOKOnly, "KuTools For Excel"
Exit Sub
End If
For Each xName In ActiveWorkbook.Names
Set xRange = Nothing
Set xRange = Intersect(ActiveSheet.UsedRange, xName.RefersToRange)
If Not xRange Is Nothing Then xRange.Clear
Next xName
Application.ScreenUpdating = True
End Sub
Copy
3。 按 F5 鍵運行代碼，然后單擊 OK 按鈕在 Kutools for Excel 對話框如下圖所示。
然后，從活動工作表中清除所有已命名范圍的內(nèi)容。
相關(guān)文章： 如何在Excel中用VBA代碼清除組合框的內(nèi)容？ 如何在Excel的單元格中同時清除內(nèi)容和格式？ 如何清除Excel中單元格中的限制值？ 如果另一個單元格的值在Excel中發(fā)生更改，如何清除指定的單元格內(nèi)容？ 如何清除Excel工作簿中打開和退出時指定的單元格內(nèi)容？最佳辦公生產(chǎn)力工具
將小時轉(zhuǎn)化為分鐘 Kutools for Excel!
準(zhǔn)備好增強您的 Excel 任務(wù)了嗎？ 利用的力量 Kutools for Excel - 您終極的節(jié)省時間的工具。 簡化復(fù)雜的任務(wù)并像專業(yè)人士一樣瀏覽數(shù)據(jù)。 以閃電般的速度體驗 Excel！
為什么需要 Kutools for Excel
??? 超過 300 項強大功能: Kutools 包含 300 多項高級功能，可簡化您在 1500 多種場景中的工作。
?? 卓越的數(shù)據(jù)處理能力：合并單元格、刪除重復(fù)項并執(zhí)行高級數(shù)據(jù)轉(zhuǎn)換 - 所有這些都不費吹灰之力！
?? 高效的批量操作：當(dāng)你可以聰明地工作時，為什么還要付出額外的努力呢？ 輕松批量導(dǎo)入、導(dǎo)出、組合和調(diào)整數(shù)據(jù)。
?? 可定制的圖表和報告：訪問各種附加圖表并生成富有洞察力的報告。
??? 強大的導(dǎo)航窗格：通過強大的列管理器、工作表管理器和自定義收藏夾獲得優(yōu)勢。
?? 七種類型的下拉列表：通過各種功能和類型的下拉列表使數(shù)據(jù)輸入變得輕而易舉。
?? 用戶友好：對于初學(xué)者來說輕而易舉，對于專家來說是一個強大的工具。
立即下載，與 Excel 一起穿越時空！
閱讀更多
免費下載... 采購...
Office Tab 為 Office 帶來選項卡式界面，讓您的工作更輕松
在Word，Excel，PowerPoint中啟用選項卡式編輯和閱讀，發(fā)布者，Access，Visio和Project。
在同一窗口的新選項卡中而不是在新窗口中打開并創(chuàng)建多個文檔。
每天將您的工作效率提高50％，并減少數(shù)百次鼠標(biāo)單擊！
閱讀更多
免費下載... 采購...
版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實的內(nèi)容，請聯(lián)系我們jiasou666@gmail.com 處理，核實后本網(wǎng)站將在24小時內(nèi)刪除侵權(quán)內(nèi)容。
版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實的內(nèi)容，請聯(lián)系我們jiasou666@gmail.com 處理，核實后本網(wǎng)站將在24小時內(nèi)刪除侵權(quán)內(nèi)容。
相關(guān)文章
