连接Libre Office中的反转范围

我是编程的新手，但我必须制作一个excel文档，我可以交互使用，因为我的一个程序的输出不适合其他程序的输入...

我在列中有很多数据，我必须将它们放在几行中，作为单个cella。

我设法做到了这一点，但我的下一个问题是每一行都是相反的。

我有：

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

我有一个“行数组到一个单元格”代码，另一个“反向行数组到一个单元格”

但它不起作用。

我该如何解决这个问题？