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.

Opmerking:: in het VBA-script is Sheet2 de actieve bladnaam, C geeft de kolom aan die u wilt selecteren op basis van, de A en 2 in ("A" & xRg.Row) .Resize (, 2) geeft aan dat u twee kolommen uit kolom A wilt selecteren. U kunt de verwijzingen naar behoefte wijzigen.

Tip.Als u snel cellen wilt selecteren die gelijk zijn aan een specifieke waarde, probeer dan de Kutools for Excel's Selecteer specifieke cellen hulpprogramma zoals weergegeven in de volgende schermafbeelding. Het is volledige functie zonder beperking in 30 dagen, download en maak nu een gratis proefversie.