Snasui Excel Forum

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