'=========================================================================

'// массив из указанного листа

' a = fun_Array_in_Sh(oSh:=ThisWorkbook.Sheets("List_Delta_DSTAR"), _

Lng_RowStart:=1, _

Lng_ClnStart:=1, _

Lng_ClnFindRowEnd:=1, _

Lng_ClnEnd:=0)

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Function fun_Array_in_Sh(ByVal oSh As Worksheet, _

Optional Lng_RowStart As Long = 1, _

Optional Lng_ClnStart As Long = 1, _

Optional Lng_ClnFindRowEnd As Long = 1, _

Optional Lng_ClnEnd As Long = 0) As Variant

' Lng_ClnFindRowEnd - столбец в котором ищем последнюю строку

Dim iNbRowEnd As Long

'Dim Lng_ClnEnd As Long

With oSh

If Lng_ClnEnd = 0 Then Lng_ClnEnd = .Cells(Lng_RowStart, 256).End(xlToLeft).Column

iNbRowEnd = .Columns(Lng_ClnFindRowEnd).Rows(65536).End(xlUp).Row

''''.Cells(iNbRow, 1).Resize(UBound(aTemp), UBound(aTemp, 2)) = aTemp

fun_Array_in_Sh = Range(.Cells(Lng_RowStart, Lng_ClnStart), .Cells(iNbRowEnd, Lng_ClnEnd)).Value

' .Range(strRange).Copy Destination:=ThisWorkbook.Sheets("ListPJI").Cells(1, 1)

End With

' Application.CopyMode = False

End Function

'=========================================================================

==