Function Переворачиватель_9000(массив_исх, последняя, текущая)
Dim индекс
Dim массив
Dim С
Dim СВ
Dim В
Dim ЮВ
Dim Ю
Dim ЮЗ
Dim З
Dim СЗ
Dim ПО
Dim ПР
Dim О
Dim Д
    Select Case TypeName(массив_исх)
    Case "Range"
        массив = массив_исх.Value
    Case "Variant()"
        массив = массив_исх
    End Select
индекс = WorksheetFunction.Index(массив, последняя.Row - текущая.Row + 1, 1)
С = " северном "
СВ = " северо-восточном "
В = " восточном "
ЮВ = " юго-восточном "
Ю = " южном "
ЮЗ = " юго-западном "
З = " западном "
СЗ = " северо-западном "
ПО = " по течению."
ПР = " против течения."
О = " от "
Д = " до "
    Переворачиватель_9000 = IIf(Replace(Replace(Replace(Replace(Replace(Replace(индекс, С, Ю), СВ, ЮЗ), В, З), ЮВ, СЗ), ПО, ПР), Д, О) = индекс, Replace(Replace(Replace(Replace(Replace(Replace(индекс, Ю, С), ЮЗ, СВ), З, В), СЗ, ЮВ), ПР, ПО), О, Д), Replace(Replace(Replace(Replace(Replace(Replace(индекс, С, Ю), СВ, ЮЗ), В, З), ЮВ, СЗ), ПО, ПР), Д, О))
    End Function

Function Переворачиватель_для_описания(массив, последняя, текущая)
     
Переворачиватель_для_описания = IIf(Replace(Replace(Replace(Replace(Replace(WorksheetFunction.Index(массив, последняя.Row - текущая.Row + 1), " северном ", " южном "), " северо-восточном ", " юго-западном "), " восточном ", " западном "), " юго-восточном ", " северо-западном "), " по течению.", " против течения.") = WorksheetFunction.Index(массив, последняя.Row - текущая.Row + 1), Replace(Replace(Replace(Replace(Replace(WorksheetFunction.Index(массив, последняя.Row - текущая.Row + 1), " южном ", " северном "), " юго-западном ", " северо-восточном "), " западном ", " восточном "), " северо-западном ", " юго-восточном "), " против течения.", " по течению."), Replace(Replace(Replace(Replace(Replace(WorksheetFunction.Index(массив, последняя.Row - текущая.Row + 1), " северном ", " южном "), " северо-восточном ", " юго-западном "), " восточном ", " западном "), " юго-восточном ", " северо-западном "), " по течению.", " против течения."))
 
End Function