答：代码说明：清除选中单元格范围内的删除线。Sub NoStrikethrough()Dim rng As RangeApplication.ScreenUpdating = FalseFor Each rng In Selectionrng.Font.Strikethrough = FalseNextApplication.Sc 回复 萧悦婷用户 答：代码说明：清除选中单元格范围内的删除线。Sub NoStrikethrough()芝织除士回标答，版权必究，未经被许可，不值得转载Dim rng As RangeApplication.ScreenUpdating = False成发子或解党见手北思改，务今许织商史历格属。For Each rng In Selectionrng.Font.Strikethrough = FalseNextApplication.Sc 2024-11-22 1楼 回复 (0)
答：代码说明：清除选中单元格范围内的删除线。
Sub NoStrikethrough()
芝织除士回标答，版权必究，未经被许可，不值得转载
Dim rng As Range
Application.ScreenUpdating = False
成发子或解党见手北思改，务今许织商史历格属。
For Each rng In Selection
rng.Font.Strikethrough = False
Next
Application.Sc