如何在LibreOffice Calc Basic函数中正确返回矩阵？

你的问题出在数组维度和Excel数组公式的匹配上，具体修正方法如下：

问题原因 #

你定义的res(1)是一维行数组（横向排列），如果选中纵向单元格区域输入数组公式，Excel会重复显示第一个元素；另外手动输入大括号{=test()}是错误操作，大括号应该由Excel自动添加。

修正方案 #

方案1：转置数组适配纵向输出 #

修改函数，用Application.Transpose把行数组转为列数组，适配纵向单元格：

Function test() As Variant
    Dim res(1) As Variant
    res(0) = "test 0"
    res(1) = "test 1"
    test = Application.Transpose(res)
End Function

方案2：直接定义二维列数组 #

如果固定要纵向输出，直接定义2行1列的二维数组：

Function test() As Variant
    Dim res(1, 0) As Variant
    res(0, 0) = "test 0"
    res(1, 0) = "test 1"
    test = res
End Function

正确操作步骤 #

1. 选中需要放置结果的单元格区域（比如A1:A2）
2. 在编辑栏输入=test()
3. 按下Ctrl+Shift+Enter完成数组公式输入，Excel会自动给公式加上大括号

另外，你之前写的test() = res()是错误写法，函数返回值只需写test = res即可。

内容的提问来源于stack exchange，提问作者lalebarde