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

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

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


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


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


И никто не мешает написать свою функцию Например для сборки:
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


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


И для разложения:
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


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