Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

Как скопировать данные на другой рабочий лист с помощью расширенного фильтра в Excel?

Обычно мы можем быстро применить Расширенный фильтр чтобы извлечь данные из необработанных данных на том же рабочем листе. Но иногда, когда вы пытаетесь скопировать отфильтрованный результат на другой рабочий лист, вы получите следующее предупреждающее сообщение. В этом случае, как вы могли бы справиться с этой задачей в Excel?

Скопируйте данные на другой рабочий лист с помощью расширенного фильтра с помощью функции расширенного фильтра

Скопируйте данные на другой рабочий лист с помощью расширенного фильтра с помощью кода VBA


Скопируйте данные на другой рабочий лист с помощью расширенного фильтра с помощью функции расширенного фильтра


Вот простой способ обхода решения этой задачи, пожалуйста, сделайте следующее:

1, Активируйте рабочий лист, на котором вы хотите скопировать отфильтрованный результат, используя функцию расширенного фильтра.

2, Затем нажмите дата > РАСШИРЕННАЯ, см. снимок экрана:

3. В Расширенный фильтр диалоговое окно, выберите Скопировать в другое место из Экшен раздел, а затем нажмите для выбора диапазона данных, который вы хотите фильтровать на другом листе рядом с Список диапазонов, нажмите рядом с Диапазон критериев для выбора критериев с другого листа см. снимок экрана:

4, Затем нажмите рядом с Скопировать в , чтобы выбрать ячейку, в которой вы хотите вывести отфильтрованный результат из активного листа, а затем нажмите OK , отфильтрованный результат был извлечен в другой лист на основе вашей первоначальной спецификации.


Скопируйте данные на другой рабочий лист с помощью расширенного фильтра с помощью кода VBA

Если вы владеете кодом VBA, вы можете закончить это задание с помощью следующего кода VBA.

1, Активируйте рабочий лист, который вы хотите фильтровать, и скопируйте результат на другой лист.

2, Удерживайте ALT + F11 ключей в Excel, и он открывает Microsoft Visual Basic для приложений окна.

3. Щелчок Вставить > модуль, и вставьте следующий код в модуль Окно.

Код VBA: копирование данных на другой рабочий лист с помощью расширенного фильтра:

Sub Advancedfiltertoanothersheet()
'Updateby Extendoffice
    Dim xStr As String
    Dim xAddress As String
    Dim xRg As Range
    Dim xCRg As Range
    Dim xSRg As Range
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the filter range:", "Kutools for Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xCRg = Application.InputBox("Please select the criteria range:", "Kutools for Excel", "", , , , , 8)
    If xCRg Is Nothing Then Exit Sub
    Set xSRg = Application.InputBox("Please select the output range:", "Kutools for Excel", "", , , , , 8)
    If xSRg Is Nothing Then Exit Sub
    xRg.AdvancedFilter xlFilterCopy, xCRg, xSRg, False
    xSRg.Worksheet.Activate
    xSRg.Worksheet.Columns.AutoFit
End Sub

4, Затем нажмите F5 ключ для запуска этого кода, и появится окно подсказки, чтобы вы могли выбрать диапазон данных, который вы хотите фильтровать, см. снимок экрана:

5, Затем нажмите OK, и появляется другое диалоговое окно, чтобы напомнить вам, чтобы выбрать диапазон критериев, который вы хотите фильтровать на основе, см. снимок экрана:

6, Нажмите OK, в появившемся диалоговом окне выберите ячейку из другого нового листа, где вы хотите вывести результат фильтра, см. снимок экрана:

7, Наконец, нажмите OK , отфильтрованные данные выводятся на другой заданный лист по мере необходимости.


Kutools для Excel - лучший инструмент для повышения производительности в офисе Повысьте производительность на 80%

  • Супер Формула Бар (легко редактировать несколько строк текста и формул); Макет чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы и хранение данных; Содержание сплит-клеток; Объедините дублирующиеся строки и сумму / среднее... предотвратить повторяющиеся клетки; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выберите пустые строки (все ячейки пусты); Супер найти и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения формулы ссылки; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Любимые и быстро вставляемые формулы, Диапазоны, графики и рисунки; Шифрование ячеек с паролем; Создать список рассылки и отправлять электронные письма ...
  • Извлечение текстаДобавить текст, Удалить по позиции, Удалить пространство; Создание и печать промежуточных итогов подкачки; Преобразование содержимого ячеек и комментариев...
  • Суперфильтр (сохранить и применить схемы фильтров к другим листам); Расширенный поиск по месяцам / неделям / дням, частоте и более; Специальный фильтр жирным шрифтом, курсивом ...
  • Объединить рабочие тетради и рабочие листы; Объединение таблиц на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Работает с Office 2007-2019 и 365 и поддерживает все языки. Это легко развернуть в вашей компании. Полнофункциональная 60-дневная бесплатная пробная версия.
вкладка kte 201905

Вкладка «Office» предоставляет интерфейс с вкладками для Office и упрощает работу

  • Включить редактирование и чтение с вкладками в Word, Excel, PowerPoint, Издатель, Доступ, Visio и Проект.
  • Открывайте и создавайте несколько документов в новых вкладках одного и того же окна, а не в новых окнах.
  • Увеличивает вашу производительность на 50% и уменьшает сотни щелчков мышью для вас каждый день!
нижняя часть офиса
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.