さまざまなサイズのnの配列を必要とし、与えられたリストに対応する必要があります

Question

これはこれまでのものですが、何をすべきか分かりません `Sub SetUpList（） Dim UnsortedList （1：100000,1：1）Double Dim i As Long i = 1〜100000 UnsortedList（i、1）= Rnd（-i） 次はi 範囲（ "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