[@maksim11082012]

Здравствуйте, не подскажите как числовые данные перенести из одного столбца в другой. При условии того что цифры разбросаны по столбцу(есть пустые строки), а так же текст. Пробовал след образом офис 2007, кнопка найти и выделить пункт Веделение групп ячеек в ней выставлял след настройки константы - числа. Необходимые диапазоны выделились, перехожу в другой столбец в нем числовые значения находятся в этих же строках так же повторяю операцию "Найти и выделить", но при попытке вставить скопированые значения пишет данная команда не пременима для несвязанных диапазонов.

[@Genbor]

Пример нужно приложить. В экселе.
Там указать, что есть в наличии и результат, который нужно получить.

числовые данные перенести из одного столбца в другой. При условии того что цифры разбросаны по столбцу(есть пустые строки)

ломает мне мозг напрочь

[@maksim11082012]

Хорошо, вот
bandicam 2020-12-18 09-24-53-618.zip
хотя ранее выкладывал пример

[Fairuza]

maksim11082012,

Пример нужно приложить. В экселе.

[@maksim11082012]

Результат в excel
example.xlsx

[@Genbor]

Ну а формулой нет желания задачу решить?

Код

=ЕСЛИ(ЕЧИСЛО(K1)=ИСТИНА;K1;"")

вставить в первую строку нужного столбца и протянуть

[@maksim11082012]

Ну а формулой нет желания задачу решить?

Вообще без разницы что это будет формула либо макрос или внутренние инструменты

вставить в первую строку нужного столбца и протянуть

А если у меня таких запись 100 и нужно целыми столбцами перемещать
example.xlsx

[@Genbor]

Я так понимаю сложность не затронуть "всего"?

Код

=ЕСЛИ(И(ЕЧИСЛО(K10)=ИСТИНА;ЕЧИСЛО(J10)=ИСТИНА);K10;"")

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

Добавлено через 5 минут
Еще можно сделать так:
1. Отфильтровываешь данные через "числовые фильтры">0
2. Убираешь также фильтром строки, которые не должны быть затронуты в столбце получателе (J)
3. Через =k10 протягиваешь формулу в столбце получателе
4. Убираешь все фильтры
5. Выделяешь столбец-получатель целиком, копируешь его
6. Жмешь "вставить только значения"

Это сработает. если не будет объединенных ячеек.

[@maksim11082012]

Там не понятно, что есть, документ не мой. Буду смотреть..
Окончательный результат
example.2.xlsx
Что получается
bandicam 2020-12-18 15-49-55-120.zip

[@maksim11082012]

Еще можно сделать так:
1. Отфильтровываешь данные через "числовые фильтры">0
2. Убираешь также фильтром строки, которые не должны быть затронуты в столбце получателе (J)
3. Через =k10 протягиваешь формулу в столбце получателе
4. Убираешь все фильтры
5. Выделяешь столбец-получатель целиком, копируешь его
6. Жмешь "вставить только значения"

Вот что у меня получилось:
1. Сделал.
2. Как это сделать не знаю
3. Небольшое изменение у меня через =K10 ничего не получилось, а получилось только с помощью первой формулы
4.Сделал.
5 и 6 пункт не понял вообще зачем формула же всё уже отработала

Но есть небольшое но в таблице J в которой заменяем значения так же под фильтр поподают формулы, а их не надо трогать

Добавлено через 3 часа 0 минут
теперь понял для чего пункт 5 и 6

[@Genbor]

2. Как это сделать не знаю

Фильтр делается по обоим столбцам - и J, и K.
Сначала числовые фильтры >0 по K.
Потом избавляемся от лишнего в столбце J (в нашем случае это только "всего").

Потом после фильтрации выбираем первую видимую ячейку по столбцу J и пишем в ней =K10 (ну это в нашем примере так).
И протягиваем формулу вниз.

ну а потом сбрасываем все фильтры и просто фиксируем данные в столбце J через "копировать" и "вставить только значения"

[@Narimanych]

maksim11082012,

Для вашего файла "example2" запустите макрос

Visual Basic
1 2 3 4 5 6 7 8 Sub MMM() LR = Cells(Rows.Count, 1).End(xlUp).Row For i = 1 To LR     If Cells(i, 1).Value <> "всего " Then       If IsNumeric(Cells(i, 2)) Then Cells(i, 1).Value = Cells(i, 2)     End If Next End Sub

[@maksim11082012]

Для вашего файла "example2" запустите макрос

Спасибо а данный макрос будет работать с таблицей в которой применен фильтр со значением "числовые фильтры">0
Также прикладываю файл примера example3.zip

[@maksim11082012]

Фильтр делается по обоим столбцам - и J, и K.
Сначала числовые фильтры >0 по K.
Потом избавляемся от лишнего в столбце J (в нашем случае это только "всего").
Потом после фильтрации выбираем первую видимую ячейку по столбцу J и пишем в ней =K10 (ну это в нашем примере так).
И протягиваем формулу вниз.
ну а потом сбрасываем все фильтры и просто фиксируем данные в столбце J через "копировать" и "вставить только значения"

1 пункт выполнил
2 Так же фильтром >0 или как?
3 попробую
4 хорошо так и сделаю всё понятно кроме 2 пункта

Также прикладываю файл примераВложение 1210815

[@Genbor]

2 Так же фильтром >0 или как?

Сейчас только догнал, что офис-то 2007, а в нем не такой гибкий фильтр значений, как в более новых офисах.
Задача на втором шаге избавиться фильтром от ячеек со значением "всего"

[@maksim11082012]

2 Так же фильтром >0 или как?

Да -да вы правильно поняли у меня офис 2007 и скажите каким вы пользуетесь...
да избавится от слова всего и от формулы пример выложен(уточненый)

[@Genbor]

Сейчас я посмотреть не смогу.
Офис у меня самый последний. Но нужный формат фильтра, если я ничего не путаю, с 2013 офиса появляется.

[@maksim11082012]

Офис у меня самый последний. Но нужный формат фильтра, если я ничего не путаю, с 2013 офиса появляется.

В 2007 этот измененый файл будет работать? Сейчас скачаю 2013 постмотрю можно сделать выше сказанное или нет.

[@Genbor]

Будет