求删除名称的代码，请老师帮忙，谢谢！

zheng_l

求删除名称的代码，请老师帮忙，谢谢！

          For i = 1 To ActiveWorkbook.Names.Count
                ActiveWorkbook.Names(1).Delete
           Next上面的代码可以清除名称管理器的名称，但会把全部名称都删除掉，请问用什么代码可以保留我指定条件的名称？
比如要保留“DATA”名称

xiaozhongzi

Sub 保留指定表格()

Application.Calculation = xlManual                      '工作表公式手动计算
Application.ScreenUpdating = False                     '屏幕更新关闭

Dim MyBook As Workbook                                  '定义MyBook为工作簿
Set MyBook = ActiveWorkbook                            '指定MyBook为活动工作簿

'以下6句是删除上次运行后的结果，方便把数据复制到Sheet表，就可以直接运行宏
For Each Worksheet In MyBook.Sheets                    '对于每张Sheet表
If Worksheet.Name <> "DATA" Then                      'Sheet表的名字不为DATA
Worksheet.Select                                                  '选中该Sheet表
ActiveWindow.SelectedSheets.Delete                      '删除该Sheet表,为了清除上一次的数据
End If
Next

Application.ScreenUpdating = Ture                        '开启屏幕更新
Application.Calculation = xlCalculationAutomatic         '自动重算
MsgBox "运行完成"
End Sub

opel-wong

这个意思吗？

2Denny19

For i = 1 To ActiveWorkbook.Names.Count
    If ActiveWorkbook.Names(i).Name <> "DATA" And ActiveWorkbook.Names(i).Name <> "AA" Then
        ActiveWorkbook.Names(i).Delete
    End If
Next

2Denny19

For i = 1 To ActiveWorkbook.Names.Count
    If ActiveWorkbook.Names(i).Name <> "DATA" And ActiveWorkbook.Names(i).Name <> "AA" Then
        ActiveWorkbook.Names(i).Delete
    End If
Next

2Denny19

For i = 1 To ActiveWorkbook.Names.Count     If ActiveWorkbook.Names(i).Name <> "DATA" And ActiveWorkbook.Names(i).Name <> "AA" Then         ActiveWorkbook.Names(i).Delete     End If Next

zheng_l

opel-wong 发表于 2021-6-22 16:59
这个意思吗？

感谢老师热心回复！
运行到ActiveWorkbook.Names(i).Delete 时报错，请老师再帮忙看看，谢谢！

准提部林

Sub TEST()
Dim NM As Name
For Each NM In ThisWorkbook.Names
    If InStr("/DATA/AA/", "/" & NM.Name & "/") = 0 Then NM.Delete
Next
End Sub

zheng_l

2Denny19 发表于 2021-6-22 17:10
For i = 1 To ActiveWorkbook.Names.Count     If ActiveWorkbook.Names(i).Name  "DATA" And ActiveWorkbo ...

感谢老师回复！代码在循环到IF的时候就报错，没办法一次完成，请再看看，谢谢！

pc087

zheng_l 发表于 2021-6-22 17:24
感谢老师热心回复！
运行到ActiveWorkbook.Names(i).Delete 时报错，请老师再帮忙看看，谢谢！