Преобразование столбца чисел в одну ячейку, с последующим разделением всех цифр.

Автор denis-obn, 25.11.2011, 16:59

« назад - далее »

denis-obn

Доброе время суток!
Решил оптимизировать свою работу с помощью Excel :), но столкнулся с такой проблемой.
Хочу  преобразовать кучу ячеек в одну, а так чтобы потом ячейки разделялись цифры (двоеточием, запятой и т.д.) в ячейке куда я помещу преобразованные данные.
как это сделать?

Спасибо за ответ!  :)

з.ы. может вам покажется простым решением. но я не нашел из нее выход!

Serge 007

Цитата: denis-obn от 25.11.2011, 16:59
Решил оптимизировать свою работу с помощью Excel :)
Хочу  преобразовать кучу ячеек в одну, а так чтобы потом ячейки разделялись цифры (двоеточием, запятой и т.д.) в ячейке куда я помещу преобразованные данные.
Это по вашему оптимизация? А как Вы с такими данными будете потом работать, Вы не подумали?

ЗЫ Есть функция =СЦЕПИТЬ().
Бесплатная помощь: www.excelworld.ru
Платная помощь: sergeyizotov@excelworld.ru
Ю-money: 41001419691823 | WMR:126292472390

denis-obn

я уже эти данные получаю на выходе, их необходимо потом в word перенести.

Эм....
Преобразую цифры.
Сцепить получиться ли?

ShAM

ЦитироватьЭм....
Преобразую цифры.
Сцепить получиться ли?

Тогда есть еще функция ТЕКСТ.

denis-obn

СЦепить не подойдет потому что постоянно меняется количество строк (столбцов) посоветуйте что нибудь другое.

denis-obn

Решение нашел, единственное чуть длинней, чем хотел,  но все равно приятней чем было раньше=)
Спасибо

zhanna

Цитата: denis-obn от 25.11.2011, 18:13
Решение нашел, единственное чуть длинней, чем хотел,  но все равно приятней чем было раньше=)
Спасибо

а не могли бы Вы поделиться своим решением . Целый день мучаюсь - пытаюсь найти что-либо покрасивее чем "сцепить"

denis-obn

Значит выход такой нашел.

excel
сначала преобразую столбик в строку(excel)копировать спомощью специальной вставки, потом копирую получившуюся строку в

WORD, жму - таблица-преобразовать-таблицу в текст (разделяю запятыми и все)

MCH

UDF:
Function JoinDiap(Arr, Optional del As String = " ") As String
    Dim i As Long, x
    For Each x In Arr
        If x <> "" Then
            JoinDiap = JoinDiap & IIf(i, del, "") & x
            i = i + 1
        End If
    Next x
End Function