Как задать в excel только буквы

Часто требуется получить из строки только буквы, исключив цифры и различные знаки, символы.

В настоящее время такой встроенной функции нет, поэтому придется писать пользовательскую функцию на VBA

Вот небольшой код для пользовательской функции Excel, которая может вытаскивать из строки состоящей из цифр, букв и символов только буквы.

Public Function GetText(txt As String) As String
    Dim m As String, s As String
    For i = 1 To Len(txt)
        m = Mid(txt, i, 1)
        If m Like "[A-Za-zА-Яа-яЁё]" Then s = s & m
    Next i
    GetText = s
End Function

Как пользоваться?

Открываем редактор VBA в Excel (Alt+F11), или правой кнопкой по листу и выбираем пункт «Исходный текст».

Создаем новый модуль → Insert → Module

Переключаемся на российскую раскладку клавиатуры, копируем код, указанный выше и вставляем в модуль

Далее в нужной ячейке, где необходимо вывести только буквы, прописываем формулу:

=GetText(A1)

и протягиваем ее вниз

Многие пользователи программы Эксель привыкли к тому, что в качестве названий столбцов таблицы служат латинские буквы. Однако иногда может случиться такое, что вместо букв отображаются цифры подобно нумерации строк.

Такое возможно по ряду причин:

• программные сбои;
• пользователь сам изменил соответствующую настройку, но не заметил, как это сделал или забыл.
• возможно, другой пользователь, работающий с таблицей внес изменения в настройки.

На самом деле, независимо от того, какая именно причина привела к смене обозначений, многие пользователи спешат вернуть все на место, т.е. чтобы столбцы вновь обозначались буквами латинского алфавита. Давайте посмотрим, как это сделать в Excel.

Смена обозначений столбцов

В Эксель предусмотрено два метода, пользуясь которыми, можно вернуть горизонтальную координатную панель к тому виду, к которому привыкло большинство пользователей программы. Давайте рассмотрим оба.

Метод 1: настройка параметров программы

Данный метод предполагает внесение изменений в параметры программы. Вот, что нужно сделать:

1. Кликаем по меню “Файл”.
2. В открывшемся окне в перечне слева в самом низу щелкаем по пункту “Параметры”.
3. На экране отобразится окно с параметрами программы:
   • переключаемся в раздел “Формулы”;
   • в правой стороне окна находим блок настроек “Работа с формулами” и убираем флажок напротив опции “Стиль ссылок R1C1”.
   • нажимаем кнопку OK, чтобы подтвердить изменения.
4. Все готово. Благодаря этим достаточно простым и быстрореализуемым действиям мы вернули привычные обозначения в таблицу.

Примечание: стиль ссылок R1C1 – это и есть параметр, включение которого меняет латинские буквы на цифры на горизонтальной координатной панели.

Метод 2: настройки в Режиме разработчика

Прежде, чем приступить к выполнению действий, описанных в данном методе, необходимо активировать режим Разработчика, так как по умолчанию он выключен.

• заходим в параметры программы (порядок действий описан выше);
• переходим в раздел “Настроить ленту”, в правой части окна находим пункт “Разработчик”, ставим напротив него галочку и щелкаем OK.

Теперь можно перейти к основному алгоритму действий:

1. Переходим во вкладку “Разработчик”, в левой части которой щелкаем по кнопке “Visual Basic”. Также, вместо этого можно воспользоваться комбинацией клавиш Alt+F11.
2. В открывшемся редакторе нажимаем комбинацию Ctrl+G, что позволит переместить курсор в область “Immediate”. Пишем в ней команду Application.ReferenceStyle=xlA1 и нажимаем Enter. Примечание: в процессе набора команды программа будет нам помогать с вариантами, как при ручном наборе формул в ячейке.
3. Можно закрывать окно редактора Visual Basic. В таблицу должны были вернуться буквенные обозначения столбцов.

Заключение

Многих пользователей, которые никогда с этим не сталкивались, может смутить ситуация, когда вместо привычных названий столбцов в виде латинских букв отображаются цифры. Но не стоит из-за этого переживать, ведь вернуть панель координат к привычному виду можно достаточно быстро, воспользовавшись одним из способов, описанных выше.

Переходите на светлую сторону вместе с OFFICELEGKO.COM! Подписывайтесь на наш Telegram и получайте ежедневный заряд знаний от авторов сайта!
Подписаться

Открыть редактор макросов (Alt+F11)
Добавить новый модуль
добавить пользовательскую функцию

Public Function SanitizeCharDigit(ByRef rng As Range) As String
    Dim pattern As String
    Dim replace As String
    Dim RegExp As Object    'Для регулярных выражений

    pattern = "[^A-Zd]"
    replace = ""

    Set RegExp = CreateObject("VBScript.RegExp")
    With RegExp
        .Global = True    'Находим ВСЕ совпадения или только первое
        .IgnoreCase = True    'Учитываем ли регистр?
        .MultiLine = True    'Может ли паттерн попадать на разрывы строк?
        .pattern = pattern    'Выражение
    End With

    On Error Resume Next
    SanitizeCharDigit = RegExp.replace(CStr(rng.Value), replace)    'Поиск и замена

    Set RegExp = Nothing    'Очистка памяти от ненужного мусора

End Function

на листе в нужной ячейке вызвать эту функцию
=SanitizeCharDigit(A1)
вместо «А1» вставить свою ячейку

очистит ВСЕ кроме английских букв и цифр