Excel как вставить при скрытых строках

Вставка в отфильтрованные строки

Весьма распространенная ситуация, вопрос про которую мне задают почти на каждом тренинге. Есть таблица, в которой Фильтром (Данные — Фильтр) отобраны несколько строк. Задача — вставить какие-либо нужные нам значения именно в видимые отфильтрованные строки, пропуская при этом скрытые. Обычное копирование-вставка при этом не сработает, т.к. данные вставятся не только в видимые, но и в скрытые ячейки. Давайте посмотрим, как можно обойти эту проблему.

Способ 1. Вставка одинаковых значений или формул

Если вам нужно вставить одни и те же значения во все отфильтрованные строки списка, то все просто. Предположим, что у нас есть вот такой список сделок:

paste-to-visible1.png

… и в нем нужно поставить фиксированную скидку в 1000 рублей каждому «Ашану».

Фильтруем наш список Автофильтром, оставляя на экране только «Ашаны». Вводим нужное значение в первую ячейку и протягиваем (копируем за правый нижний угол ячейки) вниз:

paste-to-visible2.png

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

paste-to-visible3.png

Такой способ подойдет и для ввода значений и для ввода формул. Например, если скидка для «Ашанов» не фиксированная, а составляет 10% от суммы сделки, то в первую отфильтрованную строку можно ввести не константу (1000), а формулу (=C2*10%) и также скопировать вниз.

Способ 2. Макрос вставки любых значений

Другое дело, если вам необходимо вставить в отфильтрованные ячейки не одинаковые значения или формулы, а разные, да еще и брать их из другого диапазона. Тогда придется использовать несложный макрос. Нажмите сочетание клавиш Alt+F11, в открывшемся окне Visual Basic вставьте новый пустой модуль через меню Insert — Module и скопируйте туда этот код:

Sub PasteToVisible()
    Dim copyrng As Range, pasterng As Range
    Dim cell As Range, i As Long
 
   'запрашиваем у пользователя по очереди диапазоны копирования и вставки
    Set copyrng = Application.InputBox("Диапазон копирования", "Запрос", Type:=8)
    Set pasterng = Application.InputBox("Диапазон вставки", "Запрос", Type:=8)
 
    'проверяем, чтобы они были одинакового размера
    If pasterng.SpecialCells(xlCellTypeVisible).Cells.Count <> copyrng.Cells.Count Then
        MsgBox "Диапазоны копирования и вставки разного размера!",vbCritical
        Exit Sub
    End If
 
    'переносим данные из одного диапазона в другой только в видимые ячейки
    i = 1
    For Each cell In pasterng
        If cell.EntireRow.Hidden = False Then
            cell.Value = copyrng.Cells(i).Value
            i = i + 1
        End If
    Next cell
End Sub

Как легко сообразить, макрос запрашивает у пользователя по очереди два диапазона — копирования и вставки. Затем проверяет, чтобы их размеры совпадали, т.к. разница в размерностях вызовет впоследствии ошибку при вставке. Затем макрос перебирает все ячейки в диапазоне вставки и переносит туда данные из диапазона копирования, если строка видима (т.е. не отфильтрована).

Ссылки по теме

  • Что такое макросы, как их использовать, куда вставлять код макроса на Visual Basic

Если некоторые ячейки, строки или столбцы на сайте не отображаются, можно скопировать все ячейки или только видимые. По умолчанию Excel копирует не только видимые, но и скрытые или фильтрованные ячейки. Если же требуется скопировать только видимые ячейки, выполните действия, описанные ниже. Например, можно скопировать только суммарные данные со структурного таблицы.

Сделайте следующее:

  1. Выберем ячейки, которые нужно скопировать. Дополнительные сведения см. в статье Выбор ячеек, диапазонов, строк или столбцов на сайте.

    Совет: Чтобы отменить выделение ячеек, щелкните любую ячейку на этом же.

  2. Щелкните Главная > Найти и выделить, а затем выберите пункт Выделение группы ячеек.

    Excel  Ribbon Image

  3. Выберите параметр только видимые ячейки и нажмите кнопку ОК.

  4. Щелкните Копировать (или нажмите клавиши CTRL+C).

    Команда "Копировать"

  5. Выберите левую верхнюю ячейку области вжатия и нажмите кнопку Вировать (или нажмите CTRL+V).

    Совет: Чтобы скопировать выделенный фрагмент на другой лист или в другую книгу, щелкните вкладку другого листа или выберите другую книгу и выделите левую верхнюю ячейку области вставки.

Примечание: При копировании значения последовательно вставляются в строки и столбцы. Если область вставки содержит скрытые строки или столбцы, возможно, потребуется отобразить их, чтобы увидеть все скопированные данные.

При копировании и вставке видимых ячеек в диапазоне данных, который содержит скрытые ячейки или к которому применен фильтр, можно заметить, что скрытые ячейки вставляются вместе с видимыми. К сожалению, это нельзя изменить при копировании и вклеии диапазона ячеек в Excel в Интернете так как возможность в виде вметки только видимых ячеек недоступна.

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

Если не нужно форматировать данные как таблицу и установлено классическое приложение Excel, можно открыть книгу в нем, чтобы скопировать и вставить видимые ячейки. Для этого нажмите кнопку Открыть в Excel и выполните действия, которые можно сделать в окте Копирование и вкопка только видимых ячеек.

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

​Смотрите также​: Лена, у Вас​ ​solotze​​ на клавиатуре не​ нужно нажать левой​ диапазон.​ фильтра», _ Title:=»Копирование​ нужное значение?​ новые данные вставляются​ не в те​ Exit Sub End​Такой способ подойдет и​ про которую мне​ фильтр, то вставятся​ Excel провели с​ или формулой, как​ только в отфильтрованные​Вставить только в видимые​ не Excel, а​: может чтоб она​
​ могу.​​ клавишей мыши, перетащить​​2) Нажать кнопку​
​ значений», _ Default:=ActiveCell.Value)​Tviga​ с помощью заполнения?​
​ которые я фильтранул……​ If ‘переносим данные​ для ввода значений​ задают почти на​ отфильтрованные данные и​ помощью фильтра или​ в первой ячейке.​ строки.​ строки в​ ОпенОфис. Там это​ была активна, надо​еще вот это​ и отпустить на​ «ВыделитьВидемыеЯчейки».​ Selection.AutoFilter Field:=1, Criteria1:=a​: вобщем так.​Тогда нужно сделать​ВОПРОС как вставить​
​ из одного диапазона​
​ и для ввода​ каждом тренинге. Есть​
Вставить в видимые строки Excel.​ в скрытые фильтром​ сортировки. Теперь их​ В нашем примере,​
​Второй способ.​
​Excel​ вообще не нужно​ еще куда нажать​ нашла​ любой панели кнопок​3) Начать копирование​ c = ActiveCell.Column​не совсем понятно​ так: отфильтровать столбец,​ в те которые​ в другой только​ формул. Например, если​ таблица, в которой​ строки. Вообщем, получится​ нужно распечатать или​ мы написали число800​
​Также отфильтруем данные.​числа, формулы, текст​ — фильтруете ячейки,​такаюсь уже пол​Меню​ (лучше где-то в​ (ну а далее​ EndRow = ActiveSheet.UsedRange.Row​ как завязаны между​ выделить диапазон ячеек,​ отфильтрованы!!!!​​ в видимые ячейки​ скидка для «Ашанов»​

​ Фильтром (​ каша.​ перенести в другое​ в ячейку D2​ В первой ячейке​ можно несколькими способами.​ выделяете всю кучу​ дня в эту​Правка​ конце панели, чтоб​ обычно).​​ — 1 +​ собой листы. Нет​​ которые хотим заполнить,​(можно скопировать отфильтрофанные​ i = 1​ не фиксированная, а​Данные — Фильтр​Второй способ.​ место.​ столбца D. Немного​ пишем число, формулу,​ Когда нужно вставить​ сразу и, не​ кнопку​Перейти​ логику панели не​Вопрос в другом.​ _ ActiveSheet.UsedRange.Rows.Count ‘​ никаких одинаковых данных.​ затем в диалоговом​ данные на новый​ For Each cell​ составляет 10% от​
​) отобраны несколько строк.​
​Таблица та же.​Копирование в Excel​ не по теме,​ текст, т.д. Теперь,​ числа, формулы, текст​ задумываясь о плохом,​может есть еще​Выделить​ ломать).​ Где найти кнопку​ Находим последнюю строку​ Куча повторяющихся значений.​ окне ВЫДЕЛЕНИЕ ГРУППЫ​ лист «вставить значения»​ In pasterng If​ суммы сделки, то​ Задача — вставить​ Выделить таблицу с​настроено так, что​ но хочется сказать​
Как вставить только в видимые стоки Excel.​ если строк тысячи,​ не во все​ просто вставляете в​ какой вариант?​Только виденные ячейки​8) закрыть панель​ «ВыделитьВидемыеЯчейки»? В Excel-2003​ _ рабочей области​ Кодов нет. Из​ ЯЧЕЕК поставить переключатель​

excel-office.ru

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

​ — далее добавить​ cell.EntireRow.Hidden = False​ в первую отфильтрованную строку​ какие-либо нужные нам​ отфильтрованными данными. На​ копируются и скрытые​ здесь. Сочетание клавиш​​ то выделяем ячейки​​ строки таблицы, можно​ нужное место.​solotze​
​Копировать​​ настройки.​​ ее можно найти​ For i =​
​ того что было​
​ ТОЛЬКО ВИДИМЫЕ ЯЧЕЙКИ,​ столбец, НО тогда​​ Then cell.Value =​ можно ввести не​
​ значения именно в​ закладке «Главная» нажимаем​
​ ячейки.​ «Ctrl» + R​ так: нажимаем клавиши​
​ воспользоваться фильтром. Как​igrtsk​:​
Как копировать отфильтрованные строки в Excel.​Вставить​После вышеописанных действий​ в настройках панелей​ 1 To EndRow​ предложено могу только​ ввести нужное значение​
​ нарушается последовательность списка​ copyrng.Cells(i).Value i =​ константу (1000), а​ видимые отфильтрованные строки,​
​ в разделе «Редактирование»​​Рассмотрим два способа,​ – копирует данные​ «Ctrl» + «Shift»​ установить фильтр и​: А я уже​Ну, попробуйте тогда Сервис-Настройка-Команды,​но не могу​ кнопка «ВыделитьВидемыеЯчейки» будет​ управления.​ If Cells(i, c).Value​ так. Вставить пару​ и нажать +.​ ЗАГОЛОВКИ ПОДПУНКТЫ с​ i + 1​ формулу (=C2*10%) и также скопировать вниз.​ пропуская при этом​ ​ кнопку​
​к​ по строке Excel​ + кнопку (стрелочку)​ как фильтровать в​ грешным делом подумал,​ в категории «Правка»​​ все это найти​ там куда вы​​Olya1985​ = a Then​ столбцов. И формулу.​ В этом случае​ текстом описанием и​ End If Next​Другое дело, если вам​ скрытые. Обычное копирование-вставка​функции «Найти и выделить»​​ак копировать отфильтрованные строки​ (в нашем примере​ вниз (или кнопку​ Excel, смотрите в​ что тему затролили​ кнопка «Выделить только​ в компе!!!​ ее перетащили и​: Вопрос в другом.​ Cells(i, c).Select Selection.Copy​
​ А больше не​​ заполнятся только видимые​ т.п. НУЖНО СОХРАНИТЬ​​ cell End Sub​ необходимо вставить в​ при этом не​ в Excel​ в Excel.​ – строка 2,​ вверх, зависит от​ статье «Фильтр в​solotze​ видимые ячейки».​Понимаю, что туплю,​ можно будет выполнить​

excel-office.ru

Вставка в отфильтрованные строки

​ Где найти кнопку​ Cells(EndRow + 5,​ знаю как.​ ячейки.​ ЦЕЛОСТНОСТЬ!!!!) ХЕЛП!!!!!!​Как легко сообразить, макрос​​ отфильтрованные ячейки не​​ сработает, т.к. данные вставятся​. Затем, нажимаем кнопку​Первый способ.​ копировали число 800​ того, где хотим​ Excel». Но, чтобы​: что значит Опен-офис?​это вообще не​ но надо сделать…​ все действия из​ «ВыделитьВидемыеЯчейки»? В Excel-2003​ c).Activate ‘ Активируем​Вроде все сошлось.​Гость​Serge_007​

Способ 1. Вставка одинаковых значений или формул

​ запрашивает у пользователя​ одинаковые значения или​ не только в​ «Перейти». В появившемся​Есть замечательная функция​ из ячейки D2).​ выделить ячейки –​ вставить данные только​ И как фильтровать?​

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

​ могу найти!!! Либо​ArkaIIIa​ моего предыдущего сообщения.​ ее можно найти​

​ последнюю строку _​http://zalil.ru/33260588​: Как вариант могу​: В Excel 2007/2010​ по очереди два​ формулы, а разные,​ видимые, но и​ диалоговом окне, нажимаем​

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

​ в Excel –​ Получилось так.​ ниже или выше​ в видимые ячейки,​solotze​ я туплю, либо​: Вы же всё​

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

​Кстати, если впоследствии​ в настройках панелей​ плюс 5 строк.​Olya1985​ скинуть вам файл,​ по умолчанию данные​ диапазона — копирования​ да еще и​ в скрытые ячейки.​ кнопку «Выделить…». В​функция «Специальная вставка» в​Третий способ.​

Способ 2. Макрос вставки любых значений

​ ячейки, в которой​ нужны свои способы,​: _Boroda_,​ версия компа чудная.​ сами написали.​ Вам будет нужно​ управления.​ If Not IsEmpty(Cells(EndRow​: Подскажите, пожалуйста, можно​ попробуете, если все​​ вставляются только в​​ и вставки. Затем​ брать их из другого​ Давайте посмотрим, как​ окне «Выделение группы​​ Excel.​​В новом столбце​ написали число).​

​ особенно, если много​Надо что бы​Не пойму в​1) Выделяете весь​ удалить какие-то кнопки​А где именно?​ + 5, c).Value)​ ли в excel​ получится буду благодарен…​ отфильтрованные строки, что​ проверяет, чтобы их​ диапазона. Тогда придется использовать​ можно обойти эту​ ячеек» ставим галочку​Итак, у нас​ (в нашем примере​Теперь, или нажимаем​ строк.​ при копировании, скрытые​ чем дело.​ диапазон​ с панелей, то​Семен Казменко​ Then ‘ если​ 2003 после копирования​Гость​ бы вставить во​ размеры совпадали, т.к.​ несложный макрос. Нажмите​ проблему.​ у строки «только​ есть таблица.​ – столбец Е)​

​ сочетание клавиш «Ctrl»​Первый способ -​ ячейки (цветные), не​ArkaIIIa​2) Тыкаете F5​ их можно перетаскивать​: Расскажу только про​ строка не пустая,​ столбца с отфильтрованными​: новые данные вставляются​ все необходимо воспользоваться​ разница в размерностях​ сочетание клавиш​Если вам нужно вставить​ видимые ячейки». Нажимаем​Как установить фильтр, смотрите​ выделяем ячейки. Нажимаем​

planetaexcel.ru

Таблица Фильтрация ВСТАВКА -СРОЧНО НУЖНА ПОМОЩЬ!!!

​ + G, или​​обычный​ копировались.​
​: У меня, к​3) В появившемся​ в обратном порядке​ Excel-2003. Дома под​ тогда… Do ActiveCell.Offset(1,​
​ данными сделать так,​ не с помощью​ спецвставкой и поставить​ вызовет впоследствии ошибку​Alt+F11​ одни и те​ «ОК».​ в статье «Фильтр​ клавишу F5. Выйдет​ клавишу F5. Выйдет​.​igrtsk​
​ сожалению, нет под​ окне внизу кнопочка​ при наличии на​
​ рукой только он.​ 0).Select Loop Until​ чтобы при их​ заполнения, а копируются​ галку на «Пропускать​ при вставке. Затем​, в открывшемся окне​ же значения во​Теперь на этой же​ в Excel».​

​ диалоговое окно «Переход».​​ диалоговое окно «Переход».​Возьмем такую таблицу.​:​ рукой 2003 экселя.​ «выделить»​ экране окна «Настройка».​1) левой кнопкой мыши​ IsEmpty(ActiveCell.Value) ‘…находим пустую​ вставке в отедельный​

​ с нового листа…(при​​ пустые ячейки».​ макрос перебирает все​ Visual Basic вставьте​ все отфильтрованные строки​ выделенной таблице правой​Мы убираем фильтром​ Нажимаем кнопку «Выделить…».​ Нажимаем кнопку «Выделить…».​ Таблица будет одна​solotze​ Сделайте хотя бы​4) Ставите флажок​

​ Например, выбрали кнопку​​ по любой панели​ ячейку ниже ActiveSheet.Paste​ столбец они вставлялись​

​ протягивании все ок)​​Гость​
​ ячейки в диапазоне​ новый пустой модуль​ списка, то все​

​ мышкой вызываем контекстное​​ из списка всех​ И, в новом​ И, в новом​
​ для всех примеров.​,​ скрин шапки, что​ на «Только видимые​ «Сохранить» (дискетка) и​ кнопок (например, обычно​ Application.CutCopyMode = False​ с учетом фильтра,​Pelena​: Стоит 2007 …в​ вставки и переносит​ через меню​ просто. Предположим, что​

​ меню. Нажимаем функцию​​ Ивановых. Получилось так.​ диалоговом окне «Выделение​ диалоговом окне «Выделение​Уберем фильтром все цифры​

​Судя по расширению​​ у вас там​ ячейки»​ перетащили ее отпустив​ включена панель «Стандартная»).​ Else ActiveSheet.Paste Application.CutCopyMode​

​ то есть тольке​​: А у Вас​ том то и​
​ туда данные из​

​Insert — Module​​ у нас есть​
​ «Копировать». В новом​
​Выделяем таблицу, нажимаем в​ группы ячеек», ставим​ группы ячеек» ставим​ 2 из таблицы.​ файла (​
​ в менюшке верхней​5) Тыкаете ОК​

​ на окне «Настройка».​​2) в появившемся​ = False End​ те данные которые​ не получилось?​
​ дело что по​ диапазона копирования, если​и скопируйте туда​ вот такой список​ месте (в нашем​

​ контекстном меню «Копировать».​​ галочку у слов​
​ галочку у слов​ В оставшиеся видимые​.ods​ вообще есть.​6) У вас​Olya1985​ контекстном меню список​ If End If​ видны нам и​Выкладывайте файл​ умолчанию вставляет значения​ строка видима (т.е.​
​ этот код:​
​ сделок:​

excelworld.ru

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

​ примере – это​​ Нажимаем левой мышкой​ «Только видимые ячейки».​ «Только видимые ячейки».​ ячейки поставим цифру​) вы используете в​solotze​ автоматом выделяются только​: спасибо! у меня​ панелей экранных кнопок,​ Next i End​ не hidden.​Гость​ по порядку во​

​ не отфильтрована).​​Sub PasteToVisible() Dim​… и в нем нужно поставить​ ячейка А15) нажимаем​ ячейку А9, выбираем​ Нажимаем «ОК». Теперь,​Нажимаем «ОК». Затем вставляем​ 600. В ячейку​ работе не офисный​: F5 нашла как​ видимые ячейки, вы​ тоже excel 2003.​ в самом низу​ SubP.S. Мало данных​Igor_Tr​: вот сам файлик​ все скрытые строки​Гость​ copyrng As Range,​ фиксированную скидку в​ «Вставить». Всё. Получилось​ в контекстном меню​ не отменяя выделения,​ как обычно.​ В2 ставим число​ пакет от Microsoft​ функционирует. Высветилось окошко.​ их ctrl+с и​ а еще можно​ пункт «настройка». Выбрать​ — раз! Все​: Sub Копировать_Отфильтрованное() Dim​http://rghost.ru/38132320​ в столбце…а не​: Уважаемые знающие люди…помогите​ pasterng As Range​ 1000 рублей каждому​ так.​ «значения».​ в первой ячейке​Ещё один способ​ 600, затем копируем​ , а Open​ Но нет «выделить»​ куда нужно ctrl+v​ этот пункт добавить​ его.​ что выше можно​ a As Double​в лист «все​ в нужные отфильтрованные,​ плиз…​ Dim cell As​ «Ашану».​
​Как, не копируя, сразу​Нажимаем «ОК». Вуаля. Скопировалось​ столбца (у нас​ вызвать диалоговое окно​

​ его вниз по​​ Office либо LibreOffice..​

​ArkaIIIa​​solotze​ в меню edit.​3) появится окно​ сделат массивом. Но​ Dim c As​
​ районы» в столбец​ побывал и спецвставкой​
​Суть есть список​ Range, i As​
​Фильтруем наш список Автофильтром,​напечатать данные фильтра в​ не только значение​
​ – Е2) вводим​ «Выделение группы ячеек».​ столбцу (тянем за​А рекомендации вам​:​: так и делаю,​

​solotze​​ «Настройка», там на​ я как-то​ Integer Dim r​ «Т» вставить значения​ с галкой «Пропускать​ из около 2000​
​ Long ‘запрашиваем у​

​ оставляя на экране​​ Excel​ видимых строк, но​ формулу, цифру, т.д.​
​ На закладке «Главная»​ правый нижний угол​ дают по MS​solotze​
​ не активна F5​: как в экселе​ вкладке «Команды» два​с массивами не​ As Integer Dim​ из листа «ИЗНОС»​
​ пустые ячейки». НЕ​ строк с огловлениями​ пользователя по очереди​ только «Ашаны». Вводим​
​, смотрите в статье​ и формат ячеек.​ Нажимаем сочетание клавиш​
​ в разделе «Редактирование»​ ячейки В2). Значения​ Office. По сему​
​Повторно. Не «видя»,​Pelena​ скопировать данные без​ списка.​
​ очень. А так​ i As Integer​ из столбца «N»​ ВЫХОДИТ!!!!​ пустыми строками …​ диапазоны копирования и​ нужное значение в​ «Закладка листа Excel​Есть один нюанс​
​ «Ctrl» + «Enter».​ нажимаем на кнопку​

​ скопировались только в​ у вас и​ что у Вас​: F5 — функциональная​ скрытых ячеек​4) в правом​ — чем мог,​
​ Dim EndRow As​как то так​Гость​ и 15 столбцами​ вставки Set copyrng​ первую ячейку и​ «Разметка страницы»» здесь.​- вставлять отфильтрованные​В Excel ячейки​ «Найти и выделить».​ видимые ячейки. Точно​ нет тех самых​

​ там на экране​​ клавиша на клавиатуре.​нашла вот это​ списке выбрать категорию​ тем помог.​ Integer ‘как работает?​

CyberForum.ru

Копирование в экселе (как скопировать без скрытых ячеек)

​ вот!!!​​: Короче никто не​фильтрую по допустим​ = Application.InputBox(«Диапазон копирования»,​
​ протягиваем (копируем за​ Какие способы есть​​ данные не в​ можно выделить цветом​ В появившемся списке​ также можно вставлять​ меню и кнопок,​ происходит — помочь​​ Как она может​ -​ «Правка»​Olya1985​
​ _ ‘ Выделям​Pelena​
​ знает и никто​
​ 5 столбцу, получаю​
​ «Запрос», Type:=8) Set​
​ правый нижний угол​
​ ещё выделить только​
​ строки, где стоит​
​ по поределенному условию,​
​ нажимаем на функцию​ и формулы. Мы​ о которых говорят​
​ Вам очень трудно.​ быть не активна?​

​Выделяете диапазон — F5​​5) в левом​: хорошо. спасибо!​
​ ячейку с нужным​: Файл пока не​
​ не поможет?!?!?​
​ список из 560​ pasterng = Application.InputBox(«Диапазон​ ячейки) вниз:​
​ видимые строки, особенно​ фильтр. Например, у​ которое мы зададим​
​ «Выделение группы ячеек».​
​ в ячейке С2​ и пишут все​ Надергайте скринов и​ArkaIIIa​ — Выделить —​

​ появится список команд​​Семен Казменко​ значением. Далее ОК.​

​ смотрела, но для​​Serge_007​ строк… в соседний​ вставки», «Запрос», Type:=8)​Умный Excel в данном​

​ если их много.​​ нас в примере​​ условным форматированием и​
​ Чтобы​ пишем такую формулу.​solotze​ приложите к сообщению,​

​:​​ Только видимые ячейки​ этой категории.​: Предложенный Вам вариант​
​ ‘Если фильтр уже​ копировать/вставить этот способ​: Я уже ответил.​
​ столбец ПЫТАЮСЬ вставить​ ‘проверяем, чтобы они​

​ случае понимает, что​​ Как вставить данные​​ — не в​ формулой. Смотрите, как​заполнить видимые ячейки в​ =А2*10​
​: igrtsk,​ может попроще будет​solotze​ — Ок. А​
​6) почти в​ такой заумный. Все​

​ задействован — выделяем​​ действительно не пойдет.​Почему у Вас​ новые данные …​ были одинакового размера​ вы хотите ввести​ в отфильтрованные строки,​ строки 1-7, а​ это сделать, в​

​ выделенных столбцах Excel​​Получилось так.​это я уже​ разобраться.​

​Ну, попробуйте тогда​​ дальше уже копируете,​​ самом конце этого​
​ это можно сделать​ любую видимую ячейку.​Эти две таблицы​ не так -​ и получается что​ If pasterng.SpecialCells(xlCellTypeVisible).Cells.Count <>​ значения именно в​ смотрите в статье​ ниже или на​

​ статье «Закрасить ячейку​​, нажимаем сочетание клавиш​

​Отменим фильтр. Получилась такая​​ поняла. Так я​solotze​ Сервис-Настройка-Команды, в категории​ как обычно​ (см.п.5) списка кнопка​ простым копированием. Для​ _ ‘ Далее​ ведь как-то связаны​ надо разбираться локально​ вставляются данные во​

​ copyrng.Cells.Count Then MsgBox​​ отфильтрованные ячейки и​ «Вставить в видимые​ другом листе, т.д.​:D

​ по условию в​​ «Ctrl» + D.​ таблица.​

​ смогу как то​​: вот что получается​
​ «Правка» кнопка «Выделить​- но где​ «ВыделитьВидемыеЯчейки»​ этого:​

​ по ходу a​​ между собой, может​​Pelena​​ все по порядку​
​ «Диапазоны копирования и​ делает то, что​​ строки в Excel».​​ Если вставим в​ Excel формулой».​ И все выделенные​Формула и цифры вставились​ сделать такое копирование?​
​_Boroda_​ только видимые ячейки».​ все это найти​7) на нее​1) Выделить нужный​ = InputBox(prompt:=»Введите значение​ формулой попробовать найти​: Я так понимаю​

​ скрытие ячейки, а​​ вставки разного размера!»,vbCritical​
​ нужно:​Весьма распространенная ситуация, вопрос​ строки, где стоит​Отбор данных в​

excelworld.ru

​ столбцы заполнятся данными​

Содержание

  1. Excel вставка в только видимые ячейки
  2. Вставить в видимые строки в Excel.
  3. Копирование в Excel отфильтрованных данных.
  4. Вставка в отфильтрованные строки
  5. Способ 1. Вставка одинаковых значений или формул
  6. Способ 2. Макрос вставки любых значений
  7. Таблица Фильтрация ВСТАВКА -СРОЧНО НУЖНА ПОМОЩЬ.
  8. Вставить скопированные строки в Excel с учетом фильтра
  9. Копирование в экселе (как скопировать без скрытых ячеек)

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

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

​Смотрите также​: Лена, у Вас​ ​solotze​​ на клавиатуре не​ нужно нажать левой​ диапазон.​ фильтра», _ Title:=»Копирование​ нужное значение?​ новые данные вставляются​ не в те​ Exit Sub End​Такой способ подойдет и​ про которую мне​ фильтр, то вставятся​ Excel провели с​ или формулой, как​ только в отфильтрованные​Вставить только в видимые​ не Excel, а​: может чтоб она​
​ могу.​​ клавишей мыши, перетащить​​2) Нажать кнопку​
​ значений», _ Default:=ActiveCell.Value)​Tviga​ с помощью заполнения?​
​ которые я фильтранул. ​ If ‘переносим данные​ для ввода значений​ задают почти на​ отфильтрованные данные и​ помощью фильтра или​ в первой ячейке.​ строки.​ строки в​ ОпенОфис. Там это​ была активна, надо​еще вот это​ и отпустить на​ «ВыделитьВидемыеЯчейки».​ Selection.AutoFilter Field:=1, Criteria1:=a​: вобщем так.​Тогда нужно сделать​ВОПРОС как вставить​
​ из одного диапазона​
​ и для ввода​ каждом тренинге. Есть​
​ в скрытые фильтром​ сортировки. Теперь их​ В нашем примере,​
​Второй способ.​
​Excel​ вообще не нужно​ еще куда нажать​ нашла​ любой панели кнопок​3) Начать копирование​ c = ActiveCell.Column​не совсем понятно​ так: отфильтровать столбец,​ в те которые​ в другой только​ формул. Например, если​ таблица, в которой​ строки. Вообщем, получится​ нужно распечатать или​ мы написали число800​
​Также отфильтруем данные.​числа, формулы, текст​ — фильтруете ячейки,​такаюсь уже пол​Меню​ (лучше где-то в​ (ну а далее​ EndRow = ActiveSheet.UsedRange.Row​ как завязаны между​ выделить диапазон ячеек,​ отфильтрованы. ​​ в видимые ячейки​ скидка для «Ашанов»​

​ Фильтром (​ каша.​ перенести в другое​ в ячейку D2​ В первой ячейке​ можно несколькими способами.​ выделяете всю кучу​ дня в эту​Правка​ конце панели, чтоб​ обычно).​​ — 1 +​ собой листы. Нет​​ которые хотим заполнить,​(можно скопировать отфильтрофанные​ i = 1​ не фиксированная, а​Данные — Фильтр​Второй способ.​ место.​ столбца D. Немного​ пишем число, формулу,​ Когда нужно вставить​ сразу и, не​ кнопку​Перейти​ логику панели не​Вопрос в другом.​ _ ActiveSheet.UsedRange.Rows.Count ‘​ никаких одинаковых данных.​ затем в диалоговом​ данные на новый​ For Each cell​ составляет 10% от​
​) отобраны несколько строк.​
​Таблица та же.​Копирование в Excel​ не по теме,​ текст, т.д. Теперь,​ числа, формулы, текст​ задумываясь о плохом,​может есть еще​Выделить​ ломать).​ Где найти кнопку​ Находим последнюю строку​ Куча повторяющихся значений.​ окне ВЫДЕЛЕНИЕ ГРУППЫ​ лист «вставить значения»​ In pasterng If​ суммы сделки, то​ Задача — вставить​ Выделить таблицу с​настроено так, что​ но хочется сказать​
​ если строк тысячи,​ не во все​ просто вставляете в​ какой вариант?​Только виденные ячейки​8) закрыть панель​ «ВыделитьВидемыеЯчейки»? В Excel-2003​ _ рабочей области​ Кодов нет. Из​ ЯЧЕЕК поставить переключатель​

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

Вставка в отфильтрованные строки

​ Где найти кнопку​ Cells(EndRow + 5,​ знаю как.​ ячейки.​ ЦЕЛОСТНОСТЬ. ) ХЕЛП. ​Как легко сообразить, макрос​​ отфильтрованные ячейки не​​ сработает, т.к. данные вставятся​. Затем, нажимаем кнопку​Первый способ.​ копировали число 800​ того, где хотим​ Excel». Но, чтобы​: что значит Опен-офис?​это вообще не​ но надо сделать. ​ все действия из​ «ВыделитьВидемыеЯчейки»? В Excel-2003​ c).Activate ‘ Активируем​Вроде все сошлось.​Гость​Serge_007​

Способ 1. Вставка одинаковых значений или формул

​ запрашивает у пользователя​ одинаковые значения или​ не только в​ «Перейти». В появившемся​Есть замечательная функция​ из ячейки D2).​ выделить ячейки –​ вставить данные только​ И как фильтровать?​

​ могу найти. Либо​ArkaIIIa​ моего предыдущего сообщения.​ ее можно найти​

​ последнюю строку _​http://zalil.ru/33260588​: Как вариант могу​: В Excel 2007/2010​ по очереди два​ формулы, а разные,​ видимые, но и​ диалоговом окне, нажимаем​

​ в Excel –​ Получилось так.​ ниже или выше​ в видимые ячейки,​solotze​ я туплю, либо​: Вы же всё​

​Кстати, если впоследствии​ в настройках панелей​ плюс 5 строк.​Olya1985​ скинуть вам файл,​ по умолчанию данные​ диапазона — копирования​ да еще и​ в скрытые ячейки.​ кнопку «Выделить…». В​функция «Специальная вставка» в​Третий способ.​

Способ 2. Макрос вставки любых значений

​ ячейки, в которой​ нужны свои способы,​: _Boroda_,​ версия компа чудная.​ сами написали.​ Вам будет нужно​ управления.​ If Not IsEmpty(Cells(EndRow​: Подскажите, пожалуйста, можно​ попробуете, если все​​ вставляются только в​​ и вставки. Затем​ брать их из другого​ Давайте посмотрим, как​ окне «Выделение группы​​ Excel.​​В новом столбце​ написали число).​

​ особенно, если много​Надо что бы​Не пойму в​1) Выделяете весь​ удалить какие-то кнопки​А где именно?​ + 5, c).Value)​ ли в excel​ получится буду благодарен. ​ отфильтрованные строки, что​ проверяет, чтобы их​ диапазона. Тогда придется использовать​ можно обойти эту​ ячеек» ставим галочку​Итак, у нас​ (в нашем примере​Теперь, или нажимаем​ строк.​ при копировании, скрытые​ чем дело.​ диапазон​ с панелей, то​Семен Казменко​ Then ‘ если​ 2003 после копирования​Гость​ бы вставить во​ размеры совпадали, т.к.​ несложный макрос. Нажмите​ проблему.​ у строки «только​ есть таблица.​ – столбец Е)​

​ сочетание клавиш «Ctrl»​Первый способ -​ ячейки (цветные), не​ArkaIIIa​2) Тыкаете F5​ их можно перетаскивать​: Расскажу только про​ строка не пустая,​ столбца с отфильтрованными​: новые данные вставляются​ все необходимо воспользоваться​ разница в размерностях​ сочетание клавиш​Если вам нужно вставить​ видимые ячейки». Нажимаем​Как установить фильтр, смотрите​ выделяем ячейки. Нажимаем​

Таблица Фильтрация ВСТАВКА -СРОЧНО НУЖНА ПОМОЩЬ.

​ + G, или​​обычный​ копировались.​
​: У меня, к​3) В появившемся​ в обратном порядке​ Excel-2003. Дома под​ тогда. Do ActiveCell.Offset(1,​
​ данными сделать так,​ не с помощью​ спецвставкой и поставить​ вызовет впоследствии ошибку​Alt+F11​ одни и те​ «ОК».​ в статье «Фильтр​ клавишу F5. Выйдет​ клавишу F5. Выйдет​.​igrtsk​
​ сожалению, нет под​ окне внизу кнопочка​ при наличии на​
​ рукой только он.​ 0).Select Loop Until​ чтобы при их​ заполнения, а копируются​ галку на «Пропускать​ при вставке. Затем​, в открывшемся окне​ же значения во​Теперь на этой же​ в Excel».​

​ диалоговое окно «Переход».​​ диалоговое окно «Переход».​Возьмем такую таблицу.​:​ рукой 2003 экселя.​ «выделить»​ экране окна «Настройка».​1) левой кнопкой мыши​ IsEmpty(ActiveCell.Value) ‘. находим пустую​ вставке в отедельный​

​ с нового листа. (при​​ пустые ячейки».​ макрос перебирает все​ Visual Basic вставьте​ все отфильтрованные строки​ выделенной таблице правой​Мы убираем фильтром​ Нажимаем кнопку «Выделить…».​ Нажимаем кнопку «Выделить…».​ Таблица будет одна​solotze​ Сделайте хотя бы​4) Ставите флажок​

​ Например, выбрали кнопку​​ по любой панели​ ячейку ниже ActiveSheet.Paste​ столбец они вставлялись​

​ протягивании все ок)​​Гость​
​ ячейки в диапазоне​ новый пустой модуль​ списка, то все​

​ мышкой вызываем контекстное​​ из списка всех​ И, в новом​ И, в новом​
​ для всех примеров.​,​ скрин шапки, что​ на «Только видимые​ «Сохранить» (дискетка) и​ кнопок (например, обычно​ Application.CutCopyMode = False​ с учетом фильтра,​Pelena​: Стоит 2007 . в​ вставки и переносит​ через меню​ просто. Предположим, что​

​ меню. Нажимаем функцию​​ Ивановых. Получилось так.​ диалоговом окне «Выделение​ диалоговом окне «Выделение​Уберем фильтром все цифры​

​Судя по расширению​​ у вас там​ ячейки»​ перетащили ее отпустив​ включена панель «Стандартная»).​ Else ActiveSheet.Paste Application.CutCopyMode​

​ то есть тольке​​: А у Вас​ том то и​
​ туда данные из​

​Insert — Module​​ у нас есть​
​ «Копировать». В новом​
​Выделяем таблицу, нажимаем в​ группы ячеек», ставим​ группы ячеек» ставим​ 2 из таблицы.​ файла (​
​ в менюшке верхней​5) Тыкаете ОК​

​ на окне «Настройка».​​2) в появившемся​ = False End​ те данные которые​ не получилось?​
​ дело что по​ диапазона копирования, если​и скопируйте туда​ вот такой список​ месте (в нашем​

​ контекстном меню «Копировать».​​ галочку у слов​
​ галочку у слов​ В оставшиеся видимые​.ods​ вообще есть.​6) У вас​Olya1985​ контекстном меню список​ If End If​ видны нам и​Выкладывайте файл​ умолчанию вставляет значения​ строка видима (т.е.​
​ этот код:​
​ сделок:​

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

​ примере – это​​ Нажимаем левой мышкой​ «Только видимые ячейки».​ «Только видимые ячейки».​ ячейки поставим цифру​) вы используете в​solotze​ автоматом выделяются только​: спасибо! у меня​ панелей экранных кнопок,​ Next i End​ не hidden.​Гость​ по порядку во​

​ не отфильтрована).​​Sub PasteToVisible() Dim​. и в нем нужно поставить​ ячейка А15) нажимаем​ ячейку А9, выбираем​ Нажимаем «ОК». Теперь,​Нажимаем «ОК». Затем вставляем​ 600. В ячейку​ работе не офисный​: F5 нашла как​ видимые ячейки, вы​ тоже excel 2003.​ в самом низу​ SubP.S. Мало данных​Igor_Tr​: вот сам файлик​ все скрытые строки​Гость​ copyrng As Range,​ фиксированную скидку в​ «Вставить». Всё. Получилось​ в контекстном меню​ не отменяя выделения,​ как обычно.​ В2 ставим число​ пакет от Microsoft​ функционирует. Высветилось окошко.​ их ctrl+с и​ а еще можно​ пункт «настройка». Выбрать​ — раз! Все​: Sub Копировать_Отфильтрованное() Dim​http://rghost.ru/38132320​ в столбце. а не​: Уважаемые знающие люди. помогите​ pasterng As Range​ 1000 рублей каждому​ так.​ «значения».​ в первой ячейке​Ещё один способ​ 600, затем копируем​ , а Open​ Но нет «выделить»​ куда нужно ctrl+v​ этот пункт добавить​ его.​ что выше можно​ a As Double​в лист «все​ в нужные отфильтрованные,​ плиз. ​ Dim cell As​ «Ашану».​
​Как, не копируя, сразу​Нажимаем «ОК». Вуаля. Скопировалось​ столбца (у нас​ вызвать диалоговое окно​

​ его вниз по​​ Office либо LibreOffice..​

​ArkaIIIa​​solotze​ в меню edit.​3) появится окно​ сделат массивом. Но​ Dim c As​
​ районы» в столбец​ побывал и спецвставкой​
​Суть есть список​ Range, i As​
​Фильтруем наш список Автофильтром,​напечатать данные фильтра в​ не только значение​
​ – Е2) вводим​ «Выделение группы ячеек».​ столбцу (тянем за​А рекомендации вам​:​: так и делаю,​

​solotze​​ «Настройка», там на​ я как-то​ Integer Dim r​ «Т» вставить значения​ с галкой «Пропускать​ из около 2000​
​ Long ‘запрашиваем у​

​ оставляя на экране​​ Excel​ видимых строк, но​ формулу, цифру, т.д.​
​ На закладке «Главная»​ правый нижний угол​ дают по MS​solotze​
​ не активна F5​: как в экселе​ вкладке «Команды» два​с массивами не​ As Integer Dim​ из листа «ИЗНОС»​
​ пустые ячейки». НЕ​ строк с огловлениями​ пользователя по очереди​ только «Ашаны». Вводим​
​, смотрите в статье​ и формат ячеек.​ Нажимаем сочетание клавиш​
​ в разделе «Редактирование»​ ячейки В2). Значения​ Office. По сему​
​Повторно. Не «видя»,​Pelena​ скопировать данные без​ списка.​
​ очень. А так​ i As Integer​ из столбца «N»​ ВЫХОДИТ. ​ пустыми строками . ​ диапазоны копирования и​ нужное значение в​ «Закладка листа Excel​Есть один нюанс​
​ «Ctrl» + «Enter».​ нажимаем на кнопку​

​ скопировались только в​ у вас и​ что у Вас​: F5 — функциональная​ скрытых ячеек​4) в правом​ — чем мог,​
​ Dim EndRow As​как то так​Гость​ и 15 столбцами​ вставки Set copyrng​ первую ячейку и​ «Разметка страницы»» здесь.​- вставлять отфильтрованные​В Excel ячейки​ «Найти и выделить».​ видимые ячейки. Точно​ нет тех самых​

​ там на экране​​ клавиша на клавиатуре.​нашла вот это​ списке выбрать категорию​ тем помог.​ Integer ‘как работает?​

Копирование в экселе (как скопировать без скрытых ячеек)

​ вот. ​​: Короче никто не​фильтрую по допустим​ = Application.InputBox(«Диапазон копирования»,​
​ протягиваем (копируем за​ Какие способы есть​​ данные не в​ можно выделить цветом​ В появившемся списке​ также можно вставлять​ меню и кнопок,​ происходит — помочь​​ Как она может​ -​ «Правка»​Olya1985​
​ _ ‘ Выделям​Pelena​
​ знает и никто​
​ 5 столбцу, получаю​
​ «Запрос», Type:=8) Set​
​ правый нижний угол​
​ ещё выделить только​
​ строки, где стоит​
​ по поределенному условию,​
​ нажимаем на функцию​ и формулы. Мы​ о которых говорят​
​ Вам очень трудно.​ быть не активна?​

​Выделяете диапазон — F5​​5) в левом​: хорошо. спасибо!​
​ ячейку с нужным​: Файл пока не​
​ не поможет. ​
​ список из 560​ pasterng = Application.InputBox(«Диапазон​ ячейки) вниз:​
​ видимые строки, особенно​ фильтр. Например, у​ которое мы зададим​
​ «Выделение группы ячеек».​
​ в ячейке С2​ и пишут все​ Надергайте скринов и​ArkaIIIa​ — Выделить —​

​ появится список команд​​Семен Казменко​ значением. Далее ОК.​

​ смотрела, но для​​Serge_007​ строк. в соседний​ вставки», «Запрос», Type:=8)​Умный Excel в данном​

​ если их много.​​ нас в примере​​ условным форматированием и​
​ Чтобы​ пишем такую формулу.​solotze​ приложите к сообщению,​

​:​​ Только видимые ячейки​ этой категории.​: Предложенный Вам вариант​
​ ‘Если фильтр уже​ копировать/вставить этот способ​: Я уже ответил.​
​ столбец ПЫТАЮСЬ вставить​ ‘проверяем, чтобы они​

​ случае понимает, что​​ Как вставить данные​​ — не в​ формулой. Смотрите, как​заполнить видимые ячейки в​ =А2*10​
​: igrtsk,​ может попроще будет​solotze​ — Ок. А​
​6) почти в​ такой заумный. Все​

​ задействован — выделяем​​ действительно не пойдет.​Почему у Вас​ новые данные . ​ были одинакового размера​ вы хотите ввести​ в отфильтрованные строки,​ строки 1-7, а​ это сделать, в​

​ выделенных столбцах Excel​​Получилось так.​это я уже​ разобраться.​

​Ну, попробуйте тогда​​ дальше уже копируете,​​ самом конце этого​
​ это можно сделать​ любую видимую ячейку.​Эти две таблицы​ не так -​ и получается что​ If pasterng.SpecialCells(xlCellTypeVisible).Cells.Count <>​ значения именно в​ смотрите в статье​ ниже или на​

​ статье «Закрасить ячейку​​, нажимаем сочетание клавиш​

​Отменим фильтр. Получилась такая​​ поняла. Так я​solotze​ Сервис-Настройка-Команды, в категории​ как обычно​ (см.п.5) списка кнопка​ простым копированием. Для​ _ ‘ Далее​ ведь как-то связаны​ надо разбираться локально​ вставляются данные во​

​ copyrng.Cells.Count Then MsgBox​​ отфильтрованные ячейки и​ «Вставить в видимые​ другом листе, т.д.​

​ по условию в​​ «Ctrl» + D.​ таблица.​

​ смогу как то​​: вот что получается​
​ «Правка» кнопка «Выделить​- но где​ «ВыделитьВидемыеЯчейки»​ этого:​

​ по ходу a​​ между собой, может​​Pelena​​ все по порядку​
​ «Диапазоны копирования и​ делает то, что​​ строки в Excel».​​ Если вставим в​ Excel формулой».​ И все выделенные​Формула и цифры вставились​ сделать такое копирование?​
​_Boroda_​ только видимые ячейки».​ все это найти​7) на нее​1) Выделить нужный​ = InputBox(prompt:=»Введите значение​ формулой попробовать найти​: Я так понимаю​

​ скрытие ячейки, а​​ вставки разного размера!»,vbCritical​
​ нужно:​Весьма распространенная ситуация, вопрос​ строки, где стоит​Отбор данных в​

Источник

Получается, что при вставке данных, данные вставляются как в видимые, так и в скрытые строки. Подскажите, пожалуйста, как вставить данные, не затрагивая скрытые строки.


Никак.Только с помощью макроса.



Цитата: uletel от 28.04.2010, 11:53
Есть готовые универсальные макросы?

Макрос – это программа (набор команд)  на языке Microsoft Visual Basic for Applications, обозначаемый как язык VBA.  Макрос создается для автоматического выполнения конкретной  задачи. И готовым,  для вашей задачи, он быть не может. Как и не может быть универсальным. Вам может быть предложен пример макроса для решения задачи и привязывать этот пример к своей задаче придется самому.  Либо выложить книгу сюда и спецы привяжут.

Может и я на что сгожусь … Если сгодился, можете меня по+благодарить+.


Да ладно Вам. Требуемый макрос может быть универсальным.
Вот макрос:

Sub My_Past()
If Selection.Count > 1 Then Selection.SpecialCells(xlVisible).Select
ActiveSheet.Paste
End Sub

Копируете обычным методом, а вставляете этим макросом. Для удобства макрос лучше повесить на сочетание клавиш.

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы…
www.excel-vba.ru
Просто СПАСИБО [+оказать+]
Считаешь СПАСИБО мало? Яндекс.Деньги: 41001332272872; WM: R298726502453


Хмм. Макрос выделяет только видимые ячейки?
У меня почему-то не работает…


Странно. Может потому, что я забыл дописать, что перед вставкой макросом необходимо выделить диапазон для вставки? У меня работает и с ячейками,  скрытыми через Скрыть и через _автофильтр_.

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы…
www.excel-vba.ru
Просто СПАСИБО [+оказать+]
Считаешь СПАСИБО мало? Яндекс.Деньги: 41001332272872; WM: R298726502453


Пишет: Метод Paste из класса WorkSheet завершен неверно.
Я так, из интереса. Все делал так же. Копирую ячейку, выделяю диапазон, запускаю макрос.

Я использую на быстрой клавише макрос просто выделения только видимых ячеек. А вставку уже делаю обычно вручную.

Sub spet()

    Selection.SpecialCells(xlCellTypeVisible).Select
End Sub

После Вашего макроса, даже если его обрезать, данные из буфера исчезают :(



Так…Дома опробую на 2003 Excel, но насколько мне известно, не в методе дело. Есть подозрение, что в 2007 слегка доработали использование буфера обмена при работе с макросами.
Возможно такой вот финт поможет:
В обычный модуль пишем это:

Option Explicit
Public rRange As Range
Sub My_Copy()
    Set rRange = Selection
End Sub
Sub My_Paste()
    If rRange Is Nothing Then Exit Sub
    If Selection.Count > 1 Then Selection.SpecialCells(xlVisible).Select
    rRange.Copy: ActiveSheet.Paste
End Sub

В модуль ЭтаКнига

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.OnKey "^c": Application.OnKey "^v"
End Sub

Private Sub Workbook_Open()
    Application.OnKey "^q", "My_Copy": Application.OnKey "^w", "My_Paste"
End Sub

Теперь при нажатии Ctrl+q будет копироваться диапазон, а при нажатии Ctrl+w скопированное будет вставляться только в видимые ячейки выделенного диапазона.

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы…
www.excel-vba.ru
Просто СПАСИБО [+оказать+]
Считаешь СПАСИБО мало? Яндекс.Деньги: 41001332272872; WM: R298726502453


Я тестировал на 2003-м тоже. :)


Цитата: Prist от 28.04.2010, 14:05
Да ладно Вам. Требуемый макрос может быть универсальным.

Уважаемый Prist, извините, но я с Вами не согласен. В моем понятии «универсальный» — выполняющий много разных функций. Хотя, может я и не прав в своем понятии.

Может и я на что сгожусь … Если сгодился, можете меня по+благодарить+.


Цитата: Wasilic от 28.04.2010, 18:03В моем понятии «универсальный» — выполняющий много разных функций.

В моем понятии универсальный это тот, который работает на любом компьютере в любой ситуации(для которой создавался).
А вот макросы, «выполняющие много разных функций» я называю многофункциональными. Притом как раз такие и не являются универсальными по отдельности. Каждая функция выполняет определенную роль и крайне редко бывает универсальной.

Это мое видение этих двух понятий.

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы…
www.excel-vba.ru
Просто СПАСИБО [+оказать+]
Считаешь СПАСИБО мало? Яндекс.Деньги: 41001332272872; WM: R298726502453


Может и я на что сгожусь … Если сгодился, можете меня по+благодарить+.


В экселе без макросов все готово для копирования только видимых ячеек… у меня английский XL 2007: это вкладка Home, вконце — Editing group, Find & Select, Go To, Special, Visible cells only. Пока стоял 2003 Эксэль, там тоже пользовался подобной функцией, но по памяти не помогу ее найти.


Fright,
вопрос то не про выделение (ALT+Ж) и не копирование видимых ячеек.


Друзья,
тема действительно злободневная.
Кто-нибудь может сделать такой макрос?
Приложил пример, чтобы было понятнее.


Вот такой вот вариант. Копировать можно любой диапазон, но только состоящий из одной области(несмежные диапазоны не допускаются).

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы…
www.excel-vba.ru
Просто СПАСИБО [+оказать+]
Считаешь СПАСИБО мало? Яндекс.Деньги: 41001332272872; WM: R298726502453


Отлично! Такой вариант действительно может пригодится!
Уже в папке примеров.  :)

Может и я на что сгожусь … Если сгодился, можете меня по+благодарить+.



Понравилась статья? Поделить с друзьями:

А вот еще интересные статьи:

  • Excel как вставить одно значение для всего столбца
  • Excel как вставить одинаковые значения в ячейках
  • Excel как вставить номер строки
  • Excel как вставить новую строку в ячейке excel
  • Excel как вставить несколько строк одновременно

  • 0 0 голоса
    Рейтинг статьи
    Подписаться
    Уведомить о
    guest

    0 комментариев
    Старые
    Новые Популярные
    Межтекстовые Отзывы
    Посмотреть все комментарии