選択範囲の取消線を削除します。
納品時の作業で利用することあり。
Sub StrikethroughDel() For Each myCell In Selection textBefore = myCell.Value textAfter = "" For i = 1 To Len(textBefore) If myCell.Characters(Start:=i, Length:=1).Font.Strikethrough = False Then textAfter = textAfter & Mid(textBefore, i, 1) End If Next i Next myCell End Sub