名称管理器中的外部数据删除！怎么这么简单？ VBA Excel

Question

如何简化此代码以删除名称管理器中的externaldata_ *。

ActiveWorkbook.Names（“ExternalData_21”）。删除ActiveWorkbook.Names（“ExternalData_22”）。删除ActiveWorkbook.Names（“ExternalData_23”）。删除ActiveWorkbook.Names（“ExternalData_24”）。删除ActiveWorkbook.Names（“ExternalData_25”）。删除ActiveWorkbook.Names（“ExternalData_26”）。删除ActiveWorkbook.Names（“ExternalData_27”）。删除ActiveWorkbook.Names（“ExternalData_28”）。删除ActiveWorkbook.Names（“ExternalData_29”）。删除ActiveWorkbook.Names（“ExternalData_30”）。删除ActiveWorkbook.Names（“ExternalData_31”）。删除ActiveWorkbook.Names（“ExternalData_32”）。删除ActiveWorkbook.Names（“ExternalData_33”）。删除ActiveWorkbook.Names（“ExternalData_34”）。删除ActiveWorkbook.Names（“ExternalData_35”）。删除ActiveWorkbook.Names（“ExternalData_36”）。删除ActiveWorkbook.Names（“ExternalData_37”）。删除ActiveWorkbook.Names（“ExternalData_38”）。删除ActiveWorkbook.Names（“ExternalData_39”）。删除ActiveWorkbook.Names（“ExternalData_40”）。删除

Answer 1

你可以尝试一下......

Dim i As Long
On Error Resume Next
For i = 21 To 40
    ActiveWorkbook.Names("ExternalData_" & i).Delete
Next i
On Error GoTo 0