เก็บข้อมูลอาเรย์แบบไม่ทราบขนาดของอาเรย์

[waritthorn]

พอจะมีวิธีเขียนการเก็บข้อมูลแบบอาเรย์ที่ไม่จำเป็นต้องรูปขนาดของอาเรย์ที่ง่ายกว่านี้ไหมครับ

Code: Select all

    Dim i As Long
    Dim j As Long
    Dim rng As Range
    Dim myar As Variant
    Dim rowC As Integer
    Dim columnC As Integer
    
    columnC = WorksheetFunction.CountA(Worksheets(1).Rows(1))
    rowC = WorksheetFunction.CountA(Worksheets(1).Columns(1))
    ReDim mayar(1 To rowC, 1 To columnC)
    Set rng = Range(Cells(1, 1), Cells(columnC, rowC))

    For i = 1 To rowC
        For j = 1 To columnC
            mayar(i, j) = Cells(i, j)

        Next j
    Next i

[snasui]

ตัวอย่างการ Assign ค่าของ Range ให้กับ Array ครับ

myar = Worksheets(1).Range("a1").CurrentRegion.Resize(,3)

[waritthorn]

ขอบคุณครับอาจารย์
ลดการเขียนลงได้เยอะเลยครับ