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

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

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

Logotip

Дата: Пятница, 13.04.2018, 11:22 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 23

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

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

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

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

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

Спасибо!

К сообщению приложен файл: 1814943.xlsx (8.7 Kb)

Ответить

sboy

Дата: Пятница, 13.04.2018, 11:53 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2566

Репутация: 724 ±

Замечаний: 0% ±

Excel 2010

Добрый день.
сначала

Цитата Logotip, 13.04.2018 в 11:22, в сообщении № 1 ()

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

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

Яндекс: 410016850021169

Ответить

InExSu

Дата: Воскресенье, 15.04.2018, 23:08 | Сообщение № 3

Группа: Друзья

Ранг: Ветеран

Сообщений: 650

Репутация: 96 ±

Замечаний: 0% ±

Excel 2010, 365

Привет!

[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]

Разработчик Битрикс24 php, Google Apps Script, VBA Excel Windows/Mac

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

Ответить

Logotip

Дата: Понедельник, 16.04.2018, 17:52 | Сообщение № 4

Группа: Пользователи

Ранг: Новичок

Сообщений: 23

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

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

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

Ответить

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

Страница 1 из 1
1