Como adicionar a linha da borda abaixo quando o valor muda em uma coluna do Excel?
Há uma lista de dados que inclui valores repetidos e, para melhor classificar os valores, adiciono uma linha de borda abaixo quando o valor muda na lista, como mostrado na imagem abaixo. Neste artigo, falarei sobre como adicionar rapidamente a linha de borda abaixo quando o valor muda em uma coluna do Excel.
Adicione a linha de fronteira abaixo quando o valor mudar com VBA
Adicione a linha de fronteira abaixo quando o valor mudar com VBA
Obviamente, não há nenhuma função incorporada no Excel que possa ajudá-lo a adicionar a linha de limite abaixo quando o valor muda, mas há um código VBA que posso apresentar.
1. Pressione Alt + F11 chave para ativar Microsoft Visual Basic para Aplicações janela.
2. Clique inserção > Móduloe cole o código abaixo no script em branco móduloe.
VBA: adicionar limite abaixo quando o valor mudar
Sub AddBorderLineWhenValueChanges()
'UpdatebyExtendoffice20160918
Application.ScreenUpdating = False
Dim LastRow As Long
Dim xrg As Range
LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
For Each xrg In Range("A2:A" & LastRow)
If xrg <> xrg.Offset(1, 0) Then
Range("A" & xrg.Row & ":K" & xrg.Row).Borders(xlEdgeBottom).LineStyle = xlContinuous
End If
Next xrg
Application.ScreenUpdating = True
End Sub
3. Pressione F5 chave para executar o código. Em seguida, as linhas de borda foram adicionadas abaixo quando o valor muda na seleção A2: A.
Kutools for Excel, com mais de 300 funções úteis, tornam seus trabalhos mais fáceis. |
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!