如何创建一个值 X 次的一维数组 excel 函数？

Question

这是 Excel 中的任何选项或函数，我可以用一个值创建 X 次一维数组吗？

这里是一个例子，我给输入值+我想创建多少次，我得到这个结果。

我的价值：50 多少？ 5

50
50
50
50
50

Answer 1

它存储的类型是否重要？例如，您可以在清空数组时转换回数字。 String 目前可以使用 Rept 和 Split。您可以在函数中输入数字或字符串。

这是一个例子

Option Explicit

Public Sub test()

    Dim myArr() As String

    myArr = GetArray(5, 50)

    Dim i As Long

    'Example print out of contents
    For i = LBound(myArr) To UBound(myArr)

        Debug.Print CLng(myArr(i)) 'Example type conversion to Long

    Next i

End Sub

Public Function GetArray(ByVal howMany As Long, ByVal myValue As Variant) As Variant

    Dim Arr() As String

    ReDim Arr(howMany - 1)

    Dim myString As String

    myString = Trim$(Application.WorksheetFunction.Rept(myValue & Chr(32), howMany))

    Arr = Split(myString, Chr(32))

    GetArray = Arr

End Function

Answer 2

Sub myvalue()
    Dim myval As String
    Dim times As Long
    Dim i As Long
    myval = InputBox("My Value is :")
    times = InputBox("How many times :")
    ReDim array1(times - 1)
    For i = 0 To times - 1
        array1(i) = myval
        Debug.Print "Array " & i & " : is " & myval
    Next i
End Sub

输入：

我的价值是：50

多少次：5

输出

数组 0 : 是 50

数组 1 : 是 50

数组 2 : 是 50

数组 3 : 是 50

数组 4 : 是 50