Como mesclar automaticamente células em branco acima/esquerda no Excel?

Neste artigo, vou falar sobre como mesclar células em branco acima ou à esquerda automaticamente, conforme mostrado na captura de tela abaixo. Na verdade, não há nenhuma ferramenta interna que possa lidar com essa tarefa, mas os códigos de macro podem.

Mesclar espaços em branco acima

Mesclar espaços em branco à esquerda

Mesclar células em branco acima com base em uma coluna

Mesclar células em branco acima (funciona apenas para coluna única)

Mesclar células em branco à esquerda

Mesclar células em branco acima com base em uma coluna

Suponha que haja um intervalo de dados em três colunas, e agora você deseja mesclar os dados acima com base na Coluna C.

1. Pressione Alt + F11para habilitar a janela do Microsoft Visual Basic for Applications e clique em Inserir > Módulo. Veja a captura de tela:

2. Em seguida, cole o código abaixo no script em branco. Veja a captura de tela:

VBA: Mesclar espaço em branco acima com base na próxima coluna

Sub MergeCells()
'UpdatebyExtendoffice2017025
    Dim xRg As Range
    Dim xCell As Range
    Dim xAddress As String
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select a range:", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    For Each xCell In xRg
        If xCell.Value = "" Then
            Range(xCell, xCell.Offset(-1, 0)).Merge
        End If
    Next
End Sub

3. Pressione a tecla F5 para executar o código, e uma caixa de diálogo aparecerá para lembrá-lo de selecionar um intervalo para trabalhar. Veja a captura de tela:

4. Clique em OK, então as células em branco terão sido mescladas acima. Veja a captura de tela:

Desbloqueie a Magia do Excel com o Kutools AI

• Execução Inteligente: Realize operações de células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
• Fórmulas Personalizadas: Gere fórmulas sob medida para otimizar seus fluxos de trabalho.
• Codificação VBA: Escreva e implemente código VBA sem esforço.
• Interpretação de Fórmulas: Compreenda fórmulas complexas com facilidade.
• Tradução de Texto: Supere barreiras linguísticas dentro de suas planilhas.

Potencialize suas capacidades no Excel com ferramentas alimentadas por IA. Baixe Agora e experimente uma eficiência como nunca antes!

Mesclar células em branco acima (funciona apenas para coluna única)

Aqui está um código de macro que pode mesclar as células em branco acima na coluna especificada.

1. Pressione Alt + F11 para habilitar a janela do Microsoft Visual Basic for Applications e clique em Inserir > Módulo. Veja a captura de tela:

2. Cole o código abaixo no script. Veja a captura de tela:

VBA: Mesclar células em branco acima

Sub mergeblankswithabove()
'UpdatebyExtendoffice20171025
    Dim I As Long
    Dim xRow As Long
    Dim xRg As Range
    Dim xCell As Range
    Dim xAddress As String
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select a range (single column):", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Columns.Count > 1 Then
        MsgBox "Only work for single column", , "KuTools For Excel"
        Exit Sub
    End If
    xRow = xRg.Rows.Count
    Set xRg = xRg(xRow)
    For I = xRow To 1 Step -1
        Set xCell = xRg.Offset(I - xRow, 0)
        Debug.Print xCell.Address
        If xCell.Value = "" Then Range(xCell, xCell.Offset(-1, 0)).Merge
    Next
End Sub

3. Pressione a tecla F5 para executar o código, e uma caixa de diálogo aparecerá para você selecionar um intervalo de coluna. Veja a captura de tela:

4. Clique em OK. E as células em branco na seleção foram mescladas acima.

Mesclar células em branco à esquerda

Se você quiser mesclar células em branco à esquerda, o seguinte código pode ajudá-lo.

1. Pressione Alt + F11 para habilitar a janela do Microsoft Visual Basic for Applications, e clique em Inserir > Módulo. Veja a captura de tela:

2. Em seguida, cole o código abaixo no script em branco. Veja a captura de tela:

VBA: Mesclar espaços em branco à esquerda

Sub mergeblankswithleft()
'UpdatebyExtendoffice20171025
    Dim xRg As Range
    Dim xCell As Range
    Dim xAddress As String
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select a range:", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    For Each xCell In xRg
        If xCell.Value = "" Then Range(xCell, xCell.Offset(0, -1)).Merge
    Next
End Sub

3. Pressione a tecla F5 para executar o código, e uma caixa de diálogo aparecerá para você selecionar um intervalo. Veja a captura de tela:

4. Clique em OK. As células em branco foram mescladas à esquerda.

Mesclar espaços em branco à esquerda