Excel как скопировать сортировку

paulgri, о макросах — неверно. Код может срабатывать по событиям.
Для этого код размещается в модуле листа.

Например, отслеживание изменений диапазона A2:A10

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Application.Intersect(Range("A2:A10"), Target) Is Nothing Then
    .....*здесь_что-то_выполняем*.....
    End If
End Sub

Отслеживание двойного клика:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Worksheet_BeforeRightClick следит за правым кликом и т.д.

Реализация задачи формулой:

=НАИБОЛЬШИЙ($A$1:$A$10;СТРОКА(1:1))

где $A$1:$A$10 — исходный диапазон.

При протягивании формулы по строкам будет изменяться индекс, заданный функцией СТРОКА()

Если результирующий диапазон нужен в строке, а не в столбце, индекс нужно находить другой функцией:

=НАИБОЛЬШИЙ($A$1:$A$10;СТОЛБЕЦ(A1))

Копирование только видимых ячеек

​Смотрите также​​ потом нашел тут​ — выделяете диапазон​ данный момент отфильтрованы​ логику панели не​ «ВыделитьВидемыеЯчейки»? В Excel-2003​ IsEmpty(ActiveCell.Value) ‘…находим пустую​ a As Double​anabioss13​ вставка» но точно​ которое мы зададим​ в первой ячейке.​ «Ctrl» + «Shift»​ особенно, если много​(Выделить группу ячеек).​ книгу, щелкните вкладку​ вы можете скопировать​Примечание:​ , и сделал,​ A2:A12—Вставить. В этом​ только ячейки с​ ломать).​

​ ее можно найти​ ячейку ниже ActiveSheet.Paste​ Dim c As​: На примере работает..​ не скажу.​ условным форматированием и​ В нашем примере,​ + кнопку (стрелочку)​ строк.​Выберите опцию​ другого листа или​ только итоговых данных​Мы стараемся как​ чтобы запускалось в​ случае ячейки которые​ данными, пустые ячейки​8) закрыть панель​ в настройках панелей​ Application.CutCopyMode = False​ Integer Dim r​

​ Но файл у​

1. ​Алексей200485954​ формулой. Смотрите, как​ мы написали число800​ вниз (или кнопку​Первый способ -​

   ​Visible cells only​​ выберите другую книгу​ из структурированных листа.​ можно оперативнее обеспечивать​

2. ​ каждом файле) кнопки​​ скрыты не изменятся,​​ скрыты.​​ настройки.​​ управления.​ Else ActiveSheet.Paste Application.CutCopyMode​​ As Integer Dim​​ меня намного больше​

   

3. ​: Офигеть, все получилось.​​ это сделать, в​​ в ячейку D2​​ вверх, зависит от​​обычный​

4. ​(Только видимые ячейки)​​ и выделите левую​​Сделайте следующее:​ вас актуальными справочными​

   

5. ​ сделать пока не​ Но в выделенных​Я пока решаю​​После вышеописанных действий​​А где именно?​ = False End​

   ​ i As Integer​​ и если так​ Огромное спасибо!​ статье «Закрасить ячейку​ столбца D. Немного​ того, где хотим​.​ и нажмите​ верхнюю ячейку области​Выделите ячейки, которые нужно​

   ​ материалами на вашем​​ смог, но горячие​ ячейках останутся формулы,​ это так: снимаю​ кнопка «ВыделитьВидемыеЯчейки» будет​Семен Казменко​ If End If​ Dim EndRow As​ делать, то почему​dgrom​

support.office.com

Как скопировать только видимые ячейки в Excel

​ по условию в​ не по теме,​ выделить ячейки –​Возьмем такую таблицу.​OK​

​ вставки.​ скопировать подробнее, читайте​

​ языке. Эта страница​ клавиши работают.​ которые заменить на​ фильтр, потом копирую​

​ там куда вы​: Расскажу только про​ Next i End​

1. ​ Integer ‘как работает?​​ то вставляет всего​​: Вот что гласит​
2. ​ Excel формулой».​​ но хочется сказать​​ ниже или выше​​ Таблица будет одна​​.​Примечание:​​ статью выберите ячеек,​​ переведена автоматически, поэтому​
3. ​ячейки. Как исправить это?​​ значения можно будет​​ весь столбец В​ ее перетащили и​​ Excel-2003. Дома под​​ SubP.S. Мало данных​
4. ​ _ ‘ Выделям​ 2 первых ячейки.​​ справка.​​Алексей200485954​
5. ​ здесь. Сочетание клавиш​​ ячейки, в которой​​ для всех примеров.​​Excel выделит видимые ячейки.​​ При копировании значения последовательно​

​ диапазонов, строк и​

​ ее текст может​Мне надо чтобы​
​ после снятия фильтра.​
​ через специальную вставку​

​ можно будет выполнить​

office-guru.ru

Вставить в видимые строки в Excel.

​ рукой только он.​ — раз! Все​ ​ ячейку с нужным​​anabioss13​В меню ПРАВКА​: Есть большая таблица.​ «Ctrl» + R​ написали число).​Уберем фильтром все цифры​ Теперь нажмите сочетание​ вставляются в строки​ столбцов на листе.​ содержать неточности и​ не копировались ячейки​The_Prist​ с галкой «Пропускать​ все действия из​1) левой кнопкой мыши​ что выше можно​ значением. Далее ОК.​
​: Все. Я разобрался.​​ жмем «перейти». В​​ Выбрал через фильтр​
​ – копирует данные​Теперь, или нажимаем​ 2 из таблицы.​
​Ctrl+C​ и столбцы. Если​Совет:​ грамматические ошибки. Для​ скрытые фильтром.​:​ пустые ячейки», а​ моего предыдущего сообщения.​ по любой панели​ сделат массивом. Но​ ‘Если фильтр уже​ Из за другого​ появившемся окошке жмем​ нужные строки (20​ по строке Excel​ сочетание клавиш «Ctrl»​ В оставшиеся видимые​, чтобы скопировать диапазон.​
​ область вставки содержит​
​ Чтобы отменить выделение ячеек,​ нас важно, чтобы​
​Помню раньше, когда​iksrman​ вот есть ли​
​Кстати, если впоследствии​
​ кнопок (например, обычно​ я как-то​ задействован — выделяем​ фильтра не вставлялось​ «выделить». В появившейся​ шт). Когда начинаю​ (в нашем примере​ + G, или​ ячейки поставим цифру​Выберите ячейку​ скрытые строки или​ щелкните любую ячейку​ эта статья была​ то, получалось нормально​: The_Prist,отличная штука! Всем​ возможность копирования, НЕ​
​ Вам будет нужно​ включена панель «Стандартная»).​с массивами не​ любую видимую ячейку.​ как надо. Спасибо,​ менюшке выбираем «только​ делать вставку в​ – строка 2,​ клавишу F5. Выйдет​ 600. В ячейку​A6​​ столбцы, возможно, потребуется​ на листе.​

​ вам полезна. Просим​ копировать, но не​ советую! Давно себе​ снимая фильтр?​ удалить какие-то кнопки​2) в появившемся​ очень. А так​ _ ‘ Далее​ вы мне помогли.​ видимые ячейки». Готово.​ другом документе он​​ копировали число 800​ диалоговое окно «Переход».​​ В2 ставим число​и нажмите​ отобразить их, чтобы​Щелкните​ вас уделить пару​ знаю почему так​ делал себе надстройку​Sanja​ с панелей, то​ контекстном меню список​ — чем мог,​ по ходу a​_Boroda_​[email protected]@​ вставляет все строки,​ из ячейки D2).​ Нажимаем кнопку «Выделить…».​ 600, затем копируем​Ctrl+V​ увидеть все скопированные​Главная​
​ секунд и сообщить,​
​ происходит.​ из этого макроса.​: А просто выделить​ их можно перетаскивать​ панелей экранных кнопок,​ тем помог.​ = InputBox(prompt:=»Введите значение​: Для удобства можно​: Alt+;​ которые попадают в​ Получилось так.​ И, в новом​ его вниз по​, чтобы вставить диапазон.​ данные.​ >​ помогла ли она​Demetry​ Спасибо Вам.​ отфильтрованные значение и​
​ в обратном порядке​ в самом низу​Olya1985​ фильтра», _ Title:=»Копирование​ вытащить на панель​а у меня​ диапазон выделенных ячеек.​Третий способ.​ диалоговом окне «Выделение​ столбцу (тянем за​

excel-office.ru

Проблемка с копированием отфильтрованных ячеек

​Результат:​​По умолчанию Excel копирует​Найти и выделить​ вам, с помощью​: Надо выделить нужные​Rulsan​ скопировать их не​ при наличии на​ пункт «настройка». Выбрать​: хорошо. спасибо!​
​ значений», _ Default:=ActiveCell.Value)​ быстрого доступа кнопочку​ эта комбинация клавиш​Скажите пожалуйста как​В новом столбце​

​ и скрытые ячейки.​​ пункт​ Для удобства также​

​ — Выделить… -Только​​ что нужно, огромное​gling​
​ Например, выбрали кнопку​3) появится окно​: Предложенный Вам вариант​ c = ActiveCell.Column​ (как на рисунке​ обоих версиях после​

​ вставить в другом​​ – столбец Е)​
​ «Только видимые ячейки».​ скопировались только в​Источник: http://www.excel-easy.com/examples/copy-visible-cells-only.html​ Однако можно скопировать​Выделение группы ячеек​ приводим ссылку на​ видимые ячейки. Потом​
​ спасибо. Теперь как​: Копировать можно, вставить​

planetaexcel.ru

Как скопировать ячейки с фильтром (Формулы/Formulas)

​ «Сохранить» (дискетка) и​​ «Настройка», там на​ такой заумный. Все​ EndRow = ActiveSheet.UsedRange.Row​ ниже)​ переустановки винды (7)​ месте несколько отфильтрованных​ выделяем ячейки. Нажимаем​Нажимаем «ОК». Затем вставляем​ видимые ячейки. Точно​Перевел: Антон Андронов​ только видимые ячейки.​

​.​​ оригинал (на английском​ обычным копипастом.​

​ бы заставить работать​​ нельзя в отфильтрованный​ перетащили ее отпустив​ вкладке «Команды» два​ это можно сделать​ — 1 +​»Выделить видимые ячейки»​ (хотя раньше часто​

​ строк.​​ клавишу F5. Выйдет​ как обычно.​ также можно вставлять​Автор: Антон Андронов​В этом примере строка​

​Выберите параметр​​ языке) .​Алексей пинчук​ эти макросы во​ диапазон, вставка происходит​ на окне «Настройка».​ списка.​

​ простым копированием. Для​
​ _ ActiveSheet.UsedRange.Rows.Count ‘​Клавишами это Альт​

excelworld.ru

Вставить скопированные строки в Excel с учетом фильтра

​ пользовалась)​​Pankratd​ диалоговое окно «Переход».​Ещё один способ​ и формулы. Мы​Вставить только в видимые​ 2 скрыта:​только видимые ячейки​Если некоторые ячеек, строк​: > На самом​ всех открытых файлах​ даже в те​Olya1985​4) в правом​

​ этого:​​ Находим последнюю строку​ точка_с_запятой​в чем может​: Сталкивался с такой​ Нажимаем кнопку «Выделить…».​ вызвать диалоговое окно​ в ячейке С2​ строки в​Если просто скопировать, а​и нажмите кнопку​ и столбцов на​ деле я применил​ Excel, а не​ строки которые скрыты.​: спасибо! у меня​ списке выбрать категорию​1) Выделить нужный​ _ рабочей области​Olya1985​ быть причина?​ же проблемой, делаю​ И, в новом​ «Выделение группы ячеек».​ пишем такую формулу.​Excel​ затем вставить этот​ОК​ листе не отображается,​ не фильтр к​ только когда открывается​Rulsan​ тоже excel 2003.​ «Правка»​ диапазон.​ For i =​: Подскажите, пожалуйста, можно​anabioss13​ так:​ диалоговом окне «Выделение​ На закладке «Главная»​ =А2*10​числа, формулы, текст​ диапазон, результат получается​.​ у вас есть​ диапазону, а скрыл​ файл с примером​: Да, как сказал,​ а еще можно​5) в левом​2) Нажать кнопку​ 1 To EndRow​ ли в excel​
​: Здравствуйте. Подскажите пожалуйста​Открываю буфер обмена​ группы ячеек», ставим​ в разделе «Редактирование»​

​Получилось так.​​ можно несколькими способами.​

​ следующим:​​Щелкните​ возможность копирования всех​ некоторые строки​ Tips_Macro_CopyPasteInHiddenCells.xls​ , копировать то​
​ этот пункт добавить​ появится список команд​
​ «ВыделитьВидемыеЯчейки».​ If Cells(i, c).Value​
​ 2003 после копирования​ как скопировать последний​ (меню «правка» в​
​ галочку у слов​ нажимаем на кнопку​Отменим фильтр. Получилась такая​ Когда нужно вставить​Чтобы скопировать только видимые​Копировать​

​ ячеек, или только​​Это и есть​P.S. Имеется ввиду,​ можно, я уже​ в меню edit.​ этой категории.​3) Начать копирование​
​ = a Then​

​ столбца с отфильтрованными​​ столбец с данными​ 2003, или лента​ «Только видимые ячейки».​
​ «Найти и выделить».​ таблица.​ числа, формулы, текст​ ячейки, выполните несколько​
​(или нажмите клавиши​ видимые ячейки. По​ ответ на вопрос.​ чтобы прикрутить как-то​ пробовал копировать только​Rulsan​
​6) почти в​ (ну а далее​ Cells(i, c).Select Selection.Copy​ данными сделать так,​
​ и вставить в​ «главная» в 2007).​ Нажимаем «ОК». Теперь,​
​ В появившемся списке​Формула и цифры вставились​ не во все​
​ простых действий:​ CTRL+C).​ умолчанию Excel копирует​ Высота строки (а​
​ в виде кнопок​ видимые ячейки, по​: Привет всем.​ самом конце этого​ обычно).​ Cells(EndRow + 5,​ чтобы при их​ другой файл, чтобы​Копиую отфильтрованный диапазон​
​ не отменяя выделения,​ нажимаем на функцию​
​ только в отфильтрованные​ строки таблицы, можно​Выделите диапазон​Выделите левую верхнюю ячейку​ скрытых или отфильтрованных​ скрытие строки —​ в ленту или​
​ всякому, но вставляет​Посоветуйте, пожалуйста, есть​ (см.п.5) списка кнопка​Вопрос в другом.​ c).Activate ‘ Активируем​ вставке в отедельный​ скопировалось только то​ в буфер, при​ в первой ячейке​ «Выделение группы ячеек».​ строки.​ воспользоваться фильтром. Как​

​A1:A4​​ области вставки и​ ячейки не только​ просто установка её​ горячих клавиш, чтобы​ то оно подряд,​

CyberForum.ru

Копирование отфильтрованного диапазона данных

​ ли возможность в​​ «ВыделитьВидемыеЯчейки»​
​ Где найти кнопку​ последнюю строку _​ столбец они вставлялись​ что видимо. А​ копировании дапзон выделяется​ столбца (у нас​ Чтобы​Второй способ.​ установить фильтр и​.​ нажмите кнопку​ видимые ячейки. Если​ высоты в 0)​
​ всегда была возможность​ а не в​ Excel или надстройке​7) на нее​ «ВыделитьВидемыеЯчейки»? В Excel-2003​ плюс 5 строк.​ с учетом фильтра,​ то когда копируешь​ бегущими муравьями. Снимаю​ – Е2) вводим​

​заполнить видимые ячейки в​​Также отфильтруем данные.​ как фильтровать в​На вкладке​Вставить​

​ это не является​​ будет копироваться, только​ такого копирования-вставки.​ отфильтрованные.​ PLEX копирования данных​ нужно нажать левой​

​ ее можно найти​​ If Not IsEmpty(Cells(EndRow​ то есть тольке​ как обычно оно​ этих муравьев «Esc»​ формулу, цифру, т.д.​ выделенных столбцах Excel​ В первой ячейке​ Excel, смотрите в​Home​

​(или нажмите клавиши​​ вас не устраивают,​ если копируется вся​P.S.S. Ни разу​gling​ из отфильрованного диапазона​ клавишей мыши, перетащить​ в настройках панелей​ + 5, c).Value)​ те данные которые​ вставляется со значениями​ и вставляю фрагмент​ Нажимаем сочетание клавиш​, нажимаем сочетание клавиш​

​ пишем число, формулу,​​ статье «Фильтр в​

​(Главная) нажмите кнопку​​ Ctrl + V).​ выполните действия, описанные​ строка. То есть​ не делал, но​: Можно такой вариант​

​ из столбца В​​ и отпустить на​ управления.​ Then ‘ если​ видны нам и​ которые скрыты внутри..​ из буфера. Вставляется​ «Ctrl» + «Enter».​ «Ctrl» + D.​ текст, т.д. Теперь,​ Excel». Но, чтобы​
​Find & Select​Совет:​ в этой статье,​ надо выделить не​ прочитал пост выше,​ использовать: Написать формулу​ в столбец А?​
​ любой панели кнопок​Olya1985​ строка не пустая,​ не hidden.​TimSha​ все как надо,​В Excel ячейки​ И все выделенные​ если строк тысячи,​ вставить данные только​(Найти и выделить)​ Чтобы скопировать выделенный фрагмент​

planetaexcel.ru

Excel: Когда копирую отфильтрованные ячейки и вставляю их на другой лист, то вставляются также и скрытые фильтром ячейки

​ чтобы скопировать только​
​ конкретные ячейки, а​ что можно сделать​ в А2 =B2;​
​ В столбце В​ (лучше где-то в​: Вопрос в другом.​ тогда… Do ActiveCell.Offset(1,​Igor_Tr​

​: Только видимое и​​ без скрытых строк.​ можно выделить цветом​ столбцы заполнятся данными​ то выделяем ячейки​ в видимые ячейки,​

​ и кликните по​​ на другой лист​ видимые ячейки. Например​ строки полностью.​ в виде надстройки,​ копируете ячейку A2​
​ на картинке на​ конце панели, чтоб​ Где найти кнопку​ 0).Select Loop Until​: Sub Копировать_Отфильтрованное() Dim​ выделяем (см .скрин)…​Как вариант «Специальная​ по поределенному условию,​ или формулой, как​ так: нажимаем клавиши​ нужны свои способы,​Go To Special​

​ или в другую​