【VBA】シートにあるデータを配列に格納する｜CurrentRegion

Public Function GetSheetDataCurrent( _
                                            ByVal ws As Worksheet, _
                                            ByVal row As Long, _
                                            ByVal col As Long) As Variant
    GetSheetDataCurrent = ws.Cells(row, col).CurrentRegion.value
End Function