如何从Excel的单元格中删除或删除所有删除线文本或字符？ |
您所在的位置：网站首页 › 怎么把excel里的照片全部删除 › 如何从Excel的单元格中删除或删除所有删除线文本或字符？ |
如何从Excel的单元格中删除或删除所有删除线文本或字符？
|
如何从Excel的单元格中删除或删除所有删除线文本或字符？
添加一名作者
最后修改时间：2020-09-07
本文讨论的是从Excel中的多个单元格中删除所有删除线文本或字符。 使用VBA代码从单元格中删除所有删除线文本 使用VBA代码从单元格中删除所有删除线文本
惊人的！ 在 Excel 中使用高效的选项卡，如 Chrome、Edge、Firefox 和 Safari！ 每天节省50％的时间，并减少数千次鼠标单击！ 下面的VBA代码可以帮助您删除标有删除线的单元格中的所有文本。 请执行以下操作。 1.在工作表中包含您需要删除的删除线文本，按 其他 + F11 同时打开 Microsoft Visual Basic应用程序 窗口。 2.在 Microsoft Visual Basic应用程序 窗口，请点击 插页 > 模块。 然后将下面的VBA代码复制并粘贴到“代码”窗口中。 VBA代码：从单元格中删除所有删除线文本 Sub DelStrikethroughText() Dim xRg As Range, xCell As Range Dim xStr As String Dim I As Long On Error Resume Next Set xRg = Application.InputBox("Please select range：", "KuTools For Excel", Selection.Address, , , , , 8) If xRg Is Nothing Then Exit Sub Application.ScreenUpdating = Fase For Each xCell In xRg If IsNumeric(xCell.Value) And xCell.Font.Strikethrough Then xCell.Value = "" ElseIf Not IsNumeric(xCell.Value) Then For I = 1 To Len(xCell) With xCell.Characters(I, 1) If Not .Font.Strikethrough Then xStr = xStr & .Text End If End With Next xCell.Value = xStr xStr = "" End If Next Application.ScreenUpdating = True End Sub3。 按 F5 键或单击 运行 按钮运行代码。 在弹出 Kutools for Excel 对话框，请选择包含要删除的删除线文本的范围，然后单击 OK 按钮。 看截图：
然后，所有标有删除线的文本将立即从单元格中删除，如下图所示。
使用 Kutools for Excel 增强您的 Excel 技能，体验前所未有的效率。 Kutools for Excel 提供了 300 多种高级功能来提高生产力并节省时间。 单击此处获取您最需要的功能... 
阅读更多
免费下载...
|
【本文地址】
今日新闻 |
推荐新闻 |