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

Como inserir uma linha em branco acima de um texto específico no Excel?

doc inserir linha acima do texto específico 1 2 doc inserir linha acima do texto específico 2

Ao trabalhar em uma planilha, você já tentou inserir uma linha em branco acima de um texto específico em uma coluna? Por exemplo, existem alguns nomes na coluna A, agora, eu quero inserir linhas em branco acima das células que contêm o nome “Mike” conforme a imagem à esquerda mostrada, talvez não haja uma maneira direta de você resolver esta tarefa no Excel . Neste artigo, vou falar sobre alguns bons truques para lidar com esse trabalho no Excel.

Insira uma linha em branco acima do texto específico com o código VBA

Insira uma linha em branco acima do texto específico com o Kutools para Excel


Insira uma linha em branco acima do texto específico com o código VBA

Inserir uma linha em branco acima do texto específico manualmente, um por um, vai perder muito tempo, aqui, criarei um código VBA para você inserir a linha em branco acima do valor da célula específica de uma vez.

1. Segure o ALT + F11 chaves, e abre o Microsoft Visual Basic para Aplicações janela.

2. Clique inserção > Móduloe cole a macro a seguir no Módulo Janela.

Código VBA: insira uma linha em branco acima do texto específico rapidamente

Sub test1()
'updateby Extendoffice
    Dim i As Long
    Dim xLast As Long
    Dim xRng As Range
    Dim xTxt As String
    On Error Resume Next
    xTxt = Application.ActiveWindow.RangeSelection.Address
    Set xRng = Application.InputBox("please select the column with specific text:", "Kutools for Excel", xTxt, , , , , 8)
    If xRng Is Nothing Then Exit Sub
    If (xRng.Columns.Count > 1) Then
        MsgBox "the selected range must be one column", , "Kutools for Excel"
        Exit Sub
    End If
    xLast = xRng.Rows.Count
    For i = xLast To 1 Step -1
      If InStr(1, xRng.Cells(i, 1).Value, "Mike") > 0 Then
        Rows(xRng.Cells(i, 1).Row).Insert shift:=xlDown
      End If
    Next
End Sub

3. Então aperte F5 para executar este código, e uma caixa de diálogo aparecerá para lembrá-lo de selecionar os dados da coluna que contém o texto específico que você deseja inserir na linha acima, veja a captura de tela:

doc inserir linha acima do texto específico 3

4. E, em seguida, clique em OK botão, as linhas em branco foram inseridas acima do texto específico “Mike”.

Nota: No código acima, você pode alterar o valor do texto “microfone”A quaisquer outros valores que você deseja do script Se InStr (1, xRng.Cells (i, 1) .Value, "Mike")> 0 Então.


Insira uma linha em branco acima do texto específico com o Kutools para Excel

Se você tem Kutools for Excel, Com o seu Selecione células específicas recurso, você pode selecionar os valores de célula especificados primeiro e, em seguida, aplicar o utilitário Inserir Linhas da Planilha do Excel para inserir as linhas em branco de uma vez.

Kutools for Excel : com mais de 300 suplementos úteis do Excel, grátis para testar sem limitação em 30 dias

Depois de instalar Kutools for Excel, faça o seguinte:

1. Selecione o intervalo de dados que você deseja usar.

2. Então clique Kutools > Selecionar > Selecione células específicas, veja a captura de tela:

3. No Selecione células específicas caixa de diálogo, selecione Célula sob a Tipo de seleçãoe, a seguir, especifique os critérios de que você precisa no Tipo específico seção, neste caso, vou escolher É igual a de Tipo específicoe digite o nome que desejo selecionar, veja a captura de tela:

doc inserir linha acima do texto específico 5

4. Então clique Ok botão, todas as células cujo valor é Mike são selecionadas de uma vez, veja a imagem:

doc inserir linha acima do texto específico 6

5. Depois de selecionar as células de texto específicas, clique Início > inserção > Inserir linhas de folha, e as linhas em branco serão inseridas acima do texto selecionado, veja as capturas de tela:

doc inserir linha acima do texto específico 7 2 doc inserir linha acima do texto específico 2

 Baixe e teste grátis Kutools para Excel agora!


Demonstração: Insira uma linha em branco acima do texto específico com o Kutools para Excel

Kutools for Excel: com mais de 300 suplementos úteis do Excel, grátis para testar sem limitação em 30 dias. Baixe e teste grátis agora!

As melhores ferramentas de produtividade para escritório

O Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%

  • armadilha para peixes: Insira rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de discussão e enviar emails ...
  • Barra Super Fórmula (edite facilmente várias linhas de texto e fórmula); Layout de leitura (ler e editar facilmente um grande número de células); Colar na faixa filtrada...
  • Mesclar células / linhas / colunas sem perder dados; Dividir o conteúdo das células; Combinar linhas / colunas duplicadas... Evite células duplicadas; Comparar intervalos...
  • Selecione Duplicado ou Único Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros; Seleção aleatória ...
  • Cópia exata Várias células sem alterar a referência da fórmula; Criação automática de referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
  • Extrair Texto, Adicionar texto, remover por posição, Remover Espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
  • Super Filtro (salvar e aplicar esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro Especial por negrito, itálico ...
  • Combine pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Divida os dados em várias folhas; Conversão em lote de xls, xlsx e PDF...
  • Mais de 300 recursos poderosos. Suporta Office / Excel 2007-2021 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Recursos completos de avaliação gratuita de 30 dias. Garantia de devolução do dinheiro em 60 dias.
guia kte 201905

Guia do Office 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!
parte inferior da aba do escritório
Comentários (7)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
Olá, estou com um problema semelhante ao anterior. E se eu quiser selecionar a célula abaixo de um critério especificado? Por exemplo, você pode usar o exemplo acima. eu quero selecionar a célula abaixo de "Mike". existe alguma saída fácil?
Este comentário foi feito pelo moderador no site
@SSJ você já encontrou uma solução?
Este comentário foi feito pelo moderador no site
Olá, pessoal,

Para inserir linhas em branco abaixo de um valor de célula específico, você pode aplicar o seguinte código:

Sub Linha em Branco()
Dim Rng como intervalo
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Definir WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Definir WorkRng = WorkRng.Columns(1)
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = False
Para xRowIndex = xLastRow Para 1 Etapa -1
Set Rng = WorkRng.Range("A" & xRowIndex)
Se Rng.Value = "Mike" Então
Rng.Offset(1, 0).EntireRow.Insert Shift:=xlDown
Se acabar
Seguinte
Application.ScreenUpdating = True
End Sub

Por favor, altere os critérios "Mike" para o seu próprio valor de célula.

Espero que possa ajudá-lo, obrigado!
Este comentário foi feito pelo moderador no site
obrigada! seu funcionou.
Este comentário foi feito pelo moderador no site
Isso tem sido incrível para os dados que tenho. Eu queria saber se você poderia me ajudar um passo adiante. Consegui dividir meus dados com base nisso, mas preciso codificar por cores meus grupos de dados. Quando divido meus dados, tenho um número variável de linhas de 1 a 50 e tenho 36 colunas de dados, incluindo 32 colunas, que preciso comparar os valores com a linha superior. Atualmente, estou selecionando manualmente cada grupo (separado por uma linha em branco) e usando ctrl+shift+| para destacar as diferenças das colunas e formatar essas células para destacar as diferenças.


Existe alguém que poderia escrever um código para selecionar e formatar essas diferenças de coluna dentro dos agrupamentos, usando a linha em branco como separador?
Este comentário foi feito pelo moderador no site
Existe uma maneira de não aparecer a caixa de diálogo com pop-out para me lembrar de selecionar os dados da coluna que contém o texto específico que desejo inserir a linha acima, se uma célula especificada for preenchida com dados, o processo será executado automaticamente, sem avisos, e insira linha acima?
Este comentário foi feito pelo moderador no site
Eu tento fazer isso para colocar uma linha em branco após cada célula não vazia, mas o Excel diz. "Esse comando não pode ser usado em várias seleções"
Por que não funciona para mim???
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos

Siga-nos

Copyright © 2009 - www.extendoffice.com. | Todos os direitos reservados. Distribuído por ExtendOffice. | | | Mapa do site
Microsoft e o logotipo do Office são marcas comerciais ou marcas registradas da Microsoft Corporation nos Estados Unidos e / ou em outros países.
Protegido por Sectigo SSL