excel中的VBA，它应该返回一个数组[重复]

Question

我正在尝试在 excel 中创建一个函数，它将所有相对素数赋予给定数字。但是，当我尝试它时，它只会用数组的第一个值填充一个单元格。

Function selectE(phi) As Variant

Dim list(999) As Variant
Dim count As Integer

count = 0

For i = 2 To phi
    If WorksheetFunction.Gcd(phi, i) = 1 Then
        list(count) = i
        count = count + 1
    End If
Next i


selectE = list()

End Function

Answer 1

Function selectE(phi) As Integer()
    Dim list() As Integer
    Dim count As Integer

    count = 0

    For i = 2 To phi
        If WorksheetFunction.Gcd(phi, i) = 1 Then
            ReDim Preserve list(count + 1)
            list(count) = i
            count = count + 1
        End If
    Next i

    selectE = list()
End Function

上面的函数允许你返回一个素数数组。

不过，我对它做了一些小小的修改：

1. 它返回一个整数数组而不是一个变体以使其更明确（即Function selectE(phi) As Integer()）

2. 我没有将初始数组大小设置为 999（即Dim list() As Integer），我使用Redim Preserve list(count + 1) 使其大小动态增加为数组中素数的数量

所以现在我们需要一个 sub 来调用该函数，然后通过遍历返回的数组来用素数填充单元格。请注意，我们正在填充第一列，并且 for 循环递增行以将值放入（即 Cells(i + 1, 1) = myarr(i)）。另请注意，我只是针对selectE(1234) 中的数字 1234 对其进行测试，但您可以针对任何数字进行测试。

Sub FillInCells()
    Dim myarr() as Integer
    Dim i as Integer
    myarr = selectE(1234)
    For i = 0 to UBound(myarr) - 1
        Cells(i + 1, 1).Value = myarr(i)
    Next i
End Sub