如何删除单元格中带有删除线的内容

琉璃舟

详见附件想把删除线的内容都删掉，目前写的程序见附件


问题在于，如果有两段删除线，就无法删掉，只会删除第一个200

半百

请测试

琉璃舟

半百 发表于 2024-2-20 11:23
请测试

感谢您的回复，我理解您的思路了，就是先把带删除线的替换成一个字符。
我回头修改下，先检查下现有单元格是否有该字符，谢谢。

smiletwo

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.2.20   删除单元格中的删除线字符
   
2.     With Sheets("Sheet2")
   
3.         Set Rng = .UsedRange
   
4.         For Each cell In Rng
   
5.             s = cell.Value2
   
6.             newText = ""
   
7.             For i = 1 To Len(s)
   
8.                 If cell.Characters(i, 1).Font.Strikethrough = False Then
   
9.                     newText = newText & Mid(s, i, 1)
   
10.                 End If
    
11.             Next i
    
12.             cell.Value = newText
    
13.             If cell.HasFormula = False Then
    
14.                 cell.Font.Strikethrough = False
    
15.             End If
    
16.         Next
    
17.     End With
    
18. End Sub
    

复制代码

琉璃舟

ykcbf1100 发表于 2024-2-20 15:26
参与一下。。。

您跟楼上方式类似，请问下增加的HASformula是什么意思呢