Excel -用户定义函数：[输入向量]，[输出-对角线上的方阵]

Function DiagonalMatrix(inputVector As Range) As Variant
    Dim vector() As Variant
    Dim matrix() As Variant
    Dim size As Integer
    Dim i As Integer, j As Integer
    
    ' 将输入向量转换为数组
    vector = inputVector.Value
    
    ' 获取向量的大小
    size = UBound(vector) - LBound(vector) + 1
    
    ' 初始化方阵
    ReDim matrix(1 To size, 1 To size)
    
    ' 将向量的值填充到对角线上
    For i = 1 To size
        For j = 1 To size
            If i = j Then
                matrix(i, j) = vector(i, 1)
            Else
                matrix(i, j) = 0
            End If
        Next j
    Next i
    
    ' 返回方阵
    DiagonalMatrix = matrix
End Function