=K2=НАИМЕНЬШИЙ(M2:AS2;СУММПРОИЗВ(M2:AS2;--(M2:AS2=""))+1)

=ЕСЛИОШИБКА(ИНДЕКС(КЦ_2[Общее, шт
кол-во];ПОИСКПОЗ(МЕСЯЦ($A14)+1;МЕСЯЦ(КЦ_2[Дата]);0)+ПОИСКПОЗ(C$1;КЦ_2[Наименование показателя];0)-1;1);"")

=ЕСЛИОШИБКА(ИНДЕКС(Исходные[Общее, шт
кол-во];ПОИСКПОЗ(МЕСЯЦ(Лист1!A10)+1;МЕСЯЦ(Исходные[Дата]);0);1);"")

Sub TT()
    Dim arrIn, arrOut, arrK, lngI&, lngJ&, lngK&, lngS&, Uniq As Object
    Set Uniq = CreateObject("Scripting.Dictionary")
    lngI = [a2].CurrentRegion.Rows.Count
    lngJ = [a2].CurrentRegion.Columns.Count
    arrIn = Range(Cells(3, "D"), Cells(lngI, lngJ)).Value2
    ReDim arrOut(1 To UBound(arrIn, 1), 1 To UBound(arrIn, 2))
        For lngJ = 1 To UBound(arrIn, 2)
            For lngI = 1 To UBound(arrIn, 1)
                On Error Resume Next
                Uniq.Add Split(arrIn(lngI, lngJ), "/")(1), Split(arrIn(lngI, lngJ), "/")(1)
            Next lngI
            arrK = Uniq.Keys
            For lngK = 0 To Uniq.Count - 1
                For lngI = 1 To UBound(arrIn, 1)
                    If Uniq.Item(arrK(lngK)) = Split(arrIn(lngI, lngJ), "/")(1) Then lngS = lngS + Val(Split(arrIn(lngI, lngJ), "/")(0))
                Next lngI
                arrOut(lngK + 1, lngJ) = lngS & "/" & Uniq.Item(arrK(lngK)): lngS = 0
            Next lngK
            Uniq.RemoveAll: Erase arrK
        Next lngJ
    [d7].Resize(UBound(arrOut, 1), UBound(arrOut, 2)) = arrOut
End Sub

Sub TT()
    Dim arrIn, arrOut, lngI&, lngJ&, lngK&, lngC&
    'определяем количество строк исходных данных (последнюю заполненную строку по А)
    lngI = Cells(Rows.Count, 1).End(xlUp).Row
    'определяем количество столбцов исходных данных (количество столбцов в заполненном диапазоне от А9)
    lngJ = [a9].CurrentRegion.Columns.Count
    'запихиваем в исходный массив диапазон с исходными данными
    arrIn = Range(Cells(1, 1), Cells(lngI, lngJ)).Value
    'переопределяем размерность выходного массива. Сколько строк получиться может не знаем, поэтому
    'определяем их количество столько же, сколько и в исходном массиве, а столбцов определяем 2
    ReDim arrOut(1 To UBound(arrIn, 1), 1 To 2)
    'крутим цикл по каждой строке исходного массива
    For lngI = 1 To UBound(arrIn, 1)
        'проверяем значение первого элемента строки
        Select Case arrIn(lngI, 1)
            'если значение первого элемента равно Sample Name
            Case Is = "Sample Name"
                'определяем значение для строк выходного массива
                lngK = 1
                'переопределяем вторую размерность выходного массива (увеличиваем количество столбцов на 1)
                'с сохранением ранее введенных данных (Preserve)
                ReDim Preserve arrOut(1 To UBound(arrIn, 1), 1 To UBound(arrOut, 2) + 1)
                'пишем в переменную количество столбцов выходного массива
                lngJ = UBound(arrOut, 2)
                'заполняем элементы выходного массива соответствующими элементами исходного
                arrOut(lngK, lngJ) = arrIn(lngI + 1, 2)
                'увеличиваем счетчик строк выходного массива
                lngK = lngK + 1
                'заполняем элементы выходного массива соответствующими элементами исходного
                arrOut(lngK, lngJ) = arrIn(lngI + 1, 1)
            'если значение первого элемента равно Element/Wavelength
            Case Is = "Element/Wavelength"
                'по столбцам исходного массива от 2 до конечного
                For lngC = 2 To UBound(arrIn, 2)
                    'увеличиваем счетчик строк выходного массива
                    lngK = lngK + 1
                    'заполняем элементы выходного массива соответствующими элементами исходного
                    'для отделения в первом столбце букв используем ранее написанную UDF RemoveNumbers
                    arrOut(lngK, 1) = RemoveNumbers(arrIn(lngI, lngC)): arrOut(lngK, 2) = arrIn(lngI, lngC): arrOut(lngK, lngJ) = arrIn(lngI + 1, lngC)
                Next lngC
        End Select
    Next lngI
    'после перебора всех строк исходного массива выгружаем выходной массив начиная с Q6.
    'чтобы все значения влезли переопределяем область для вставки через Resize используя
    'количество строк выходного массива и количество его столбцов
    Range("Q6").Resize(UBound(arrOut, 1), UBound(arrOut, 2)) = arrOut
End Sub

Sub TT()
    Dim objRE As Object, objC As Range
    Set objRE = CreateObject("VBScript.RegExp")
    objRE.Pattern = "-\w+/?\w{0,},?"
    For Each objC In Selection
        If objRE.test(objC) Then
            objC.Offset(0, 1) = Replace(Replace(objRE.Execute(objC).Item(0), "-", ""), ",", "")
        End If
    Next objC
End Sub

=СУММПРОИЗВ(--($B$8:$B$16=ЗНАЧЕН(ЛЕВСИМВ($D8;5))))>0