Note: The other languages of the website are Google-translated. Back to English

如何從Excel的單元格中刪除或刪除所有刪除線文本或字符?

本文討論的是從Excel中的多個單元格中刪除所有刪除線文本或字符。

使用VBA代碼從單元格中刪除所有刪除線文本


使用VBA代碼從單元格中刪除所有刪除線文本

下面的VBA代碼可以幫助您刪除標有刪除線的單元格中的所有文本。 請執行以下操作。

1.在工作表中包含您需要刪除的刪除線文本,按 其他 + F11 同時打開 Microsoft Visual Basic for Applications 窗口。

2。 在裡面 Microsoft Visual Basic for Applications 窗口,請點擊 插頁 > 模塊。 然後將下面的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 Sub

3。 按 F5 鍵或單擊 按鈕運行代碼。 在彈出 Excel的Kutools 對話框,請選擇包含要刪除的刪除線文本的範圍,然後單擊 OK 按鈕。 看截圖:

然後,所有標有刪除線的文本將立即從單元格中刪除,如下圖所示。


相關文章:


最佳辦公效率工具

Kutools for Excel 解決了你的大部分問題,並將你的生產力提高了 80%

  • 重用: 快速插入 複雜的公式,圖表 以及您以前使用過的任何東西; 加密單元 帶密碼 創建郵件列表 並發送電子郵件...
  • 超級公式欄 (輕鬆編輯多行文本和公式); 閱讀版式 (輕鬆讀取和編輯大量單元格); 粘貼到過濾範圍...
  • 合併單元格/行/列 不會丟失數據; 拆分單元格內容; 合併重複的行/列...防止細胞重複; 比較範圍...
  • 選擇重複或唯一 行; 選擇空白行 (所有單元格都是空的); 超級查找和模糊查找 在許多工作簿中; 隨機選擇...
  • 確切的副本 多個單元格,無需更改公式參考; 自動創建參考 到多張紙; 插入項目符號,複選框等...
  • 提取文字,添加文本,按位置刪除, 刪除空間; 創建和打印分頁小計; 在單元格內容和註釋之間轉換...
  • 超級濾鏡 (將過濾方案保存並應用於其他工作表); 高級排序 按月/週/日,頻率及更多; 特殊過濾器 用粗體,斜體...
  • 結合工作簿和工作表; 根據關鍵列合併表; 將數據分割成多個工作表; 批量轉換xls,xlsx和PDF...
  • 超過 300 項強大的功能. 支持 Office / Excel 2007-2021 和 365。支持所有語言。 在您的企業或組織中輕鬆部署。 完整功能 30 天免費試用。 60 天退款保證。
kte選項卡201905

Office選項卡為Office帶來了選項卡式界面,使您的工作更加輕鬆

  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!
officetab底部
按評論排序
留言 (10)
還沒有評分。 成為第一位評論!
網站主持人對此評論進行了最小化
這不起作用。 Excel 進入無響應狀態。
網站主持人對此評論進行了最小化
美好的一天,
帶來不便敬請諒解。 你會提供你的Office版本嗎? 謝謝你的評論。
網站主持人對此評論進行了最小化
同樣在這裡。

我正在使用 Office 365 專業增強版
網站主持人對此評論進行了最小化
它在小範圍內工作。 我認為它進入無響應的原因是因為當您有大量數據要通過時,宏需要永遠。 這個宏正在檢查每個字符是否有刪除線。

我建議添加在完成後重新格式化單元格的代碼,因為我有幾個單元格,其中代碼刪除了刪除線文本,但剩餘的文本仍然是刪除線。 我相信這是因為整個單元格的格式是刪除線,而非刪除線文本的格式不同,所以僅供參考。
網站主持人對此評論進行了最小化
可以通過 python、pandas 完成嗎?
如果是的話,任何人都可以幫我解決這個問題嗎?
網站主持人對此評論進行了最小化
嗨,吉里什,
該代碼尚未在 python、pandas 中進行測試。 抱歉不能幫你。 感謝您的評論。
網站主持人對此評論進行了最小化
我將它用於整個專欄,我的 excel 再也沒有回來....
網站主持人對此評論進行了最小化
嗨,桑,
您能提供您正在使用的 Excel 版本嗎?
該代碼在我的情況下運行良好。
很抱歉給您帶來不便。
網站主持人對此評論進行了最小化
嘿,伙計們,這對我有用,但在某些情況下,它會以某種方式更改未格式化為刪除線的文本。 輕鬆修復以返回並抽查特定實例中的數據並取消刪除範圍。
網站主持人對此評論進行了最小化
您好,您使用的是哪個 Excel 版本?
這裡還沒有評論
留下你的意見
以訪客身份發帖
×
評價此帖子:
0   字符
推薦地點

關注我們

版權所有©2009 - 萬維網。extendoffice.com。 | 版權所有。 供電 ExtendOffice。 |
Microsoft和Office徽標是Microsoft Corporation在美國和/或其他國家的商標或註冊商標。
受Sectigo SSL保護