Note: The other languages of the website are Google-translated. Back to English
Увійти  \/ 
x
or
x
Реєстрація  \/ 
x

or

Як вибрати діапазон на основі значення комірки в іншому стовпці в Excel?

У цій статті я розповім про те, як вибрати діапазони на основі значення комірки в іншому стовпці. Візьмемо приклад, якщо клітинки відображають FALSE у стовпці C, відносні клітинки в стовпці A та стовпці B будуть вибрані, як показано нижче. Немає вбудованої функції, яка допоможе вам вирішити це завдання, але в цій статті я можу впоратися з цим за допомогою коду VBA.
doc виберіть за іншим стовпцем 1

Виберіть діапазон на основі значення комірки в іншому стовпці за кодом VBA


стрілка синя права міхур Виберіть діапазон на основі значення комірки в іншому стовпці за кодом VBA

Виберіть діапазон на основі значення комірки в іншому стовпці за кодом VBA

1. Увімкніть аркуш, який потрібно використовувати, і натисніть Alt + F11 клавіші, щоб увімкнути Microsoft Visual Basic для додатків вікна.

2. клацання Insert > Модулі, а потім вставте код нижче в новий Модулі вікна.

VBA: Виберіть діапазон на основі значення комірки

Sub SelectByCellValue()
'UpdatebyExtendoffice20161128
    Dim lastrow As Long
    Dim xRg As Range, yRg As Range
    'change Sheet1 to suit
    With ThisWorkbook.Worksheets("Sheet2")
        lastrow = .Cells(.Rows.Count, "C").End(xlUp).Row
        Application.ScreenUpdating = False
        For Each xRg In .Range("C1:C" & lastrow)
            If UCase(xRg.Text) = "FALSE" Then
                If yRg Is Nothing Then
                    Set yRg = .Range("A" & xRg.Row).Resize(, 2)
                Else
                    Set yRg = Union(yRg, .Range("A" & xRg.Row).Resize(, 2))
                End If
            End If
        Next xRg
        Application.ScreenUpdating = True
    End With

    If Not yRg Is Nothing Then yRg.Select
End Sub

doc виберіть за іншим стовпцем 2

3. прес F5 для запуску VBA, а потім діапазони були обрані на основі значень у стовпці C.

примітки: у сценарії VBA Аркуш2 - це назва активного аркуша, C вказує стовпець, який потрібно вибрати на основі, A і 2 in ("A" & xRg.Row). Змінити розмір (, 2) вказує, що для вибору двох стовпців зі стовпця А. Ви можете змінювати посилання, як вам потрібно.

Порада. Якщо ви хочете швидко виділити комірки, які дорівнюють певному значенню, спробуйте скористатися Kutools для Excel Виберіть певні клітини утиліта, як показано на наступному скріншоті. Повна функція без обмежень за 30 днів, будь ласка, завантажте та отримайте безкоштовну пробну версію зараз.

doc виділити конкретні комірки

Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

  • Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Понад 300 потужних функцій. Підтримує Office / Excel 2007-2019 та 365. Підтримує всі мови. Простота розгортання на вашому підприємстві чи в організації. Повна функція 30-денної безкоштовної пробної версії. 60-денна гарантія повернення грошей.
вкладка kte 201905

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.