Sub delNames() Dim vName For Each vName In ThisWorkbook.Names vName.delte Next End Sub 或者在立即窗口输入此句代码后回车 for each vName in thisworkbook.Names:vname.delete:next