LoadProteins "C:\ProgramData\SelectionAnalysis\protein"

Sub tranpose_test()
    Dim arr As Variant
    r = 2
    c = 3
    ReDim arr(1 To r, 1 To c) ' 2 x 3
    arr = Application.Transpose(arr) ' 3 x 2
    ReDim Preserve arr(1 To c, 1 To r + 2) ' 3 x 5
    arr = Application.Transpose(arr) ' 5 x 3
End Sub

Sub array_of_arrays()
    Dim outer
    outer = Array(Array(1, 2), Array(3, 4)) ' 2 x 2
    ReDim Preserve outer(1 To 3) ' 2 x 2 + 1 x 1
    outer(3) = Array(5, 6) ' 3 x 2
    Debug.Print (outer(3)(1)) ' > 6
End Sub

Sub pprint(arr)
    pretty_string = ""
    For i = LBound(arr) To UBound(arr)
        pretty_string = pretty_string & i & ":" & arr(i) & ", "
    Next i
    Debug.Print (pretty_string)
End Sub

Sub Test()
    Dim arr As Variant
    
    ReDim arr(0 To 4) As Byte
    For i = 0 To 4
        arr(i) = i
    Next
    pprint (arr) ' 0:0, 1:1, 2:2, 3:3, 4:4,
    
    ReDim Preserve arr(1 To 5)
    pprint (arr) ' 1:0, 2:1, 3:2, 4:3, 5:4,
End Sub

Private Declare PtrSafe Sub FillMemory Lib "kernel32" Alias "RtlFillMemory" (Destination As Any, ByVal Length As Long, ByVal Fill As Byte)

Sub StuffBArr()
    ' заполняем весь одномерный массив цифрой 13
    Dim i(0 To 39) As Byte
    FillMemory i(0), 40, 13
    
    ' заполняем 5-й элемент массива цифрой 13
    Dim k(0 To 39) As Byte
    FillMemory k(5), 1, 13
    
    ' заполняем весь трёхмерный массив цифрой 13
    Dim j(1 To 2, 5 To 29, 2 To 6) As Byte
    FillMemory j(1, 5, 2), 2 * 25 * 5, 13
End Sub

ЕСЛИОШИБКА(ЕСЛИОШИБКА(ВПР(ЛЕВСИМВ(A3;3);$G$2:$H$193;2;0);ВПР(ЗНАЧЕН(ЛЕВСИМВ(A3;3));$G$2:$H$193;2;0));"-")

=ПОИСКПОЗ(;ИНДЕКС(-(E4:AI4<=0););)

Sub assign_array_element(ByRef arr As Variant, value_index, value)
    arr(value_index) = value
End Sub

Sub ss()
    Debug.Print Join(ff, vbLf)
End Sub
 
Function ff() As Variant()
    ReDim ff(1 To 2)
    Call assign_array_element(ff, 1, 11)
    Call assign_array_element(ff, 2, 22)
End Function

---------------------------
Microsoft Visual Basic for Applications
---------------------------
Compile error:

Function call on left-hand side of assignment must return Variant or Object
---------------------------
ОК   Справка   
---------------------------

ff = Array(11, 22)

' As Array
Sub ss()
    Debug.Print Join(ff, vbLf)
End Sub

Function ff() As Variant()
    Dim temp_arr As Variant
    ReDim temp_arr(1 To 2)
    temp_arr(1) = 11
    temp_arr(2) = 22
    
    ff = temp_arr
End Function

IFS(I3>=E5; I3<=F5)

=ifs(H$3>=$D5;H$3<=$E5)

= ГОД(A1-ДЕНЬНЕД(A1;3))&"W"&НОМНЕДЕЛИ.ISO(A1)

Function ev(r As Range) As Variant
    ev = Evaluate(r.Value)
End Function

=ИНДЕКС(
    ИНДЕКС(данные!H$2:H$136;ПОИСКПОЗ(A3;данные!C$2:C$136;)):данные!H$136;
    ПОИСКПОЗ(I3;
        ИНДЕКС(данные!G$2:G$136;ПОИСКПОЗ(A3;данные!C$2:C$136;)):ИНДЕКС(
            данные!G$2:G$136;
            1/ЕСЛИОШИБКА(
                1/(1/МИН(ЕСЛИ(
                    ПОИСКПОЗ(A$3:A$8;данные!C$2:C$136;)>ПОИСКПОЗ(A3;данные!C$2:C$136;);
                    ПОИСКПОЗ(A$3:A$8;данные!C$2:C$136;))
                ));
                СТРОКА(данные!G$136) - СТРОКА(данные!G$2) + 1)
        );
    )
)

=ИНДЕКС(данные!$H$2:$H$136;
    ПОИСКПОЗ(A4&I4;данные!$C$2:$C$136&данные!$G$2:$G$136;0))