Como excluir todas as linhas em branco ou apenas a primeira linha em uma célula no Excel?
Você pode receber uma pasta de trabalho com células contendo várias linhas de texto misturadas com linhas em branco. Como excluir essas linhas em branco nas células? E quanto a excluir apenas a primeira linha? Este artigo irá guiá-lo pelo processo passo a passo.
Excluir todas as linhas em branco nas células com código VBA
Excluir apenas a primeira linha nas células com código VBA
Excluir todas as linhas em branco nas células com código VBA
Como mostrado na captura de tela abaixo, para excluir todas as linhas em branco nas células, você pode executar o seguinte código VBA para realizar isso.
1. Pressione as teclas Alt + F11 no seu teclado, depois abrirá uma janela do Microsoft Visual Basic for Applications.
2. Na janela do Microsoft Visual Basic for Applications, clique em Inserir > Módulo. Em seguida, copie e cole o código VBA abaixo na janela Módulo.
Código VBA: Excluir todas as linhas em branco nas células
Sub DoubleReturn()
Dim xRng As Range, xCell As Range
Dim I As Integer
On Error Resume Next
Set xRng = Application.InputBox("Please select range:", "Kutools for Excel", Selection.Address, , , , , 8)
If xRng Is Nothing Then Exit Sub
On Error Resume Next
For Each xCell In xRng
For I = 1 To Len(xCell) - Len(WorksheetFunction.Substitute(xCell, Chr(10), ""))
xCell = Replace(xCell, Chr(10) + Chr(10), Chr(10))
Next
Next
End Sub3. Pressione a tecla F5 para executar o código. Depois, selecione as células com linhas em branco que deseja excluir na caixa de diálogo Kutools para Excel. E finalmente clique no botão OK.
Você verá que todas as linhas em branco foram removidas das células especificadas, como mostrado na captura de tela abaixo. Os textos ainda estão localizados em diferentes linhas.
Excluir apenas a primeira linha nas células com código VBA
Como mostrado na captura de tela abaixo, para excluir a primeira linha nas células A2 e A3, o seguinte código VBA pode ajudar.
1. Pressione as teclas Alt + F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Na janela do Microsoft Visual Basic for Applications, clique em Inserir > Módulo. Em seguida, copie e cole o código VBA abaixo na janela Módulo.
Código VBA: Excluir apenas a primeira linha nas células
Option Explicit
Sub RemoveFirstLine(ByRef Target As Range)
Dim xCell As Range
For Each xCell In Target.Cells
xCell.Value = Right(xCell.Value, Len(xCell.Value) - InStr(1, xCell.Value, vbLf))
Next
End Sub
Sub StartRemove()
Dim xRng As Range
On Error Resume Next
Set xRng = Application.InputBox("Please select range:", "Kutools for Excel", Selection.Address, , , , , 8)
If xRng Is Nothing Then Exit Sub
On Error Resume Next
RemoveFirstLine xRng
End Sub3. Pressione a tecla F5 para executar o código. Na caixa de diálogo Kutools para Excel que aparece, selecione as células onde você precisa excluir apenas a primeira linha e depois clique no botão OK.
Você verá que as primeiras linhas são removidas das células especificadas, como mostrado na captura de tela abaixo.
Artigo relacionado:
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins