Сортировка текста по регистрам

[sacredww]

Всем привет
Нужна формула для сортировки строк нижних и верхних регистров.

Спасибо!

[Serge_Bliznykov]

что за сортировка регистров? поясните, что Вы имеете в виду?!

[sacredww]

Допустим имею список:

сергей
вАня
алеша
оЛег
Петя
оля
катЯ

нужно чтобы текст с любым верхним регистром был во втором столбце или в конце списка
допустим вот так:

в первом столбце все с нижним регистром :

сергей
алеша
оля


во втором все с верхним регистром:

вАня
оЛег
Петя
катЯ

или хотяб так:

сергей
алеша
оля

вАня
оЛег
Петя
катЯ

[Serge_Bliznykov]

вопрос понял.
отвечаю.

во-первых, слово "Сортировка" в данном случае не очень корректно.
ну, если второй вариант можно назвать сортировкой, то первый (с выделением в отдельный столбец) - это фильтрация или выборка данных.

во-вторых, формулами вашу задачу решить крайне сложно (если и вообще возможно).
Вам нужен макрос для выборки данных.
Исходный список где находится?

[sacredww]

в тхт файле

[Serge_Bliznykov]

Сообщение от sacredww

в тхт файле

отлично.
А как это связано с Excel ?
Вы его в Excel ручками вставляете? Или тот же макрос и должен из TXT брать?

[sacredww]

все руками
или нужно хотяб чтоб все слова которые имееют любой верхний регистр удалялись

[Serge_Bliznykov]

Сообщение от sacredww

все руками

так в чём проблема то?
давайте ваш текстовый файл, я удалю

Сообщение от sacredww

все слова которые имееют любой верхний регистр

[Aleksandr H.]

Sub doWork()
    Dim lowerCases As Range
    Dim mixedCases As Range
    Dim rng As Range
    Dim cel As Range
    Set rng = Range("a1:a7")
    If rng.Columns.Count > 1 Then Exit Sub
    For Each cel In rng
        If cel = LCase(cel) Then
            If lowerCases Is Nothing Then
                Set lowerCases = cel
            Else
                Set lowerCases = Union(lowerCases, cel)
            End If
            Debug.Print cel & "=> LOWER"
        Else
            If mixedCases Is Nothing Then
                Set mixedCases = cel
            Else
                Set mixedCases = Union(mixedCases, cel)
            End If
            Debug.Print cel & "=> MIXED"
        End If
    Next

    Dim i As Integer
    i = 1
    For Each cel In lowerCases
        [d1].Offset(i - 1, 0) = cel
        i = i + 1
    Next
    i = 1
     For Each cel In mixedCases
        [E1].Offset(i - 1, 0) = cel
        i = i + 1
    Next
    
End Sub