Làm cách nào để xóa nội dung của phạm vi đã đặt tên trong Excel?
Bài viết này sẽ chỉ cho bạn phương pháp xóa nội dung của một phạm vi được đặt tên cụ thể cũng như xóa nội dung của tất cả các phạm vi được đặt tên nhưng vẫn giữ tên phạm vi trong một trang tính đang hoạt động trong Excel.
Xóa nội dung của dải ô đã đặt tên bằng mã VBA
Xóa nội dung của dải ô đã đặt tên bằng mã VBA
Vui lòng thực hiện như sau để xóa nội dung của một phạm vi được đặt tên được chỉ định hoặc tất cả phạm vi được đặt tên trong trang tính hiện tại.
1. Trong trang tính có chứa phạm vi đã đặt tên mà bạn sẽ xóa nội dung, hãy nhấn Khác + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.
2. bên trong Microsoft Visual Basic cho các ứng dụng cửa sổ, nhấp Chèn > Mô-đun. Sau đó sao chép mã VBA bên dưới vào cửa sổ Mã.
Để xóa nội dung của phạm vi được đặt tên được chỉ định trong trang tính, vui lòng áp dụng mã VBA bên dưới.
Mã VBA 1: Xóa nội dung của một phạm vi được đặt tên được chỉ định trong Excel
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
3. Nhấn nút F5 phím để chạy mã.
4. Sau đó a Kutools cho Excel hộp thoại bật lên. Vui lòng nhập tên của phạm vi đã đặt tên mà bạn sẽ xóa nội dung, sau đó nhấp vào OK cái nút. Xem ảnh chụp màn hình:
Sau đó, tất cả nội dung trong các ô của phạm vi được đặt tên được chỉ định sẽ bị xóa ngay lập tức.
Để xóa nội dung của tất cả các phạm vi được đặt tên trong trang tính đang hoạt động, vui lòng áp dụng mã VBA bên dưới.
Mã VBA 2: Xóa nội dung của tất cả các phạm vi được đặt tên trong trang tính hiện hoạt trong Excel
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
3. Nhấn nút F5 để chạy mã, sau đó nhấp vào OK nút trong Kutools cho Excel hộp thoại như hình minh họa bên dưới.
Sau đó, nội dung của tất cả các phạm vi được đặt tên sẽ bị xóa khỏi trang tính đang hoạt động.
Các bài liên quan:
- Làm thế nào để xóa nội dung của hộp tổ hợp với mã VBA trong Excel?
- Làm cách nào để xóa nội dung và định dạng cùng một lúc trong các ô trong Excel?
- Làm cách nào để xóa các giá trị bị hạn chế trong các ô trong Excel?
- Làm cách nào để xóa nội dung ô đã chỉ định nếu giá trị của một ô khác thay đổi trong Excel?
- Làm cách nào để xóa nội dung ô được chỉ định khi mở và thoát trong sổ làm việc Excel?
Công cụ năng suất văn phòng tốt nhất
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...
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!