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

Como inserir uma linha em branco após um texto específico no Excel?

Se você deseja inserir linhas em branco após um texto específico, como mostrado a seguir, como lidar com isso de forma rápida e fácil sem inseri-las manualmente uma por uma?

Insira linhas em branco após o texto específico com código VBA


Insira linhas em branco após o texto específico com código VBA

Você pode aplicar o código VBA abaixo para inserir linhas em branco após o texto específico de que precisa, faça o seguinte:

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

2. Clique inserção > Móduloe cole o código a seguir na janela do módulo.

Código VBA: insira linhas em branco após o texto específico

Sub Insertrowbelow()
'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, "In progressing") > 0 Then
        Rows(xRng.Cells(i + 1, 1).Row).INSERT shift:=xlDown
      End If
    Next
End Sub

Nota: No código acima, você pode alterar o valor do texto “Em progresso”A quaisquer outros valores que você deseja do script If InStr (1, xRng.Cells (i, 1) .Value, "In progressing")> 0 Then.

3. Então aperte F5 para executar este código, na caixa de diálogo exibida, selecione os dados da coluna que contém o texto específico que você deseja usar, consulte a captura de tela:

4. E então, clique OK botão, e as linhas em branco foram inseridas após o determinado texto que você especificou, consulte a captura de tela:


Mais artigos de linhas de inserção relativas:

  • Copiar e inserir a linha várias vezes ou duplicar a linha X vezes
  • Em seu trabalho diário, você já tentou copiar uma linha ou cada linha e, em seguida, inserir várias vezes abaixo da linha de dados atual em uma planilha? Por exemplo, eu tenho um intervalo de células, agora, quero copiar cada linha e colá-las 3 vezes na próxima linha, como mostrado a seguir na captura de tela. Como você poderia lidar com esse trabalho no Excel?
  • Inserir linhas em branco quando o valor mudar no Excel
  • Supondo que você tenha um intervalo de dados e agora queira inserir linhas em branco entre os dados quando o valor mudar, para que possa separar os mesmos valores sequenciais em uma coluna, conforme as capturas de tela a seguir mostradas. Neste artigo, falarei sobre alguns truques para você resolver esse problema.
  • Inserir linha em branco acima do texto específico no Excel
  • 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.

  • 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 e manutenção de dados; Dividir o conteúdo das células; Combine Linhas Duplicadas e Soma / Média... 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 ...
  • Fórmulas favoritas e de inserção rápida, Intervalos, gráficos e imagens; Criptografar células com senha; Criar lista de discussão e enviar emails ...
  • 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...
  • Agrupamento de tabela dinâmica por número da semana, dia da semana e mais ... Mostrar células desbloqueadas, bloqueadas por cores diferentes; Destacar células que possuem fórmula / nome...
guia kte 201905
  • 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 (2)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
Isso é tão útil! Mas como adiciono novas linhas após vários textos diferentes. Por exemplo, quero adicionar uma linha após SB2 e BB2, isso é possível? ou eu só preciso executá-lo duas vezes com dois textos diferentes?
Este comentário foi feito pelo moderador no site
Você pode usar a função textjoin adicionando a mesma palavra no final de cada linha e, em seguida, exclua essa palavra com ctrl+f
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