Function Ocurrence(v_Source As String, v_Pattern As String, OcurrenceNumber As Long) As Long
      Dim v_RegExp As Object
      Dim v_Matches As Object
      Set v_RegExp = CreateObject("vbscript.regexp")
      
      With v_RegExp
        .pattern = v_Pattern
        .Global = True
        Set v_Matches = .Execute(v_Source)
        If OcurrenceNumber > 0 And OcurrenceNumber <= v_Matches.Count Then
          Ocurrence = v_Matches(OcurrenceNumber - 1).FirstIndex + 1
        End If
      End With
    End Function

=LET(z;"аминокислотная_последовательность";x;ДЛСТР(z);pH;ПОСЛЕД(1700)%;ПОИСКПОЗ(1=1;-1/(1+10^(3,65-pH))
+(ДЛСТР(ПОДСТАВИТЬ(z;"D";))-x)/(1+10^(3,9-pH))
+(ДЛСТР(ПОДСТАВИТЬ(z;"E";))-x)/(1+10^(4,07-pH))
+(ДЛСТР(ПОДСТАВИТЬ(z;"C";))-x)/(1+10^(8,18-pH))
+(ДЛСТР(ПОДСТАВИТЬ(z;"Y";))-x)/(1+10^(10,46-pH))
+(x-ДЛСТР(ПОДСТАВИТЬ(z;"H";)))/(1+10^(pH-6,04))
+1/(1+10^(pH-8,2))
+(x-ДЛСТР(ПОДСТАВИТЬ(z;"K";)))/(1+10^(pH-10,54))
+(x-ДЛСТР(ПОДСТАВИТЬ(z;"R";)))/(1+10^(pH-12,48))<=0;)%)

<?xml version="1.0" standalone="yes"?>
<customUI   xmlns="http://schemas.microsoft.com/office/2009/07/customui&quot;
            xmlns:z="Моё пространство имен">
    <ribbon startFromScratch="false">
        <tabs>
            <tab idQ="z:Пространство_имен"  label="Надстройка_1">
                <group idQ="z:Группа_3" label="Группа_3">
                    <button id="Кнопка_3" label="Открыть3" imageMso="AppointmentColor10" onAction="Button3_onAction"/>
                </group>
            </tab>
        </tabs>
    </ribbon>
</customUI>

<?xml version="1.0" standalone="yes"?>
<customUI   xmlns="http://schemas.microsoft.com/office/2009/07/customui&quot;
            xmlns:x="Моё пространство имен">
    <ribbon startFromScratch="false">
        <tabs>
            <tab idQ="x:Пространство_имен" label="Надстройка_2">
                <group idQ="x:Группа_1" label="Группа_1">
                    <button id="Кнопка_1" label="Открыть1" imageMso="AppointmentColor4" onAction="Button3_onAction"/>
                </group>
                <group idQ="x:Группа_2" label="Группа_2">
                    <button id="Кнопка_2" label="Открыть2" imageMso="AppointmentColor2" onAction="Button3_onAction"/>
                </group>
            </tab>
        </tabs>
    </ribbon>
</customUI>

Function Развертывание_чисел(Txt As String) As String
' функция разбивает два числа через дефис на последовательность чисел
Dim I As Long
Dim j
     For Each j In Split(Txt, ",")
          If j Like "*-*" Then
               For I = Split(j, "-")(0) To Split(j, "-")(1)
                    Развертывание_чисел = Развертывание_чисел & ":" & I ' знак разделитель
               Next I
            Else
            Развертывание_чисел = Развертывание_чисел & ":" & j ' знак разделитель
            End If
     Next j
Развертывание_чисел = Mid$(Развертывание_чисел, 2)
End Function