MyTetra Share
Делитесь знаниями!
Функции поиска первой пустой ячейке в массиве переданном через диапазон
Время создания: 02.07.2019 14:53
Раздел: !Закладки - VBA - Excel - Range
Запись: xintrea/mytetra_db_adgaver_new/master/base/1562068402dypfsud3rn/text.html на raw.githubusercontent.com

'\\==============================================================================================

'##### Функции поиска первой пустой ячейке в массиве переданном через диапазон

'------------------------------------------------------------------------------------------------

'Sub test_fun_EachEndRowInRange()

' With oWbTemp.Sheets(1)

' i = fun_EachEndRowInRange(Range(.Cells(CONST_iNbRowStart, 1), .Cells(Lng_RowEnd, 1)))

' End With

'End Sub

Function fun_EachEndRowInRange(ByVal rRange As Range)

Dim arr As Variant, i As Long

arr = rRange.Value

For i = LBound(arr) To UBound(arr)

If Len(Trim(Application.Clean(arr(i, 1)))) > 0 Then fun_EachEndRowInRange = i

Next i

Erase arr

End Function

'------------------------------------------------------------------------------------------------

Function fun_EachEndClnInRange(ByVal rRange As Range)

Dim arr As Variant, i As Long

arr = rRange.Value

For i = LBound(arr) To UBound(arr, 2)

If Len(Trim(Application.Clean(arr(1, i)))) > 0 Then fun_EachEndClnInRange = i

Next i

Erase arr

End Function

'\\==============================================================================================

 
MyTetra Share v.0.59
Яндекс индекс цитирования