Как да изтрия работен лист въз основа на стойността на клетка в Excel?
Да предположим, че имам няколко работни листа в работна книга, сега искам да изтрия листовете въз основа на стойността на клетката. Например, ако конкретната клетка A1 съдържа текста „KTE“, всички листове, чиято клетка A1 съдържа този текст, трябва да бъдат изтрити наведнъж. Тази статия може да ви помогне да се справите с тази задача в Excel.
Изтриване на работен лист въз основа на стойност на клетка с VBA код
Изтриване на работен лист въз основа на стойност на клетка с VBA код
Тук ще ви представя код за изтриване на всички листове, чиято конкретна клетка има определена стойност, моля, направете следното:
1. Задръжте надолу ALT + F11 за да отворите Microsoft Visual Basic за приложения прозорец.
2. Щракнете Поставете > Модулии поставете следния код в Модули Window.
VBA код: Изтриване на работен лист въз основа на стойността на клетката:
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
Забележка: В горния код, A1 е конкретната клетка, която съдържа определен текст, въз основа на който искате да изтриете листовете.
3. След това натиснете F5 ключ, за да изпълните този код, и се появява поле за подкана, за да ви напомни да въведете конкретната стойност, въз основа на която искате да изтриете листовете, вижте екранната снимка:
4, И после щракнете върху OK всички листове, чиято клетка A1 има текст KTE, са изтрити наведнъж. Вижте екранна снимка:
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!