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 Sub

3. 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 Sub

3. 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:

• Como colocar em negrito apenas a primeira linha ou a primeira palavra em uma célula no Excel?