Excel如何通过VBA批量去掉删除线
答案:2 悬赏:0 手机版
解决时间 2021-02-20 18:40
- 提问者网友：动次大次蹦擦擦
- 2021-02-20 09:57
Excel如何通过VBA批量去掉删除线，删除线的位置是单元格的中间部分。需要能够保留未标注删除线的部分。
最佳答案
- 五星知识达人网友：舍身薄凉客
- 2021-02-20 10:22
代码说明：清除选中单元格范围内的删除线。
Sub NoStrikethrough()
Dim rng As Range
Application.ScreenUpdating = False
For Each rng In Selection
rng.Font.Strikethrough = False
Next
Application.ScreenUpdating = True
End Sub
Sub NoStrikethrough()
Dim rng As Range
Application.ScreenUpdating = False
For Each rng In Selection
rng.Font.Strikethrough = False
Next
Application.ScreenUpdating = True
End Sub
全部回答
- 1楼网友：零点过十分
- 2021-02-20 12:01
代码及注释如下：<br>sub shanchu()<br>application.displayalerts = false'关闭提示，否则每删除一个非空工作表，都会出现提示<br>for i = 2 to [g65536].end(3).row'i从2到g列最后一个非空行数循环<br>sheets(cells(i, 7).delete'将工作表名为g列对应的工作表删除<br>next<br>application.displayalerts = true'开启提示<br>end sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯