2020-01-12 VBA ベクトルの収納(関数) 線形代数編 Function Vector(ByVal k As Integer, ByVal l As Integer, ByVal n As Integer) As Double() Dim i As IntegerDim Arr() As DoubleReDim Arr(1 To n)For i = 1 To n Arr(i) = Cells(k - 1 + i, l).ValueNext i Vector = Arr End Function