Мне нужен массив, который vaires из разных размеров n, и он должен соответствовать данному списку

Question

это то, что у меня есть до сих пор, но я не знаю, что делать `Sub SetUpList() Dim UnsortedList (1 К 100000, 1 к 1) As Double Dim я As Long Для я = 1 Для 100000 UnsortedList (я, 1) = Rnd (-i) Далее я Range ("A1: A100000"). значение = UnsortedList End Sub

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