Sub deleteStyles() Dim s As Style O

Sub deleteStyles() Dim s As Style On Error Resume Next For Each s In ThisWorkbook.Styles If Not s.BuiltIn Then s.Delete Next MsgBox "所有讨厌的自定义格式都删除啦！" End Sub

0/5000

源语言: -

目标语言: -

结果 (简体中文) 1: [复制]

复制成功！

Sub deleteStyles() Dim s As Style On Error Resume Next For Each s In ThisWorkbook.Styles If Not s.BuiltIn Then s.Delete Next MsgBox "所有讨厌的自定义格式都删除啦！" End Sub

正在翻译中..

结果 (简体中文) 2:[复制]

复制成功！

子删除样式（） Dim s 作为样式 在错误恢复下一步 对于本作业本中的每个 s. 样式 如果不是 s. 内置然后 s. 删除 下一个 Msgbox "~！ 结束子

正在翻译中..

结果 (简体中文) 3:[复制]

复制成功！

子删除样式（） Dim s作为样式 出错时继续下一步 对于中的每个s此工作簿。样式 如果不是s.BuiltIn，则s.Delete 下一个 “方法” 端接头

正在翻译中..

其它语言

本翻译工具支持: 世界语, 丹麦语, 乌克兰语, 乌兹别克语, 乌尔都语, 亚美尼亚语, 伊博语, 俄语, 保加利亚语, 信德语, 修纳语, 僧伽罗语, 克林贡语, 克罗地亚语, 冰岛语, 加利西亚语, 加泰罗尼亚语, 匈牙利语, 南非祖鲁语, 南非科萨语, 卡纳达语, 卢旺达语, 卢森堡语, 印地语, 印尼巽他语, 印尼爪哇语, 印尼语, 古吉拉特语, 吉尔吉斯语, 哈萨克语, 土库曼语, 土耳其语, 塔吉克语, 塞尔维亚语, 塞索托语, 夏威夷语, 奥利亚语, 威尔士语, 孟加拉语, 宿务语, 尼泊尔语, 巴斯克语, 布尔语(南非荷兰语), 希伯来语, 希腊语, 库尔德语, 弗里西语, 德语, 意大利语, 意第绪语, 拉丁语, 拉脱维亚语, 挪威语, 捷克语, 斯洛伐克语, 斯洛文尼亚语, 斯瓦希里语, 旁遮普语, 日语, 普什图语, 格鲁吉亚语, 毛利语, 法语, 波兰语, 波斯尼亚语, 波斯语, 泰卢固语, 泰米尔语, 泰语, 海地克里奥尔语, 爱尔兰语, 爱沙尼亚语, 瑞典语, 白俄罗斯语, 科西嘉语, 立陶宛语, 简体中文, 索马里语, 繁体中文, 约鲁巴语, 维吾尔语, 缅甸语, 罗马尼亚语, 老挝语, 自动识别, 芬兰语, 苏格兰盖尔语, 苗语, 英语, 荷兰语, 菲律宾语, 萨摩亚语, 葡萄牙语, 蒙古语, 西班牙语, 豪萨语, 越南语, 阿塞拜疆语, 阿姆哈拉语, 阿尔巴尼亚语, 阿拉伯语, 鞑靼语, 韩语, 马其顿语, 马尔加什语, 马拉地语, 马拉雅拉姆语, 马来语, 马耳他语, 高棉语, 齐切瓦语, 等语言的翻译.