Xóa tất cả các Defined Name trong Excel

Trong Excel không có lệnh thực hiện yêu cầu của bạn mà phải tạo Macro để thực hiện công việc này cách thức như sau

Mở Excel
Bấm tổ hợp phím Alt-F11 để vào cửa sổ Visual Basic
Bấm menu Insert , chọn Module , bạn Copy theo nội dung dưới đây

Sub DeleteRangeNames()
    Dim nName As Name
    Dim lReply As Long

    For Each nName In Names

        nName.Delete

    Next nName
End Sub

Quay trở về Excel và chạy Macro có tên là DeleteRangeNames

Bạn cũng có thể tạo Macro với nội dung sau để hỏi có muốn xoá hay không

Sub DeleteRangeNames()
    Dim nName As Name
    Dim lReply As Long

    For Each nName In Names
        lReply = MsgBox("Ten muon xoa : " & nName.Name & _
        " co vi tri tu : " & nName.RefersToRange.Address & " trong " & _
        nName.Parent.Name, vbYesNoCancel, "tuvantinhoc1088.com")

        If lReply = vbCancel Then
            Exit Sub
        ElseIf lReply = vbYes Then
            nName.Delete
        End If

    Next nName
End Sub