Конкатенация обратного диапазона в Libre Office

Question

Я немного новичок в программировании, но мне нужно сделать документ Excel, который я могу использовать в интерактивном режиме, потому что вывод одной из моих программ не совпадает с выводом других ...

У меня есть много данных в столбце, и я должен поместить их в несколько строк, как одну целлу.

Мне удалось это сделать, но моя следующая проблема заключается в том, что каждая вторая строка переворачивается.

Я имею:

1
2
3
4
5
6
7
8

Я нуждаюсь:

1234
8765

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

Для не перевернутых строк, я использую это

Function ConcatenateColArray(pArray()) as String
Dim i as Long
Dim rText as String

rText = ""
For i = Lbound(pArray(),1) to Ubound(pArray(),1)
    rText = rText & pArray(i,1)
Next i

ConcatenateColArray = rText
End Function REM ConcatenateColArray

Я пытаюсь объединить этот код с:

for x =  LBound(MyArray) to UBound(MyArray)/2
tmp = MyArray(x)
MyArray(x) = MyArray(UBound(MyArray) - x)
MyArray(Ubound(MyArray) - x) = tmp
next x

Что у меня есть один код "массив строк в одну ячейку", а другой "массив строк обратного порядка в одну ячейку"

Но это не работает.

Как мне решить это?