Як легко змінити вибір виділених діапазонів в Excel?
Припустимо, що ви вибрали деякі конкретні комірки діапазону, і тепер вам потрібно змінити виділення: скасував вибір виділених комірок та виділив інші комірки. Дивіться наступний знімок екрана:
Звичайно, ви можете змінити вибір вручну. Але ця стаття запропонує вам декілька приємних прийомів, щоб швидко змінити вибір:
Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%
Повторне використання будь-чого: Додайте найбільш уживані або складні формули, діаграми та будь-що інше до вибраного та швидко використовуйте їх у майбутньому.
Більше 20 функцій тексту: Витяг номера з текстового рядка; Витяг або видалення частини текстів; Перетворення чисел і валют в англійські слова.
Злиття інструментів: Кілька робочих книжок та аркушів в одне ціле; Об’єднати кілька клітинок / рядків / стовпців без втрати даних; Об’єднати повторювані рядки та суму.
Розділити інструменти: Розділити дані на кілька аркушів на основі значення; Одна робоча книга до декількох файлів Excel, PDF або CSV; Один стовпець на кілька стовпців.
Пропустити вставку Приховані / відфільтровані рядки; Граф і сума за кольором тла; Надіслати персоналізовані електронні листи кільком одержувачам масово.
Суперфільтр: Створюйте розширені схеми фільтрів і застосовуйте їх до будь-яких аркушів; сортувати за тижнями, днями, періодичністю тощо; фільтр жирним шрифтом, формули, коментар ...
Понад 300 потужних функцій; Працює з Office 2007-2019 та 365; Підтримує всі мови; Простота розгортання на вашому підприємстві чи в організації.
Використання макросу VBA полегшить вам роботу зі зворотним вибором у робочій області активного аркуша.
Step1: Виділіть клітинки, які потрібно повернути назад.
Step2: Утримуйте клавішу інший + F11 клавіші в Excel, і він відкриває Microsoft Visual Basic для додатків вікна.
Step3: Натисніть Insert > Модуліта вставте наступний макрос у вікно модуля.
VBA для інвертування виділень
Sub InvertSelection()
'Updateby20140314
Dim rng As Range
Dim Rng1 As Range
Dim Rng2 As Range
Dim OutRng As Range
xTitleId = "KutoolsforExcel"
Set Rng1 = Application.Selection
Set Rng1 = Application.InputBox("Range1 :", xTitleId, Rng1.Address, Type:=8)
Set Rng2 = Application.InputBox("Range2", xTitleId, Type:=8)
For Each rng In Rng2
If Application.Intersect(rng, Rng1) Is Nothing Then
If OutRng Is Nothing Then
Set OutRng = rng
Else
Set OutRng = Application.Union(OutRng, rng)
End If
End If
Next
OutRng.Select
End Sub
Step4: Натисніть кнопку F5 ключ для запуску цього макросу. Потім з’явиться діалогове вікно для вибору кількох комірок, які вам не потрібні, вибрані в результаті. Дивіться знімок екрана:
крок 5: Натисніть OKта виберіть діапазон, який потрібно змінити на вибір, в іншому спливаючому діалоговому вікні. Дивіться знімок екрана:
крок 6: Натисніть OK. Ви можете бачити, що вибір було змінено.
Примітки: Цей VBA також працює на порожньому аркуші.
Змінити виділення в Excel за допомогою Kutools для Excel
Можливо, ви захочете швидко змінити будь-який вибір у програмі Excel, Виберіть Помічник дальності інструменти з Kutools для Excelможе допомогти вам швидко змінити вибір у Excel. Цей фокус полегшує вам скасування будь-якого виділення в цілій книзі.
Kutools для Excel включає більше 300 зручних інструментів Excel. Безкоштовно спробувати без обмежень протягом 30 днів. Отримати зараз.
Step1: Виділіть клітинки, які потрібно повернути назад.
Step3: У Виберіть Помічник дальності діалогове вікно, перевірте Зворотний вибір варіант.
Step4: Потім перетягніть мишу, щоб вибрати діапазон, який потрібно змінити. Коли ви відпускаєте мишу, виділені клітинки відмінено, а невиділені клітинки відразу вибрано з діапазону.
Step5: А потім закрийте Виберіть Помічник дальності діалогове вікно.
Найкращі інструменти для підвищення продуктивності офісу
Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%
Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
Понад 300 потужних функцій. Підтримує Office / Excel 2007-2019 та 365. Підтримує всі мови. Простота розгортання на вашому підприємстві чи в організації. Повна функція 30-денної безкоштовної пробної версії. 60-денна гарантія повернення грошей.
Sub InvertSelection()
Dim rng As Range
Dim Rng1 As Range
Dim Rng2 As Range
Dim OutRng As Range
Dim xTitleId As String
xTitleId = "Invert Selection"
Set Rng1 = Application.Selection
Set Rng1 = Application.InputBox("Range1 :", xTitleId, Rng1.Address, Type:=8)
Set Rng2 = Application.InputBox("Range2", xTitleId, Type:=8)
For Each rng In Rng2 If Application.Intersect(rng, Rng1) Is Nothing Then
If OutRng Is Nothing Then Set OutRng = rng
Else Set OutRng = Application.Union(OutRng, rng)
End If End If
Next
OutRng.Select
End Sub
