Как да изтрия всички диапазони освен избраните в Excel?
В Excel можем бързо и директно да изтрием избраните диапазони, но опитвали ли сте някога да изтриете друго съдържание на клетка освен избраните диапазони? В тази статия ще ви представя някои трикове за бързо и лесно решаване на тази задача в Excel.
Изтрийте всички диапазони освен избраните с VBA код
Изтрийте всички диапазони освен избраните с помощника за избор на диапазон на Kutools за Excel
Изтрийте всички диапазони освен избраните с Copy Ranges на Kutools за Excel
Изтрийте всички диапазони освен избраните с VBA код
Няма директен начин да изтриете всички неизбрани стойности на клетки наведнъж, но следният VBA код може да ви помогне, моля, направете следното:
1. Моля, задръжте Ctrl за да изберете клетките, които искате да запазите.
2, Натиснете Alt + F11 клавиши едновременно, за да отворите Microsoft Visual Basic за приложение прозорец.
3. В Microsoft Visual Basic за приложение диалоговия прозорец на прозореца, щракнете Поставете > Модули, след което копирайте и поставете долния VBA код в Модули прозорец.
VBA код: изтрийте всички стойности на клетки, но избраните диапазони
Sub ClearAllExceptSelection()
'updateby Extendoffice
Dim xRg As Range
Dim xCell As Range
Dim xAddress As String
Dim xUpdate As Boolean
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the ranges want to keep", "Kutools for Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
xUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
For Each xCell In ActiveSheet.UsedRange
If Intersect(xCell, xRg) Is Nothing Then
xCell.Clear
End If
Next
Application.ScreenUpdating = xUpdate
End Sub
4. След това натиснете F5 клавиш, за да изпълните този код, и се появява подканващо поле, за да ви напомни да изберете диапазона от клетки, които искате да запазите, ако сте избрали диапазоните в стъпка 1, моля щракнете OK, ако не, можете да изберете желаните клетки в полето за подкана и да въведете запетаите, за да разделите множеството диапазони, след което щракнете върху OK бутон, вижте екранната снимка:
5. След щракване OK, всички други стойности на клетките са изтрити, но само напускат избраните диапазони, вижте екранната снимка:
Изтрийте всички диапазони освен избраните с помощника за избор на диапазон на Kutools за Excel
Ако сте инсталирали Kutools за Excel, Със своята Обратна селекция функция на Изберете Range Helper помощна програма, можете бързо да обърнете селекцията и след това да изтриете обърнатите селекции наведнъж.
| Kutools за Excel : с повече от 300 удобни добавки за Excel, безплатни за изпробване без ограничение за 30 дни. |
След инсталиране Kutools за Excel, моля, направете следното:( Безплатно изтегляне Kutools за Excel сега! )
1. Изберете диапазоните от клетки, които искате да запазите.
2, След това кликнете Kutools > Изберете > Изберете Range Helper, вижте екранна снимка:
3. В Изберете Range Helper диалогов прозорец, проверете Обратна селекция, вижте екранна снимка:
4. И след това плъзнете мишката, за да изберете диапазона, който искате да обърнете селекциите. Когато пуснете мишката, маркираните клетки са премахнати и немаркираните клетки са избрани наведнъж. Вижте екранна снимка:
5. След това затворете диалоговия прозорец и натиснете Изтрий клавиш за изтриване на селекциите наведнъж. И само желаните от вас клетки са запазени, вижте екранната снимка:
Безплатно изтегляне Kutools за Excel сега!
Изтрийте всички диапазони освен избраните с помощника за избор на диапазон на Kutools за Excel
Друга помощна програма-Копиране на диапазони of Kutools за Excel също може да ви помогне да завършите тази работа, просто трябва да копирате избраните от вас диапазони в нов работен лист и след това да изтриете стария работен лист.
След инсталиране Kutools за Excel, моля, направете следните стъпки:( Безплатно изтегляне Kutools за Excel сега! )
1. Задръжте Ctrl за да изберете диапазоните от клетки, които искате да запазите.
2, След това кликнете Kutools > Копиране на диапазони, вижте екранна снимка:
3, И в Копиране на множество диапазони диалогов прозорец, проверете Всички вариант по Залепете специално, Проверете Включително височина на реда намлява Включително ширина на колоната ако искате да запазите височината на реда и ширината на колоната, които искате, вижте екранната снимка:
4, След това кликнете Ok и ще изскочи друго поле за подкана, за да ви напомни, че изберете клетка, за да поставите копираните клетки, моля, изберете клетка в нов работен лист, вижте екранната снимка:
5, И после щракнете върху OKи само избраните от вас диапазони са поставени в новия работен лист и сега можете да изтриете оригиналния работен лист, както ви е необходимо.
Безплатно изтегляне Kutools за Excel сега!
Демонстрация: Изтрийте всички диапазони освен избраните с Kutools за Excel
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
