Ugrás a tartalomra

Hogyan válasszuk ki a tartományt a cellák értéke alapján az Excel egy másik oszlopában?

Ebben a cikkben arról fogok beszélni, hogy miként válasszuk ki a tartományokat a cellák értéke alapján egy másik oszlopban. Vegyünk egy példát, ha a cellák FALSE-t mutatnak a C oszlopban, akkor az A és B oszlop relatív cellái lesznek kiválasztva az alábbi képernyőképen. Nincs olyan beépített szolgáltatás, amely segíthetne a feladat megoldásában, de ebben a cikkben VBA kóddal tudom kezelni.
doc válasszon egy másik oszlop által 1

Válassza ki a tartományt a cella értéke alapján egy másik oszlopban VBA kód szerint


nyíl kék jobb buborék Válassza ki a tartományt a cella értéke alapján egy másik oszlopban VBA kód szerint

Válassza ki a tartományt a cella értéke alapján egy másik oszlopban VBA kód szerint

1. Engedélyezze a használni kívánt lapot, majd nyomja meg az gombot Alt + F11 gombok a Microsoft Visual Basic for Applications ablak.

2. kettyenés betétlap > Modulok, majd illessze be a kód alatt az újba Modulok ablak.

VBA: A tartomány kiválasztása a cella értéke alapján

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

doc válasszon egy másik oszlop által 2

3. nyomja meg F5 gombot a VBA futtatásához, majd a tartományokat a C oszlop értékei alapján választották ki.

Megjegyzések: a VBA szkriptben a Sheet2 az aktív lap neve, C jelzi azt az oszlopot, amely alapján kiválasztani kívánja, a A és a 2 in ("A" & xRg.Row). Átméretezés (, 2) azt jelzi, hogy két oszlop kiválasztásához az A oszlopból. A referenciákat szükség szerint megváltoztathatja.

Tipp. Ha gyorsan szeretne kiválasztani egy adott értékkel egyenlő cellákat, próbálja meg a Kutools for Excel alkalmazást Válassza a Specifikus cellák lehetőséget segédprogram a következő képernyőképen látható módon. 30 nap alatt teljes körűen működik, korlátozás nélkül, kérjük, töltse le és ingyenes próbaverzióval rendelkezzen most.

doc válassza ki a konkrét cellákat

A legjobb irodai hatékonyságnövelő eszközök

Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

kte lap 201905


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations