преобразовать

[IgorGO]

господа студенты!

когда публикуете подобные вопросы - пишите, пожалуйста, сколько можете заплатить.
будьте готовы к тому, что сначала надо заплатить, а потом получить решенное задание.

спасибо за внимание.

[horpenst]

Уважаемые программисты!
Задача следующая:
имеется массив 10 на 10.
Каждая ячейка содержит букву русского алфавита.
Необходимо преобразовать данный массив в столбец из десяти ячеек, каждая из которых будет содержать слово из десяти букв, взятых по порядку из соответствующей строки данного массива.
И обратная задача:
Каждое слово из столбца разложить по ячейкам.

[horpenst]

Подскажите хотя бы какой функцией пользоваться, или для этой задачи нужно писать макрос?

[IgorGO]

собрать - СЦЕПИТЬ
разобрать - ПСТР

[alex77755]

И никто не мешает написать свою функцию
Например для сборки:

Function СОБРАТЬ(s As Range)
Dim R, C, M()
ReDim M(s.Rows.Count - 1, 0)
For R = 0 To s.Rows.Count - 1
    For C = 0 To s.Columns.Count - 1
        M(R, 0) = M(R, 0) & s.Cells(R + 1, C + 1).Value
Next C, R
СОБРАТЬ = M
End Function

[alex77755]

и вводить как формулу массива

[alex77755]

И для разложения:

Function РАЗЛОЖЫТЬ(S As Range)
Dim R, C, M()
ReDim M(S.Rows.Count - 1, Len(S.Cells(1, 1).Value) - 1)
For R = 0 To S.Rows.Count - 1
    For C = 0 To Len(S.Cells(1, 1).Value) - 1
        M(R, C) = Mid(S.Cells(R + 1).Value, C + 1, 1)
Next C, R
РАЗЛОЖЫТЬ = M
End Function

[horpenst]

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