Копировать-Вставить от Min до Max

Это может быть простой вопрос, но после нескольких часов попыток сдаться …

Я хочу, чтобы макрос находил диапазон от минимума до максимума. Этот диапазон должен быть скопирован и вставлен в какой-то «сводный лист».

Я смог заставить макрос найти min и max, и я также получил инструкцию copy-paste, которая работает.

Может ли кто-нибудь помочь мне объединить эти инструкции в один?

Вот мой макрос, насколько я пришел:

Sub Enter_Formula() Dim blatt Dim sheetName As String For i = 1 To Sheets.Count Sheets(i).Select Range("=Min(A59:A86):=Max(A:A)").Copy Range("C1") Next End Sub 

Спасибо!!

Я бы сделал следующее:

 Sub Enter_Formula() Dim sht As Worksheet, summarySht As Worksheet Set summarySht = Worksheets("Summary") '<--| change "Summary" to your actual "Summary" sheet name For Each sht In Worksheets If sht.Name <> summarySht.Name Then With sht.Range("A59:A86") .Parent.Range(.Find(what:=WorksheetFunction.Min(.Cells), lookat:=xlWhole, LookIn:=xlValues), .EntireColumn.Find(what:=WorksheetFunction.Max(.EntireColumn), lookat:=xlWhole, LookIn:=xlValues)).Copy summarySht.Cells(1, Columns.Count).End(xlToLeft).Offset(, 1) End With End If Next End Sub 

Может быть немного быстрее оценить выражение непосредственно (проверено):

 Dim ws As Worksheet For Each ws In Worksheets ws.Range("Index(A59:A86,Match(Min(A59:A86),A59:A86,0)):Index(A:A,Match(Max(A:A),A:A,0))").Copy ws.Range("C1") Next 
  • Вставка чисел с запятой как разделитель тысяч из бизнес-объектов в excel
  • Исправить вложенные табличные данные в Excel (скопировано с веб-сайта)
  • Excel: как использовать команду «Копировать вставить» в выбранную область листа (VBA)
  • Excel - копирование (перенос) между книгами с использованием VB
  • Копировать диапазон, смещение Вставить весь файл VBA
  • Powershell - копирование и вставка последних строк TSV в конкретные ячейки в Excel
  • VBA .range («Может ли формула идти сюда?»)
  • Вставка над фильтрованным столом
  • Копирование и вставка данных
  • Excel VBA - самый быстрый способ копирования и переноса вектора
  • Пользователь Excel vba для выбора книги и копирования данных
  • Interesting Posts

    Генератор случайных чисел в VBA с использованием Analysis Toolpack-VBA

    Excel VBA Откройте книгу из Dropbox, затем Save / Close Current Workbook

    Excel / ADO: ошибка доступа к набору записей

    Почему многоэлементная матричная формула не разрешена в таблице excel?

    Преобразование CSV в Excel и применение форматирования к ячейкам

    Powerpoint: несколько диаграмм, связанных с одним файлом. Измените все ссылки сразу.

    Повторить значение ячейки ячейки для детализации строк на листе excel

    Код VBA для копирования данных сводной таблицы и заполнения поля

    Формула Excel для замены первого появления символа

    Сумма / количество формул автоматической настройки для вставленных строк

    Экспорт данных в Excel с помощью PowerShell

    Есть ли бесплатный плагин zip-кодов в Excel?

    Циклические кнопки в tkinter и назначение функций

    Копирование значений, применение формулы и вставка результатов в виде значений. Все операции в разных листах – VBA Macro Excel

    Перекрестная ссылка 2 столбца в Excel с еще двумя столбцами

    Давайте будем гением компьютера.