ไปยังเนื้อหาหลัก

วิธีลบช่วงที่ตั้งชื่อทั้งหมดใน Excel อย่างรวดเร็ว

สมมติว่าคุณได้สร้างช่วงที่ตั้งชื่อไว้มากมายในสมุดงานของคุณ แต่ตอนนี้คุณไม่จำเป็นต้องมีช่วงที่ตั้งชื่ออีกต่อไปแล้วคุณจะลบช่วงที่ตั้งชื่อทั้งหมดพร้อมกันใน Excel ได้อย่างไร?

ลบช่วงที่ตั้งชื่อทั้งหมดโดยไปที่ตัวจัดการชื่อ

ในกล่องโต้ตอบตัวจัดการชื่อคุณสามารถสร้างแก้ไขและลบช่วงที่ตั้งชื่อได้ตามที่คุณต้องการ กรุณาทำตามนี้:

1. ไปที่ ชื่อผู้จัดการ โดยคลิกที่ สูตร > ชื่อผู้จัดการดูภาพหน้าจอ:
doc-delete-named-ช่วง 1

2. ใน ชื่อผู้จัดการ กล่องโต้ตอบกด เปลี่ยน เพื่อเลือกช่วงที่ตั้งชื่อทั้งหมดหรือกดปุ่ม Ctrl เพื่อเลือกสิ่งที่คุณไม่ต้องการดูภาพหน้าจอ:
doc-delete-named-ช่วง 1

3. จากนั้นคลิก ลบ ที่ด้านบนสุดของกล่องโต้ตอบและกล่องพร้อมต์จะปรากฏขึ้นเพื่อเตือนคุณหากคุณแน่ใจว่าจะลบชื่อ
doc-delete-named-ช่วง 1

4. จากนั้นคลิก OKช่วงที่ตั้งชื่อทั้งหมดจะถูกลบในครั้งเดียว

doc-delete-named-ช่วง 4 -2 doc-delete-named-ช่วง 5

ค้นหาและแทนที่ช่วงที่ตั้งชื่อทั้งหมดด้วยการอ้างอิงเซลล์ที่เกี่ยวข้องในสูตร

Kutools สำหรับ Excel's แทนที่ชื่อช่วง ยูทิลิตี้สามารถค้นหาสูตรทั้งหมดที่ใช้ช่วงที่ตั้งชื่อในช่วงที่เลือกแผ่นงานที่ระบุหรือแผ่นงานทั้งหมดได้อย่างง่ายดาย และบทบาทหลักของยูทิลิตี้นี้คือการแทนที่ช่วงที่ตั้งชื่อทั้งหมดด้วยการอ้างอิงเซลล์ที่เกี่ยวข้องในสูตรเหล่านี้

ทดลองใช้ฟีเจอร์เต็มรูปแบบฟรี 30 วันทันที!

โฆษณาแทนที่ช่วงที่มีชื่อ 1

Kutools สำหรับ Excel - เพิ่มประสิทธิภาพ Excel ด้วยเครื่องมือที่จำเป็นมากกว่า 300 รายการ เพลิดเพลินกับฟีเจอร์ทดลองใช้ฟรี 30 วันโดยไม่ต้องใช้บัตรเครดิต! Get It Now

ลบช่วงที่ตั้งชื่อทั้งหมดด้วยรหัส VBA

รหัส VBA สั้น ๆ ต่อไปนี้ยังช่วยให้คุณสามารถลบช่วงที่ตั้งชื่อทั้งหมดในสมุดงานได้

1. กด ALT + F11 และจะเปิดไฟล์ หน้าต่าง Microsoft Visual Basic for Applications.

2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ หน้าต่างโมดูล.

รหัส VBA: ลบช่วงที่ตั้งชื่อทั้งหมดใน Excel

Sub DeleteNames()
'Update 20140314
Dim xName As Name
For Each xName In Application.ActiveWorkbook.Names
    xName.Delete
Next
End Sub

3. จากนั้นกด F5 เพื่อเรียกใช้รหัสนี้ชื่อทั้งหมดในสมุดงานจะถูกลบออกทันที

บทความที่เกี่ยวข้อง:

สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

🤖 Kutools AI ผู้ช่วย: ปฏิวัติการวิเคราะห์ข้อมูลโดยยึดตาม: การดำเนินการที่ชาญฉลาด   |  สร้างรหัส  |  สร้างสูตรที่กำหนดเอง  |  วิเคราะห์ข้อมูลและสร้างแผนภูมิ  |  เรียกใช้ฟังก์ชัน Kutools...
คุณสมบัติยอดนิยม: ค้นหา เน้น หรือระบุรายการที่ซ้ำกัน   |  ลบแถวว่าง   |  รวมคอลัมน์หรือเซลล์โดยไม่สูญเสียข้อมูล   |   รอบโดยไม่มีสูตร ...
การค้นหาขั้นสูง: VLookup หลายเกณฑ์  |   VLookup หลายค่า  |   VLookup ข้ามหลายแผ่น   |   การค้นหาที่ไม่ชัดเจน ....
รายการแบบเลื่อนลงขั้นสูง: สร้างรายการแบบหล่นลงอย่างรวดเร็ว   |  รายการแบบหล่นลงขึ้นอยู่กับ   |  เลือกหลายรายการแบบหล่นลง ....
ผู้จัดการคอลัมน์: เพิ่มจำนวนคอลัมน์เฉพาะ  |  ย้ายคอลัมน์  |  สลับสถานะการมองเห็นของคอลัมน์ที่ซ่อนอยู่  |  เปรียบเทียบช่วงและคอลัมน์ ...
คุณสมบัติเด่น: กริดโฟกัส   |  มุมมองการออกแบบ   |   บาร์สูตรใหญ่   |  สมุดงานและตัวจัดการชีต   |  ห้องสมุดทรัพยากร (ข้อความอัตโนมัติ)   |  เลือกวันที่   |  รวมแผ่นงาน   |  เข้ารหัส/ถอดรหัสเซลล์   |  ส่งอีเมลตามรายการ   |  ซุปเปอร์ฟิลเตอร์   |   ตัวกรองพิเศษ (กรองตัวหนา/ตัวเอียง/ขีดทับ...) ...
ชุดเครื่องมือ 15 อันดับแรก:  12 ข้อความ เครื่องมือ (เพิ่มข้อความ, ลบอักขระ, ... )   |   50 + แผนภูมิ ประเภท (แผนภูมิ Gantt, ... )   |   40+ ใช้งานได้จริง สูตร (คำนวณอายุตามวันเกิด, ... )   |   19 การแทรก เครื่องมือ (ใส่ QR Code, แทรกรูปภาพจากเส้นทาง, ... )   |   12 การแปลง เครื่องมือ (ตัวเลขเป็นคำ, การแปลงสกุลเงิน, ... )   |   7 ผสานและแยก เครื่องมือ (แถวรวมขั้นสูง, แยกเซลล์, ... )   |   ... และอื่น ๆ

เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา  คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...

รายละเอียด

แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
Comments (8)
Rated 4.5 out of 5 · 1 ratings
keenimo
keenimo
This comment was minimized by the moderator on the site
first if the excel extension is xls then convert it using excel to xlsx .then close excel. make a backup of your xlsx file. rename this backup extension to zip. under zip file there is a xl folder.under the xl folder there is a workbook.xml file. open it with xml notepad and delete defined names. or open it with notepad delete between <definednames> to </definednames>. and also delete this definednames parts too.then save this workbook.xml and drag drop inside zip files xl folder . then save it. and change the extension to xlsx file. open the file and press Ctrl+S. All defined names cleared with hidden ones.
Reply
0
0
Rated 4.5 out of 5
lidwyn
lidwyn
This comment was minimized by the moderator on the site
You should check if it is an internal protected name range like so
```
Sub DeleteNames()
Dim xName As Name
For Each xName In Application.ActiveWorkbook.Names
If Split(xName.Name, ".")(0) <> "_xlfn" Then
xName.Delete
End If
Next
End Sub
```
Reply
0
0
John Galaska
John Galaska     lidwyn
This comment was minimized by the moderator on the site
This was an improved code from the prior. I had many names for which the delete button was dimmed out, wouldn't work, nor would the prior code. Yours removed all but one. Thank you!!
Reply
0
0
lidwyn
lidwyn     lidwyn
This comment was minimized by the moderator on the site 

Sub DeleteNames()
    Dim xName As Name
    For Each xName In Application.ActiveWorkbook.Names
        If Split(xName.Name, ".")(0) <> "_xlfn" Then
            xName.Delete
        End If
    Next
End Sub
Reply
0
0
Murali
Murali
This comment was minimized by the moderator on the site
Run Time Error 7
out of memory
Reply
0
0
skyyang
skyyang     Murali
This comment was minimized by the moderator on the site
Hello, Murali
I have tested the code, it works well in my workbook.
Could you upload your workbook here, so that we can check where the problem is?

Thank you!
Reply
Report
0
0
Ron S
Ron S
This comment was minimized by the moderator on the site
How about something a little more specific.

First Identify all unused named ranges, for review.

Second, macro to delete all unused named ranges.
Reply
0
0
Brendan
Brendan
This comment was minimized by the moderator on the site
When I try to run the above VBA Code, I get the following error:

Run-time error '1004'
The syntax of this name isn't correct.

Verify that the name:
- Starts with a letter or underscore
- Doesn't include a space or character that isn't allowed
- Doesn't conflict with an existing name in the workbook
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations