Como excluir linhas com base na cor de fundo no Excel?
Como eliminar uma linha inteira com base na cor de fundo? Neste exemplo, pretende-se eliminar todas as linhas cujas células tenham a cor de fundo azul, conforme ilustrado na seguinte captura de ecrã. Com este artigo, obterá alguns códigos para realizar esta tarefa no Excel.
Excluir linhas com Cor de Fundo específicas com base em cada célula
Excluir linhas com Cor de Fundo específicas com base numa coluna
Excluir linhas com Cor de Fundo específicas com base em cada célula
Se tiver um intervalo de dados preenchido aleatoriamente com algumas cores de células e precisar de eliminar as linhas cuja cor da célula seja azul, conforme mostrado na seguinte captura de ecrã:
Para eliminar este tipo de linhas, pode utilizar o seguinte código VBA; siga estes passos:
1. Mantenha premidas as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo e cole o código seguinte na janela do Módulo.
Código VBA: Excluir linhas cujas células contêm Cor de preenchimento específicas:
Sub DeleteRows()
'Updateby Extendoffice
Dim rngCl As Range
Dim xRows As Long
Dim xCol As Long
Dim colorLg As Long
On Error Resume Next
Set rngCl = Application.InputBox _
(Prompt:="Select a cell with the background color to be deleted", _
Title:="Kutools for Excel", Type:=8)
On Error GoTo 0
If rngCl Is Nothing Then
MsgBox "User cancelled operation." & vbCrLf & _
"Processing terminated", vbInformation, "Kutools for Excel"
Exit Sub
End If
colorLg = rngCl.Interior.Color
Application.ScreenUpdating = False
With ActiveSheet.UsedRange
For xRows = .Rows.Count To 1 Step -1
For xCol = 1 To .Columns.Count
If .Cells(xRows, xCol).Interior.Color = colorLg Then
.Rows(xRows).Delete
Exit For
End If
Next xCol
Next xRows
End With
Application.ScreenUpdating = True
End Sub
3. Em seguida, prima a tecla F5 para executar este código; surgirá uma caixa de diálogo a solicitar que selecione uma célula com a cor de preenchimento que pretende eliminar, conforme ilustrado na captura de ecrã:
4. Depois, clique em OK e todas as linhas que contenham uma célula com uma cor de preenchimento específica serão eliminadas.
Excluir linhas com Cor de Fundo específicas com base numa coluna
Se pretender eliminar linhas com uma cor específica com base apenas numa coluna — por exemplo, remover as linhas cuja célula na coluna A tenha a cor azul, obtendo o resultado apresentado na seguinte captura de ecrã — também existe um código VBA que poderá ser útil.
1. Mantenha premidas as teclas ALT + F11para abrir a janela do Microsoft Visual Basic for Applications.
2. Clique em Inserir>Móduloe cole o seguinte código na janela do Módulo.
Código VBA: Excluir linhas com base numa coluna cujas células têm Cor de preenchimento específicas:
Sub deleterow()
'UpdateBY Extendoffice
Dim xRg As Range, rgDel As Range
For Each xRg In ThisWorkbook.ActiveSheet.Range("A2:A21")
If xRg.Interior.ColorIndex = 20 Then
If rgDel Is Nothing Then
Set rgDel = xRg
Else
Set rgDel = Union(rgDel, xRg)
End If
End If
Next xRg
If Not rgDel Is Nothing Then rgDel.EntireRow.Delete
End Sub
Nota: No código acima, A2:A21 é a coluna que contém a cor de preenchimento com base na qual pretende eliminar as linhas; o número 20 em ColorIndex = 20 é o código de cor com base no qual pretende excluir as linhas. Pode alterar estes valores conforme necessário.
3. Em seguida, prima a tecla F5 para executar este código, e todas as linhas cujas células na coluna A tenham a cor azul serão eliminadas de imediato.
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos