Como remover ou excluir todos os textos tachados ou caracteres de células no Excel?
Este artigo trata da remoção de todos os textos tachados ou caracteres de várias células no Excel.
Remova todos os textos tachados de células com código VBA
Remova todos os textos tachados de células com código VBA
O código VBA abaixo pode ajudá-lo a remover todos os textos nas células que foram marcados com tachado. Faça o seguinte.
1. Na planilha que contém os textos tachados que você precisa remover, pressione o botão outro + F11 simultaneamente para abrir o Microsoft Visual Basic para Aplicações janela.
2. No Microsoft Visual Basic para Aplicações janela, por favor clique Inserção > Módulo. Em seguida, copie e cole o código VBA abaixo na janela Código.
Código VBA: remove todos os textos tachados das células
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. aperte o F5 ou clique no Execute botão para executar o código. No surgimento Kutools for Excel caixa de diálogo, selecione o intervalo que contém os textos tachados que você removerá e clique no botão OK botão. Veja a imagem:
Em seguida, todos os textos marcados com um tachado são removidos das células imediatamente, conforme mostrado abaixo.
Artigos relacionados:
- Como remover texto antes ou depois de um caractere específico no Excel?
- Como remover texto indesejado de uma célula no Excel?
- Como remover números de células que contêm textos e números no Excel?
- Como remover apenas texto de células que contenham números e textos no Excel?
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
