
<p id="34L1PIVO">有时候,</p><p id="34L1PIVP">当我们收到并打开某个Excel表格时,</p><p id="34L1PIVQ">会出现“不同的单元格格式太多”的提示。</p><p class="f_center"><img src="https://nimg.ws.126.net/?url=http%3A%2F%2Fdingyue.ws.126.net%2F2024%2F1029%2F570ee329j00sm3lhx0004d0005o003vm.jpg&thumbnail=660x&quality=80&type=jpg"/><br/></p><p id="34L1PIVU"><strong>此时,我们只能反复多次点击【确定】</strong></p><p id="34L1PIVV">直到提示消失。</p><p id="34L1PJ00">甚至有时候还会导致其它同时打开的</p><p id="34L1PJ01">Excel也受到影响。</p><p id="34L1PJ02">因为还没保存文件,</p><p id="34L1PJ03">Excel应用就卡死了!</p><p id="34L1PJ04">只能通过任务管理器(Ctrl+Shift+Esc)</p><p id="34L1PJ05">强制结束进程再重新打开,</p><p id="34L1PJ06">可是之前的修改却是全没了!</p><p class="f_center"><img src="https://nimg.ws.126.net/?url=http%3A%2F%2Fdingyue.ws.126.net%2F2024%2F1029%2Fd1c83c0aj00sm3lhx001nd000rt00g0m.jpg&thumbnail=660x&quality=80&type=jpg"/><br/></p><p id="34L1PJ09">当我们拿到的表格数据来源众多且经过了不断的复制和粘贴,就很容易遇到Excel使用的单元格<strong>格式数量达到上限</strong>,以至于出现“不同的单元格格式太多”的提示。<br/></p><p id="34L1PJ0A">不过,别着急,我们只需要借助VBA代码,将单元格格式批量删除就可以了。</p><p id="34L1PJ0E"><strong>具体操作步骤</strong></p><p id="34L1PJ0H">1. 在运行代码前建议先复制并粘贴一份Excel副本,以防Excel损坏导致数据丢失。<br/></p><p class="f_center"><img src="https://nimg.ws.126.net/?url=http%3A%2F%2Fdingyue.ws.126.net%2F2024%2F1029%2Ff0a68be7j00sm3lhx0006d0006q007nm.jpg&thumbnail=660x&quality=80&type=jpg"/><br/></p><p id="34L1PJ0J">2. 按【Alt+F11】键,打开编辑器。依次点击【插入】【模块】,在空白处输入以下代码:</p><p id="34L1PJ0K">Sub delstylelzj()</p><p id="34L1PJ0L">Dim mystyle As Style</p><p id="34L1PJ0M">On Error Resume Next</p><p id="34L1PJ0N">For Each mystyle In ActiveWorkbook.Styles</p><p id="34L1PJ0O">If mystyle.BuiltIn = False Then mystyle.Delete</p><p id="34L1PJ0P">Next</p><p id="34L1PJ0Q">End Sub</p><p id="34L1PJ0S">3. 复制这断代码到空白模块中,并对照图片调整格式:</p><p id="34L1PJ0U">4. 鼠标在输入的代码中任意位置点一下,确保运行的是当前代码。然后点击工具栏上的绿色“运行”图标开始运行。代码运行需要一些时间,请耐心等待。运行代码后将删除所有自定义单元格样式,但保留Excel自带的单元格样式。</p><p id="34L1PJ10">5. 完成后依次关闭所有窗口,最后记得【保存】一下之前改动的数据哦。</p><p class="f_center"><img src="https://nimg.ws.126.net/?url=http%3A%2F%2Fdingyue.ws.126.net%2F2024%2F1029%2F200aa202j00sm3lhx0005d000m.jpg&thumbnail=660x&quality=80&type=jpg"/><br/></p>
讯享网

版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容,请联系我们,一经查实,本站将立刻删除。
如需转载请保留出处:https://51itzy.com/kjqy/147789.html