Bỏ qua nội dung chính

Làm cách nào để xóa nhanh tất cả các phạm vi đã đặt tên trong Excel?

Giả sử bạn đã tạo nhiều phạm vi được đặt tên trong sổ làm việc của mình, nhưng bây giờ, bạn không cần đến các phạm vi được đặt tên nữa, làm thế nào bạn có thể xóa tất cả các phạm vi được đặt tên cùng một lúc trong Excel?

Xóa tất cả các phạm vi đã đặt tên bằng cách đi tới Trình quản lý tên

Trong hộp thoại Trình quản lý tên, bạn có thể tạo, chỉnh sửa và xóa các phạm vi đã đặt tên theo ý muốn. Vui lòng làm như sau:

1. Đi đến Người quản lý tên bằng cách nhấp chuột Công thức > Người quản lý tên, xem ảnh chụp màn hình:
doc-delete-name-range1

2. Trong Người quản lý tên hộp thoại, nhấn sự thay đổi để chọn tất cả các phạm vi đã đặt tên hoặc giữ Ctrl để chọn những cái bạn không cần, xem ảnh chụp màn hình:
doc-delete-name-range1

3. Và sau đó nhấp vào Xóa bỏ ở đầu hộp thoại và một hộp nhắc sẽ xuất hiện để nhắc bạn nếu bạn chắc chắn xóa tên.
doc-delete-name-range1

4. Sau đó nhấn vào OK, tất cả các phạm vi được đặt tên đã bị xóa cùng một lúc.

doc-delete-name-range4 -2 doc-delete-name-range5

Tìm và thay thế tất cả các dải ô đã đặt tên bằng các tham chiếu ô tương ứng trong công thức

Kutools cho Excel's Thay thế tên dải ô tiện ích có thể tìm ra tất cả các công thức áp dụng các phạm vi đã đặt tên trong một phạm vi đã chọn, một trang tính được chỉ định hoặc tất cả các trang tính một cách dễ dàng. Và vai trò chính của tiện ích này là thay thế tất cả các phạm vi được đặt tên bằng các tham chiếu ô tương ứng trong các công thức này.

Nhận bản dùng thử miễn phí đầy đủ tính năng trong 30 ngày ngay bây giờ!

quảng cáo thay thế phạm vi có tên 1

Kutools cho Excel - Supercharge Excel với hơn 300 công cụ thiết yếu. Tận hưởng bản dùng thử MIỄN PHÍ 30 ngày đầy đủ tính năng mà không cần thẻ tín dụng! Get It Now

Xóa tất cả các dải ô đã đặt tên bằng mã VBA

Mã VBA ngắn sau đây cũng có thể giúp bạn loại bỏ tất cả các phạm vi được đặt tên trong sổ làm việc.

1. Giữ ALT + F11 chìa khóa và nó mở Cửa sổ Microsoft Visual Basic for Applications.

2. Nhấp chuột Chèn > Mô-đunvà dán mã sau vào Cửa sổ mô-đun.

Mã VBA: Xóa tất cả các phạm vi đã đặt tên trong Excel

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

3. Sau đó nhấn F5 để chạy mã này, tất cả các tên trong sổ làm việc sẽ bị xóa ngay lập tức.

Các bài liên quan:

Công cụ năng suất văn phòng tốt nhất

🤖 Trợ lý AI của Kutools: Cách mạng hóa việc phân tích dữ liệu dựa trên: Thực thi thông minh   |  Tạo mã  |  Tạo công thức tùy chỉnh  |  Phân tích dữ liệu và tạo biểu đồ  |  Gọi các hàm Kutools...
Các tính năng phổ biến: Tìm, đánh dấu hoặc xác định các bản sao   |  Xóa hàng trống   |  Kết hợp các cột hoặc ô mà không làm mất dữ liệu   |   Vòng không có công thức hữu ích. Cảm ơn !
Siêu tra cứu: Nhiều tiêu chí VLookup  |   VLookup Nhiều Giá Trị  |   VLookup trên nhiều trang tính   |   Tra cứu mờ ....
Danh sách thả xuống nâng cao: Tạo nhanh danh sách thả xuống   |  Danh sách thả xuống phụ thuộc   |  Danh sách thả xuống nhiều lựa chọn ....
Trình quản lý cột: Thêm một số cột cụ thể  |  Di chuyển cột  |  Chuyển đổi trạng thái hiển thị của các cột ẩn  |  So sánh dãy và cột hữu ích. Cảm ơn !
Các tính năng nổi bật: Tiêu điểm lưới   |  Chế độ xem thiết kế   |   Thanh công thức lớn   |  Trình quản lý sổ làm việc & trang tính   |  Thư viện tài nguyên (Văn bản tự động)   |  Bảng chọn ngày   |  Kết hợp các bảng tính   |  Mã hóa/Giải mã ô   |  Gửi email theo danh sách   |  Siêu lọc   |   Bộ lọc đặc biệt (lọc in đậm/nghiêng/gạch ngang...) ...
15 bộ công cụ hàng đầu:  12 bản văn CÔNG CỤ (thêm văn bản, Xóa ký tự,...)   |   50 + Biểu đồ Các loại (Biểu đồ Gantt,...)   |   40+ Thực tế Công thức (Tính tuổi dựa trên ngày sinh,...)   |   19 chèn CÔNG CỤ (Chèn mã QR, Chèn ảnh từ đường dẫn,...)   |   12 Chuyển đổi CÔNG CỤ (Số thành từ, Chuyển đổi tiền tệ,...)   |   7 Hợp nhất & Tách CÔNG CỤ (Các hàng kết hợp nâng cao, Chia ô,...)   |   ... và nhiều hơn nữa

Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian.  Bấm vào đây để có được tính năng bạn cần nhất...

Mô tả

Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều

  • Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
  • Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
  • Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
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