Sub u_700()
    For a = 1 To Sheets.Count 'пройдемся по листам
        If a <> 2 Then 'если лист не второй
            If a = 1 Then 'если это первый лист
                s = "b" 'проверяемый столбец
                t = "j" 'столбец для гиперссылки
            Else 'другие листы
                s = "a" 'проверяемый столбец
                t = "g" 'столбец для гиперссылки
            End If
            u = Sheets(a).Cells(Rows.Count, s).End(xlUp).Row
            If u > 1 Then
                For v = 2 To u
                    If Sheets(a).Range(s & v) <> "" Then
                        Sheets(a).Hyperlinks.Add Anchor:=Sheets(a).Range(t & v), Address:="#", _
                            SubAddress:="Пункт!A2", TextToDisplay:="Пункт!"
                    Else
                        Sheets(a).Range(t & v).ClearContents
                    End If
                Next
            End If
        End If
    Next
    '=ДВССЫЛ("'"&B2&"'!E"&СТРОКА()-ПОИСКПОЗ(B2;B$2:B2;)+1)&""
    x = Cells(Rows.Count, "b").End(xlUp).Row
    Range("g2:g" & x).Formula = "=INDIRECT(""'""&B2&""'!E""&ROW()-MATCH(B2,B$2:B2,)+1)&"""""
    Range("g2:g" & x) = Range("g2:g" & x).Value
End Sub