A Microsoft Excel egy hatékony eszköz az adatok kezelésére és szisztematikus kezelésére. Számos olyan funkciót és funkciót kínál, amelyek megkönnyítik a nagy mennyiségű adat kezelését. Az Excel egyik kiemelkedő jellemzője a VBA (Visual Basic for Applications) programozási nyelv, amely lehetővé teszi a felhasználók számára, hogy automatizálják és testreszabják az Excel használatát. Ebben a cikkben arról lesz szó, hogyan törölhet egy sort, ha a szöveg egyenlő VBA segítségével az Excelben a VBA segítségével.
1. lépés: Nyissa meg a Visual Basic szerkesztőt
A folyamat megkezdéséhez nyissa meg a VBA-szerkesztőt. Ezt megteheti az Alt + F11 billentyűkombinációval vagy a Fejlesztő lapra, majd a Visual Basic ikonra kattintva.
2. lépés: Új modul beszúrása
Miután megnyitotta a szerkesztőt, be kell illesztenie egy új modult. Ezt a Beszúrás gombra kattintva és a Modul kiválasztásával teheti meg.
3. lépés: A VBA-kód hozzáadása
A modul beszúrása után hozzá kell adnia a VBA-kódot a sor kereséséhez és törléséhez a szöveg egyezése alapján. Másolja ki és illessze be a következő kódot a modulba:
Sub DeleteRowIfTextEqualsVBA()
Dim rng As Range
Dim i As Long
Set rng = Range(„A1:A” & Cells(Rows.Count, „A”).End(xlUp).Row)
For i = rng.Rows.Count To 1 Step -1
If rng.Cells(i, 1).Value = „VBA” Then
rng.Cells(i, 1).EntireRow.Delete
End If
Next i
End Sub
4. lépés: A kód futtatása
Most, hogy hozzáadta a kódot, készen áll a futtatására. Kattintson a Futtatás gombra, vagy nyomja meg az F5 billentyűt a kód végrehajtásához. A kód megkeresi és törli az A oszlopban a „VBA” szöveget tartalmazó sor(ok)at.
Összefoglalva, egy sor törlése szövegillesztés alapján egyszerű feladat az Excelben a VBA segítségével. A fenti lépéseket követve gyorsan automatizálhatja ezt a folyamatot, és időt takaríthat meg, amikor nagy adathalmazokkal dolgozik. Lényeges, hogy megértse a VBA-kódot, és az igényeinek megfelelően módosítsa azt, hogy a kód hatékonyabb és eredményesebb legyen.
Egy sor törléséhez egy cella értéke alapján az Excel VBA-ban a következő lépésekkel járhat el:
1. Deklaráljon egy változót a keresendő cellaérték tárolására. Például a következő kóddal deklarálhat egy változót a „delete” érték tárolására.
Dim deleteValue As String
deleteValue = „delete”
2. Tekerje át az Excel munkalap sorait, hogy megkeresse azt a cellát, amelyben a törlendő érték található. A következő kóddal például végighaladhat a sorokon, és törölheti azt a sort, amely a „delete” értékű cellát tartalmazza.
Dim i As Integer
For i = 1 To ActiveSheet.UsedRange.Rows.Count
If Cells(i, 1).Value = deleteValue Then
Rows(i).Delete
End If
Next i
Ebben a kódban a ciklus az aktív munkalap első sorával kezdődik és az utolsó sorával végződik. A kód minden egyes sorban ellenőrzi, hogy az 1. oszlopban (az első oszlopban) lévő érték megegyezik-e a deleteValue változóban lévő értékkel. Ha az érték megegyezik, a kód a Rows(i).Delete utasítással törli az egész sort.
Vegye figyelembe, hogy ez a kód feltételezi, hogy a törölni kívánt cellaérték az első oszlopban van. Ha a cella értéke más oszlopban van, akkor módosítani kell a kódot, hogy ellenőrizze a megfelelő oszlopot.
Egy sor törléséhez az Excelben szöveg alapján a következő lépéseket követheti:
1. Nyissa meg a szerkeszteni kívánt adatokat tartalmazó Excel-táblázatot.
2. Jelölje ki azt a sort, amely a törölni kívánt szöveget tartalmazza.
3. Az Excel szalag „Kezdőlap” lapján kattintson a „Keresés és kijelölés” gombra.
4. Válassza ki a „Keresés” lehetőséget a legördülő menüből.
5. A „Keresés és csere” párbeszédpanelen írja be a törölni kívánt szöveget a „Mit keres” mezőbe.
6. Kattintson a „Find All” (Mindent keres) gombra a szöveg összes példányának kereséséhez a táblázatban.
7. Jelölje ki az összes olyan sort, amely tartalmazza a törölni kívánt szöveget a „Keresés és csere” párbeszédpanelen.
8. Kattintson a „Bezárás” gombra a „Keresés és csere” párbeszédpanel bezárásához.
9. Kattintson a jobb gombbal az egyik kijelölt sorra, és válassza a „Delete” (Törlés) lehetőséget a legördülő menüből.
10. A „Törlés” párbeszédpanelen válassza a „Teljes sor” lehetőséget, majd kattintson az „OK” gombra a kijelölt sorok törléséhez.
Ezekkel a lépésekkel törölhet egy sort az Excelben a szöveg alapján.
Egy adott értéket tartalmazó sor törléséhez az Excelben az alábbi lépéseket követheti:
1. Nyissa meg a törölni kívánt adatokat tartalmazó Excel munkalapot.
2. Jelölje ki a törölni kívánt sor(oka)t. Ezt a képernyő bal oldalán található sorszámra kattintva teheti meg. Ha egyszerre több sort szeretne törölni, tartsa lenyomva a „Shift” billentyűt a sorok kijelölése közben.
3. Kattintson a „Kezdőlap” fülre, majd a „Szerkesztés” csoportban kattintson a „Keresés és kijelölés” gombra. Válassza ki a „Keresés” lehetőséget a legördülő menüből.
4. A „Keresés és csere” párbeszédpanelen írja be a keresendő értéket a „Mit keres” mezőbe. Kattintson a „Find All” (Mindent keres) gombra az adott érték összes példányának kereséséhez a kiválasztott tartományban.
5. A kijelölt tartományban a keresett értéket tartalmazó összes cella ki lesz jelölve. Kattintson a jobb gombbal bármelyik kiemelt cellára, és válassza a „Törlés” lehetőséget a kontextusmenüből.
6. A megjelenő „Törlés” párbeszédpanelen válassza a „Teljes sor” lehetőséget, majd kattintson az „OK” gombra. Ezzel az összes olyan sor törlődik, amely tartalmazza a keresett értéket.
7. Mentse el a módosításokat a munkalapon a „Mentés” gombra kattintva.