Question

我有一些连接可以将数据从Internet抓取到我的Excel文件中。每次将数据复制到文件时，我都会得到一个范围名称，如：

ExternalData_1
ExternalData_2
...

我在尝试使用以下命令删除这些范围名称：

Dim nName As Name 

For Each nName In ActiveWorkbook.Names 
   If nName.Name Like "ExternalData*" Then nName.Delete 
Next nName

但这不是删除任何名字，为什么？

Answer 1

请改为尝试：

Sub test()
    Dim nName As Name

    For Each nName In ActiveWorkbook.Names
       If Left(nName.Name, 12) = "ExternalData" Then nName.Delete
    Next nName
End Sub

Answer 2

名称可能以工作表名称开头，因此您可能必须像这样更改代码

If Left(nName.Name, 19) = "Sheet1!ExternalData" Then nName.Delete

Excel VBA删除ExternalData_ *范围名称

2 个答案: