Hogyan lehet törölni a munkalapot az Excel cellája alapján?
Tegyük fel, hogy több munkalapom van egy munkafüzeten belül, most a cellák értéke alapján szeretném törölni a lapokat. Például, ha az adott A1 cella a „KTE” szöveget tartalmazza, akkor az összes olyan cellát, amelyet az A1 cellában ez a szöveg tartalmaz, azonnal törölni kell. Ez a cikk segíthet az Excel feladatának kezelésében.
Munkalap törlése a VBA kóddal ellátott cellaérték alapján
Munkalap törlése a VBA kóddal ellátott cellaérték alapján
Itt bevezetek egy kódot az összes olyan levél törléséhez, amelyeknek az adott cella bizonyos értékkel rendelkezik, kérjük, tegye a következőket:
1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modulok Ablak.
VBA kód: Munkalap törlése a cella értéke alapján:
Sub deletesheetbycell()
'Updateby Extendoffice
Dim shName As String
Dim xName As String
Dim xWs As Worksheet
Dim cnt As Integer
shName = Application.InputBox("Input the text to delete the sheets based on:", "Kutools for Excel", _
"", , , , , 2)
Application.DisplayAlerts = False
cnt = 0
For Each xWs In ThisWorkbook.Sheets
If xWs.Range("A1").Value = shName Then
xWs.delete
cnt = cnt + 1
End If
Next xWs
Application.DisplayAlerts = True
MsgBox "Have deleted" & cnt & "worksheets", vbInformation, "Kutools for Excel"
End Sub
Megjegyzések: A fenti kódban A1 az a speciális cella, amely tartalmaz bizonyos szöveget, amely alapján törölni szeretné a lapokat.
3. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, és megjelenik egy felszólító mező, amely emlékezteti Önt arra, hogy adja meg azt a konkrét értéket, amely alapján törölni szeretné a lapokat, lásd a képernyőképet:
4. Kattintson a gombra OK gombra, az összes olyan lapot, amelyik A1 cellában található a KTE szöveg, egyszerre törölték. Lásd a képernyőképet:
A legjobb irodai hatékonyságnövelő eszközök
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...
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!