Jak vybrat rozsah na základě hodnoty buňky v jiném sloupci v aplikaci Excel?
V tomto článku budu hovořit o tom, jak vybrat rozsahy na základě hodnoty buňky v jiném sloupci. Vezměte příklad, pokud buňky zobrazují FALSE ve sloupci C, budou vybrány relativní buňky ve sloupci A a sloupci B, jak je uvedeno níže. Neexistuje žádná integrovaná funkce, která by vám pomohla vyřešit tento úkol, ale v tomto článku to zvládnu pomocí kódu VBA.
Vyberte rozsah na základě hodnoty buňky v jiném sloupci pomocí kódu VBA
Vyberte rozsah na základě hodnoty buňky v jiném sloupci pomocí kódu VBA
Vyberte rozsah na základě hodnoty buňky v jiném sloupci pomocí kódu VBA
1. Povolte list, který chcete použít, a stiskněte Alt + F11 klávesy pro povolení Microsoft Visual Basic pro aplikace okno.
2. cvaknutí Vložit > Modula poté vložte nový kód do nového Modul okno.
VBA: Vyberte rozsah na základě hodnoty buňky
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. lis F5 klíč ke spuštění VBA a poté byly vybrány rozsahy na základě hodnot ve sloupci C.
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!