请教：为何我的VBA ShiftVector函数输出值按列而非行显示？

问题原因 #

你定义的B是一维数组，Excel中用户自定义函数返回一维数组时，默认会按列方向输出——这是Excel对一维数组的默认解析规则，一维数组会被识别为列向量。

另外代码还有个潜在问题：用rng.Rows.Count获取元素数，仅适用于列范围输入；如果输入是行范围（比如A1:C1），Rows.Count会返回1，导致逻辑完全出错，应该改用rng.Cells.Count获取总元素数，兼容行/列两种输入。

修正代码（强制返回行向量） #

要让结果按行显示，需要返回二维行数组（1行、N列的二维结构），修改后的代码如下：

Function ShiftVector(rng As Range, n As Integer) As Variant
    Dim i As Integer
    Dim totalCount As Integer
    Dim B() As Variant
    
    totalCount = rng.Cells.Count
    ' 初始化二维行数组：1行，totalCount列
    ReDim B(1 To 1, 1 To totalCount)
    
    ' 填充移位后的元素
    For i = 1 To totalCount - n
        B(1, i) = rng.Cells(i + n).Value
    Next i
    For i = totalCount - n + 1 To totalCount
        B(1, i) = rng.Cells(i - totalCount + n).Value
    Next i
    
    ShiftVector = B
End Function

进阶版本（匹配输入方向） #

如果需要让输出方向和输入一致（输入行则返回行，输入列则返回列），可以增加方向判断逻辑：

Function ShiftVector(rng As Range, n As Integer) As Variant
    Dim i As Integer
    Dim totalCount As Integer
    Dim B() As Variant
    Dim isRowVector As Boolean
    
    totalCount = rng.Cells.Count
    isRowVector = (rng.Rows.Count = 1) ' 判断输入是否为行向量
    
    ' 根据输入方向初始化数组结构
    If isRowVector Then
        ReDim B(1 To 1, 1 To totalCount)
    Else
        ReDim B(1 To totalCount, 1 To 1)
    End If
    
    ' 填充移位元素
    For i = 1 To totalCount - n
        If isRowVector Then
            B(1, i) = rng.Cells(i + n).Value
        Else
            B(i, 1) = rng.Cells(i + n).Value
        End If
    Next i
    For i = totalCount - n + 1 To totalCount
        If isRowVector Then
            B(1, i) = rng.Cells(i - totalCount + n).Value
        Else
            B(i, 1) = rng.Cells(i - totalCount + n).Value
        End If
    Next i
    
    ShiftVector = B
End Function

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