Note: The other languages of the website are Google-translated. Back to English

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 dokument w innej kolumnie 1

Wybierz zakres na podstawie wartości komórki w innej kolumnie według kodu VBA


strzałka niebieski prawy bąbelek 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

wybierz dokument w innej kolumnie 2

3. naciśnij F5 klucz do uruchomienia VBA, a następnie zakresy zostały wybrane na podstawie wartości w kolumnie C.

Uwagi: w skrypcie VBA Sheet2 to nazwa aktywnego arkusza, C wskazuje kolumnę, na podstawie której chcesz wybrać, plik A i 2 in ("A" & xRg.Row). Zmień rozmiar (, 2) wskazuje, że należy wybrać dwie kolumny z kolumny A. W razie potrzeby można zmienić odniesienia.

Wskazówka Jeśli chcesz szybko wybrać komórki, które są równe określonej wartości, spróbuj użyć Kutools dla Excela Wybierz określone komórki narzędzie, jak pokazano na poniższym zrzucie ekranu. Jest to pełna funkcja bez ograniczeń 30 dni, pobierz i wypróbuj teraz bezpłatną wersję próbną.

doc wybierz określone komórki

Najlepsze narzędzia biurowe

Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%

  • Ponowne użycie: Szybko włóż złożone wzory, wykresy i wszystko, czego używałeś wcześniej; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
  • Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
  • Scal komórki / wiersze / kolumny bez utraty danych; Podziel zawartość komórek; Połącz zduplikowane wiersze / kolumny... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
  • Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
  • Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
  • Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
  • Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
  • Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
  • Ponad 300 zaawansowanych funkcji. Obsługuje Office / Excel 2007-2021 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowa bezpłatna wersja próbna. 60-dniowa gwarancja zwrotu pieniędzy.
karta kte 201905

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!
officetab dół
Sortuj komentarze według
Komentarze (0)
Brak ocen. Oceń jako pierwszy!
Nie ma tu jeszcze żadnych komentarzy

Bądż na bieżąco

Prawa autorskie © 2009 - www.extendoffice.com. | Wszelkie prawa zastrzeżone. Zasilany przez ExtendOffice, | Mapa strony
Microsoft i logo Office są znakami towarowymi lub zastrzeżonymi znakami towarowymi Microsoft Corporation w Stanach Zjednoczonych i / lub innych krajach.
Chronione przez Sectigo SSL