Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Копипаст отфильтрованных ячеек - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Копипаст отфильтрованных ячеек (Формулы/Formulas)
Копипаст отфильтрованных ячеек
Logotip Дата: Пятница, 13.04.2018, 11:22 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 23
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Всем привет.
Вопрос, наверное, совсем странный, но решение не нагуглилось...

Суть вопроса: Можно ли в Excel2016 скопировав данные из отфильтрованного диапазона вставить их в соседний столбце без снятия фильтра и чтобы данные вставились именно в видимый диапазон? Диапазоны при этом одинаковые, что копирования, что вставки.

Что пробовал:
1. Макросы из сети - не завелись почему-то.
2. Выделить диапазон идентичный копируемого, нажать Alt+; (выделить только видимые ячейки) и вставить - выдает ошибку "данная команда не применима для нескольких диапазонов".

Пример во вложении.

Спасибо!
К сообщению приложен файл: 1814943.xlsx(8.7 Kb)
 
Ответить
СообщениеВсем привет.
Вопрос, наверное, совсем странный, но решение не нагуглилось...

Суть вопроса: Можно ли в Excel2016 скопировав данные из отфильтрованного диапазона вставить их в соседний столбце без снятия фильтра и чтобы данные вставились именно в видимый диапазон? Диапазоны при этом одинаковые, что копирования, что вставки.

Что пробовал:
1. Макросы из сети - не завелись почему-то.
2. Выделить диапазон идентичный копируемого, нажать Alt+; (выделить только видимые ячейки) и вставить - выдает ошибку "данная команда не применима для нескольких диапазонов".

Пример во вложении.

Спасибо!

Автор - Logotip
Дата добавления - 13.04.2018 в 11:22
sboy Дата: Пятница, 13.04.2018, 11:53 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 2105
Репутация: 604 ±
Замечаний: 0% ±

Excel 2010
Добрый день.
сначала
Выделить диапазон идентичный копируемого, нажать Alt+; (выделить только видимые ячейки)

потом на клавиатуре =
выделяете верхнюю ячейку из копируемого диапазона
Ctrl+Enter
убираете фильтр и заменяете формулы на значения (копируете весь столбец и вставляете как значение)
 
Ответить
СообщениеДобрый день.
сначала
Выделить диапазон идентичный копируемого, нажать Alt+; (выделить только видимые ячейки)

потом на клавиатуре =
выделяете верхнюю ячейку из копируемого диапазона
Ctrl+Enter
убираете фильтр и заменяете формулы на значения (копируете весь столбец и вставляете как значение)

Автор - sboy
Дата добавления - 13.04.2018 в 11:53
InExSu Дата: Воскресенье, 15.04.2018, 23:08 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 398
Репутация: 50 ±
Замечаний: 20% ±

Excel 2010
Привет!

[vba]
Код
Option Explicit

Public Sub Фильтр_Копировать_Параллельно()
  Dim rng As Range
  Set rng = Selection.SpecialCells(xlCellTypeVisible)
  
  On Error Resume Next
  Dim rngInput As Range
  Set rngInput = Application.InputBox(Prompt:="Выберите ячейку или введите в формате A1:", Type:=8)
  On Error GoTo 0
  
  If Not rngInput Is Nothing Then
      Dim СтолбецСмещения
      
      СтолбецСмещения = rngInput.Column - rng.Column
  Else
    
    Exit Sub '==>>
  End If
  
  Dim eL As Range
  
  For Each eL In rng
    
    eL.Offset(0, СтолбецСмещения).Value = eL.Value
  Next
  
  MsgBox "Всё !"
End Sub
[/vba]


На сохранение второго закона термодинамики: яндекс.кошелёк 410012113235839

Сообщение отредактировал InExSu - Воскресенье, 15.04.2018, 23:08
 
Ответить
СообщениеПривет!

[vba]
Код
Option Explicit

Public Sub Фильтр_Копировать_Параллельно()
  Dim rng As Range
  Set rng = Selection.SpecialCells(xlCellTypeVisible)
  
  On Error Resume Next
  Dim rngInput As Range
  Set rngInput = Application.InputBox(Prompt:="Выберите ячейку или введите в формате A1:", Type:=8)
  On Error GoTo 0
  
  If Not rngInput Is Nothing Then
      Dim СтолбецСмещения
      
      СтолбецСмещения = rngInput.Column - rng.Column
  Else
    
    Exit Sub '==>>
  End If
  
  Dim eL As Range
  
  For Each eL In rng
    
    eL.Offset(0, СтолбецСмещения).Value = eL.Value
  Next
  
  MsgBox "Всё !"
End Sub
[/vba]

Автор - InExSu
Дата добавления - 15.04.2018 в 23:08
Logotip Дата: Понедельник, 16.04.2018, 17:52 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 23
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Спасибо за помощь!

Оба варианта выручили! hands
 
Ответить
СообщениеСпасибо за помощь!

Оба варианта выручили! hands

Автор - Logotip
Дата добавления - 16.04.2018 в 17:52
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Копипаст отфильтрованных ячеек (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2018 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!