sub (ExcelDataToArray)

엑셀 데이타를 배열로 옮기기

 

Sub ExcelDataToArray()

    Dim varArray() As Variant
    Dim rngSource As Range
    Dim lngLast As Long
    
    lngLast = Cells(Rows.Count, 1).End(xlUp).Row    '마지막 행의 값 얻기
    Set rngSource = Worksheets("SheetName").Range("SrouceRangeAddress")
    
    ReDim varArray(1 To rngSource.Rows.Count, 1 To rngSource.Columns.Count)
    varArray = rngSource.Value

End Sub