Como inserir uma linha em branco acima de um 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.
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:
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:
4. Então clique Ok botão, todas as células cujo valor é Mike são selecionadas de uma vez, veja a imagem:
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:
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
Melhores ferramentas de produtividade de escritório
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...
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!