Como selecionar o intervalo com base no valor da célula em outra coluna do Excel?
Neste artigo, falarei sobre como selecionar intervalos com base no valor da célula em outra coluna. Tome um exemplo, se as células exibem FALSE na coluna C, as células relativas na coluna A e coluna B serão selecionadas como a imagem abaixo mostrada. Não há nenhum recurso integrado que possa ajudá-lo a resolver essa tarefa, mas neste artigo, posso lidar com isso com um código VBA.
Selecione o intervalo com base no valor da célula em outra coluna pelo código VBA
Selecione o intervalo com base no valor da célula em outra coluna pelo código VBA
Selecione o intervalo com base no valor da célula em outra coluna pelo código VBA
1. Habilite a folha que deseja usar e pressione Alt + F11 chaves para habilitar o Microsoft Visual Basic para Aplicações janela.
2. Clique inserção > Móduloe cole o código abaixo no novo Módulo janela.
VBA: Selecione o intervalo com base no valor da célula
Sub SelectByCellValue()
'UpdatebyExtendoffice20161128
Dim lastrow As Long
Dim xRg As Range, yRg As Range
'change Sheet1 to suit
With ThisWorkbook.Worksheets("Sheet2")
lastrow = .Cells(.Rows.Count, "C").End(xlUp).Row
Application.ScreenUpdating = False
For Each xRg In .Range("C1:C" & lastrow)
If UCase(xRg.Text) = "FALSE" Then
If yRg Is Nothing Then
Set yRg = .Range("A" & xRg.Row).Resize(, 2)
Else
Set yRg = Union(yRg, .Range("A" & xRg.Row).Resize(, 2))
End If
End If
Next xRg
Application.ScreenUpdating = True
End With
If Not yRg Is Nothing Then yRg.Select
End Sub
3. Pressione F5 chave para executar o VBA e, em seguida, os intervalos foram selecionados com base nos valores da coluna C.
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!