Cum se șterge foaia de lucru pe baza valorii celulei din Excel?
Presupunând că am mai multe foi de lucru într-un registru de lucru, acum vreau să șterg foile pe baza valorii celulei. De exemplu, dacă celula specifică A1 conține textul „KTE”, toate foile în care celula A1 are acest text trebuie șterse simultan. Acest articol vă poate ajuta să faceți față acestei sarcini în Excel.
Ștergeți foaia de lucru pe baza valorii celulei cu codul VBA
Ștergeți foaia de lucru pe baza valorii celulei cu codul VBA
Aici, voi introduce un cod pentru a șterge toate foile pe care celula specifică le are o anumită valoare, vă rugăm să procedați după cum urmează:
1. Țineți apăsată tasta ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. Clic Insera > Moduleși lipiți următorul cod în Module Fereastră.
Cod VBA: Ștergeți foaia de lucru pe baza valorii celulei:
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
notițe: În codul de mai sus, A1 este celula specifică care conține un anumit text pe care doriți să ștergeți foile pe baza cărora.
3. Apoi apăsați F5 pentru a rula acest cod și o casetă de solicitare este afișată pentru a vă reaminti să introduceți valoarea specifică pe care doriți să ștergeți foile pe baza, a se vedea captura de ecran:
4. Apoi faceți clic pe OK butonul, toate foile pe care celula A1 are textul KTE au fost șterse simultan. Vedeți captura de ecran:
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!