Jak wybrać zakres na podstawie wartości komórki w innej kolumnie w programie Excel?
W tym artykule omówię, jak wybierać zakresy na podstawie wartości komórki w innej kolumnie. Weźmy przykład, jeśli komórki wyświetlają FALSE w kolumnie C, względne komórki w kolumnie A i kolumnie B zostaną wybrane, jak pokazano poniżej. Nie ma wbudowanej funkcji, która mogłaby pomóc ci rozwiązać to zadanie, ale w tym artykule poradzę sobie z tym za pomocą kodu VBA.
Wybierz zakres na podstawie wartości komórki w innej kolumnie według kodu VBA
Wybierz zakres na podstawie wartości komórki w innej kolumnie według kodu VBA
Wybierz zakres na podstawie wartości komórki w innej kolumnie według kodu VBA
1. Włącz arkusz, którego chcesz użyć i naciśnij Alt + F11 klawisze, aby włączyć Microsoft Visual Basic for Applications okno.
2. kliknij wstawka > Moduł, a następnie wklej poniższy kod do nowego Moduł okno.
VBA: Wybierz zakres na podstawie wartości komórki
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. naciśnij F5 klucz do uruchomienia VBA, a następnie zakresy zostały wybrane na podstawie wartości w kolumnie C.
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!