Hoe bereik ik een bereik op basis van de celwaarde in een andere kolom in Excel?
In dit artikel zal ik het hebben over het selecteren van bereiken op basis van de celwaarde in een andere kolom. Neem een voorbeeld: als de cellen FALSE weergeven in kolom C, worden de relatieve cellen in kolom A en kolom B geselecteerd zoals onderstaand screenshot. Er is geen ingebouwde functie die u kan helpen om deze taak op te lossen, maar in dit artikel kan ik het aan met een VBA-code.
Selecteer bereik op basis van celwaarde in een andere kolom op VBA-code
Selecteer bereik op basis van celwaarde in een andere kolom op VBA-code
Selecteer bereik op basis van celwaarde in een andere kolom op VBA-code
1. Schakel het blad in dat u wilt gebruiken en druk op Alt + F11 toetsen om het Microsoft Visual Basic voor toepassingen venster.
2. klikken Invoegen > Moduleen plak vervolgens onderstaande code in het nieuwe Module venster.
VBA: selecteer een bereik op basis van de celwaarde
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. druk op F5 toets om de VBA uit te voeren, en vervolgens zijn de bereiken geselecteerd op basis van de waarden in kolom C.
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!