学步园

Sub delNames()<br /> Dim vName<br /> For Each vName In ThisWorkbook.Names<br /> vName.delte<br /> Next<br /> End Sub

或者在立即窗口输入此句代码后回车

for each vName in thisworkbook.Names:vname.delete:next