删除线快捷键 如何批量去除Excel单元格中的带有删除线的文字

栏目：国内 2021-11-29 21:56:47
分享到:

各位工作中是否遇到以下情况，某些单元格中的信息由于更新后，还保留了之前的旧数据，旧版本数据设置了删除线（快捷键：Ctrl+5)，造成了新数据和旧数据同时存在与一个单元格的情况。

而往往当这些信息流转到我们手头上时候，我们大部分情况下是只需要用到最新的数据，而一些旧版本的数据需要删除掉。当数据量比较大的时候，我们需要借助VBA来完成这一项工作。

代码如下：

Sub T25分离删除线文本

Dim a, b, c

Dim m, n

a = Selection.Row

b = Selection.Column

Do Until Cells = ""

m = Cells.Characters.Count

n = 1

Do Until n > m

If Cells.Characters.Font.Strikethrough = False Then

Cells = Cells.Value & Mid, n, 1)

End If

n = n + 1

Loop

a = a + 1

Loop

End Sub

动画演示