Здравейте,

Имам една таблица и в една от колоните имам имена на хора (българи), написани на кирилица и чужденци-написални на латиница. 

Как мога да премахна редовете с имена само на чужденците или да ги разделя на имена на латиница и имена на кирилица?

Използвам Excel 2016. 

Благодаря предварително!

Chat GPT казва да пробваш това:
 

Цитат

За да филтрирате всички редове, които съдържат символи на кирилица и след това да ги премахнете в Excel, можете да използвате формула за условно форматиране и функцията `ISNUMBER`. Вот как можете да направите това:

1. Вмъкнете нов стълб до вашия списък с имена.
2. Въведете следната формула в първия ред на новия стълб и я копирайте надолу, за да приложите за целия диапазон с имена:
   
   ```
   =IF(SUMPRODUCT(--ISNUMBER(FIND(MID(A2,ROW(INDIRECT("1:"&LEN(A2))),1),"абвгдежзийклмнопрстуфхцчшщъьюя"))) > 0, "Кирилица", "Латиница")
   ```

   Тази формула ще провери дали всяка клетка в стълба A съдържа поне един символ на кирилица.

3. Филтрирайте стълба с формулата, като щракнете върху стрелката в заглавния ред на стълба, изберете "Филтър по съдържание" (Filter by content) и изберете "Кирилица" от списъка със стойности.

4. Сега можете да видите само редовете, които съдържат кирилица.

5. Маркирайте видимите редове.

6. Изтрийте маркираните редове, като щракнете с десния бутон на мишката върху маркираните редове и изберете "Изтриване" (Delete) или използвайте клавишната комбинация "Ctrl + -" (минус).

Това ще премахне всички редове, които съдържат поне един символ на кирилица в вашите данни. Не забравяйте след това да премахнете и формулата за проверка.

 

преди 18 минути, Raze написа:

Chat GPT казва да пробваш това:
 

 

Благодаря! 

На мен Chat GPT ми отговори още по-подробно-

1. Ако предположим, че вашите имена са в колона A, добавете нова колона B, където ще поставите формулата.
2. За да разпознаете дали името е на латиница, можете да използвате следната формула в клетката B2: =IF(SUMPRODUCT(SEARCH(MID(A2,ROW(INDIRECT("1:"&LEN(A2))),1),"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"))>0,"Latin","Cyrillic") Тази формула ще провери всеки знак от името в клетка A2 и ако открие буква от латинската азбука, ще върне "Latin", ако не открие - "Cyrillic".
3. Потребителите с буква на латиница ще бъдат означени като "Latin", а потребителите с буква на кирилица като "Cyrillic".

Да дам и аз моите 5 ст'инки от GPT - откриване на ред с първа клетка на кирилица и преместването му с друг лист:

1. Отворете Excel файлът, където искате да изпълните този скрипт.
2. Натиснете Alt + F11, за да отворите редактора на VBA.
3. В менюто, изберете Insert -> Module, за да създадете нов модул.
4. Копирайте и поставете следния код в модула:

Sub ПреместиРедСПърваКлеткаНаКирилица()
    Dim ЛистИзход As Worksheet
    Dim ЛистЦел As Worksheet
    Dim РедЗа_Копиране As Range
    Dim ПърваКлеткаКритерий As String
    Dim Клетка As Range
    Dim БройКолони As Integer
    
    ' Задайте имената на листовете
    Set ЛистИзход = Worksheets("Име на листа за преместване")
    Set ЛистЦел = Worksheets("Име на целевия лист")
    
    ' Задайте стойността на първата клетка с кирилица, която търсите
    ПърваКлеткаКритерий = "а" ' Например, тук е зададена стойността "а"
    
    ' Задайте броя на колоните, които искате да копирате
    БройКолони = 5 ' Например, тук е ограничено до пет колони
    
    ' Търсене на реда с първата клетка на кирилица
    For Each Клетка In ЛистИзход.Columns(1).Cells
        If Left(Клетка.Text, 1) = ПърваКлеткаКритерий Then
            Set РедЗа_Копиране = ЛистИзход.Rows(Клетка.Row)
            Exit For
        End If
    Next Клетка
    
    ' Копиране и поставяне на ограничен брой колони от реда
    If Not РедЗа_Копиране Is Nothing Then
        РедЗа_Копиране.Resize(, БройКолони).Copy
        ЛистЦел.Rows(ЛистЦел.UsedRange.Rows.Count + 1).PasteSpecial xlPasteValues
        Application.CutCopyMode = False
    Else
        MsgBox "Редът не е намерен!"
    End If
End Sub

lse Else MsgBox "Редът не е намерен!" End If End Sub

5. Заменете "Име на листа за преместване" и "Име на целевия лист" със съответните имена на вашите листове.

6. Затворете редактора на VBA.

7. Натиснете Alt + F8, изберете "ПреместиРедСПърваКлеткаНаКирилица" и натиснете "Run".