我需要一個從n的不同大小vaires的數組，它需要對應給定的列表

Question

這是我迄今爲止所得到的，但我不知道該怎麼辦 `Sub SetUpList（） Dim UnsortedList （1至100000,1至1）As Double Dim i As Long For i = 1 To 100000 UnsortedList（i，1）= Rnd（-i） Next i Range（「A1：A100000」）。value = UnsortedList 結束子

Sub InitializeA() 

     Dim i As Long 

     n = Cells(2, 2).value 
     ReDim A(1 To n) 
       For i = 1 To n 
      A(i) = Cells(i, 1).value 
     Next i 
    End Sub 

Answer 1

下面是打印列表的部分到電子表格的方法。

Option Explicit 
'this generates the list and I need to create an array from this list for different sizes of n 
Sub SetUpList() 
    Dim UnsortedList(1 To 100000, 1 To 1) As Double 
    Dim i As Long, N As Long 
    Dim A As Variant, R As Range 

    For i = 1 To 100000 
     UnsortedList(i, 1) = Rnd(-i) 
    Next i 
    Range("A1:A100000").Value = UnsortedList 

    N = Cells(2, 2).Value 
    'this allows us to determine the size of the array which will vary because there can be different sizes of n 

    Initialize 

End Sub 

Sub Initialize() 
    Dim rDest As Range 
    Dim i As Long, N As Long 
    Dim A As Variant 
    Dim UnsortedList As Variant 

UnsortedList = Range("A1", Cells(Rows.Count, "A").End(xlUp)) 
N = Cells(2, 2) 
Set rDest = Range("C1") 

ReDim A(1 To N, 1 To 1) 
    For i = 1 To N 
     A(i, 1) = UnsortedList(i, 1) 
    Next i 

    Set rDest = rDest.Resize(rowsize:=N) 
    rDest.EntireColumn.Clear 
    rDest = A 
End Sub