Ir para o conteúdo principal

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”.

Note: 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 do 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!

Melhores ferramentas de produtividade de escritório

Recursos mais comuns: Encontre, destaque ou identifique duplicatas   |  Excluir linhas em branco   |  Combine colunas ou células sem perder dados   |   Rodada sem Fórmula ...
Super pesquisa: VLookup de múltiplos critérios    VLookup de múltiplos valores  |   VLookup em várias planilhas   |   Pesquisa Difusa ....
Lista suspensa avançada: Crie rapidamente uma lista suspensa   |  Lista suspensa de dependentes   |  Lista suspensa de seleção múltipla ....
Gerenciador de colunas: Adicione um número específico de colunas  |  Mover colunas  |  Alternar status de visibilidade de colunas ocultas  |  Compare intervalos e colunas ...
Recursos em destaque: Foco da Grade   |  Vista de Design   |   Grande Barra de Fórmula    Gerenciador de pastas de trabalho e planilhas   |  Biblioteca (Auto texto)   |  Data Picker   |  Combinar planilhas   |  Criptografar/Descriptografar Células    Enviar e-mails por lista   |  Super Filtro   |   Filtro Especial (filtro negrito/itálico/tachado...) ...
15 principais conjuntos de ferramentas12 Texto Ferramentas (Adicionar texto, Remover Personagens, ...)   |   50+ de cores Tipos (Gráfico de Gantt, ...)   |   Mais de 40 práticos Fórmulas (Calcule a idade com base no aniversário, ...)   |   19 Inclusão Ferramentas (Insira o código QR, Inserir imagem do caminho, ...)   |   12 Conversão Ferramentas (Números para Palavras, Conversão de moedas, ...)   |   7 Unir e dividir Ferramentas (Combinar linhas avançadas, Dividir células, ...)   |   ... e mais

Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo.  Clique aqui para obter o recurso que você mais precisa...

guia kte 201905


Office Tab 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!
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I try do it to put a blank row after every non-empty cell, but excel says. "That command cannot be used on multiple selections"
Why it dosnt work for me???
This comment was minimized by the moderator on the site
Is there a way not to appears dialog box with pop out to remind me to select the column data which contains specific text I want to insert row above, If a specified cell is filled with data, then process run automatically , without promptings, and insert row above?
This comment was minimized by the moderator on the site
This has been amazing for the data I have. I was wondering if you could help me one step further. I have been able to split my data based on this, but then I need to colour code my groups of data. When I split my data I have a variable number of rows from 1-50, and I have 36 columns of data including 32 columns that I need to compare the values within to the top row. I am currently manually selecting each group (as separated by a blank row) and then using ctrl+shift+| to highlight column differences, and formatting those cells to highlight the differences.


Is there anyone who could write a code to select and format those column differences within the groupings, using the blank row as a separator?
This comment was minimized by the moderator on the site
Hi, i have a similar problem as the one above. What if i want to select the cell below a specified criteria? For example, you can use the example from above. i want to select the cell below "Mike". is there any easy way out?
This comment was minimized by the moderator on the site
@SSJ did you ever find a solution?
This comment was minimized by the moderator on the site
Hello, guys,

To insert blank rows below a specific cell value, you can apply the following code:

Sub BlankLine()
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.Columns(1)
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = False
For xRowIndex = xLastRow To 1 Step -1
Set Rng = WorkRng.Range("A" & xRowIndex)
If Rng.Value = "Mike" Then
Rng.Offset(1, 0).EntireRow.Insert Shift:=xlDown
End If
Next
Application.ScreenUpdating = True
End Sub

Please change the criteria "Mike" to your own cell value.

Hope it can help you, thank you!
This comment was minimized by the moderator on the site
thank you! its worked.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations