Изменить регистр одной буквы в excel

В этой статье я хочу рассказать Вам о нескольких способах как изменить регистр символов в Excel с верхнего на нижний или как сделать каждое слово с прописной буквы. Вы научитесь справляться с такими задачами при помощи функций ПРОПИСН и СТРОЧН, при помощи макросов VBA, а также используя Microsoft Word.

Проблема в том, что в Excel не предусмотрен специальный инструмент для изменения регистра текста на рабочем листе. Остаётся загадкой, почему корпорация Microsoft снабдила Word такой мощной функцией и не добавила её в Excel. Это упростило бы решение многих задач для большинства пользователей. Но не торопитесь лихорадочно перенабирать вручную все текстовые данные Вашей таблицы! К счастью, есть несколько хороших способов преобразовать текстовые значения в ячейках в верхний или нижний регистр, или же сделать каждое слово с прописной буквы. Позвольте мне поделиться с Вами этими способами.

• Функции Excel для изменения регистра текста
• Изменение регистра текста при помощи Microsoft Word
• Изменяем регистр при помощи макроса VBA

Функции Excel для изменения регистра текста

В Microsoft Excel есть три замечательных функции, при помощи которых Вы можете изменять регистр текста. Это UPPER (ПРОПИСН), LOWER (СТРОЧН) и PROPER (ПРОПНАЧ).

• Функция UPPER (ПРОПИСН) преобразовывает все символы нижнего регистра в верхний регистр.
• Функция LOWER (СТРОЧН) делает все прописные буквы строчными.
• Функция PROPER (ПРОПНАЧ) делает в каждом слове первую букву прописной, а все остальные – строчными.

Все эти три функции работают по одинаковому принципу, поэтому я покажу Вам, как работает одна из них. Давайте в качестве примера рассмотрим функцию UPPER (ПРОПИСН):

Вводим формулу в Excel

1. Вставьте новый (вспомогательный) столбец рядом с тем, в котором содержится текст, который Вы хотите преобразовать.

Замечание: Этот шаг не обязателен. Если таблица не большая, Вы можете просто использовать любой смежный пустой столбец.

1. 
2. Введите знак равенства (=) и имя функции UPPER (ПРОПИСН) в смежную ячейку нового столбца (B3).
3. В скобках после имени функции введите соответствующую ссылку на ячейку (C3). Ваша формула должна выглядеть вот так:

   =UPPER(C3)
=ПРОПИСН(C3)

   где C3 – это ячейка с текстом, который нужно преобразовать.

   

4. Нажмите Enter.На рисунке выше видно, что в ячейке B3 содержится текст точно такой же, как в C3, только прописными буквами.

Копируем формулу вниз по столбцу

Теперь Вам нужно скопировать формулу в остальные ячейки вспомогательного столбца:

1. Выделите ячейку с формулой.
2. Наведите указатель мыши на маленький квадрат (маркер автозаполнения) в нижнем правом углу выделенной ячейки, чтобы указатель превратился в маленький черный крест.
3. Нажмите и, удерживая левую кнопку мыши, протяните формулу вниз по всем ячейкам, в которые нужно её скопировать.
4. Отпустите кнопку мыши.

Замечание: Если Вам нужно полностью заполнить новый столбец (на всю высоту таблицы), то Вы можете пропустить шаги 5-7 и просто дважды кликнуть по маркеру автозаполнения.

Удаляем вспомогательный столбец

Итак, у Вас есть два столбца с одинаковыми текстовыми данными, отличающимися только регистром. Предполагаю, что Вы хотите оставить столбец только с нужным вариантом. Давайте скопируем значения из вспомогательного столбца и избавимся от него.

1. Выделите ячейки, содержащие формулу, и нажмите Ctrl+C, чтобы скопировать их.
2. Кликните правой кнопкой мыши по первой ячейке исходного столбца.
3. В контекстном меню в разделе Paste Options (Параметры вставки) выберите Values (Значения).Поскольку нам нужны только текстовые значения, мы выберем именно этот вариант, чтобы в будущем избежать ошибок в формулах.
4. Кликните правой кнопкой мыши по любой ячейке вспомогательного столбца и в контекстном меню выберите команду Delete (Удалить).
5. В диалоговом окне Delete (Удаление ячеек) выберите вариант Entire column (Столбец) и нажмите ОК.

Готово!

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

Изменяем регистр текста в Excel при помощи Microsoft Word

Если Вы не хотите возиться с формулами в Excel, Вы можете изменить регистр в Word. Далее Вы узнаете, как работает этот метод:

1. Выделите диапазон на листе Excel, в котором необходимо изменить регистр текста.
2. Нажмите Ctrl+C или кликните правой кнопкой мыши и в контекстном меню выберите команду Copy (Копировать).
3. Создайте новый документ Word.
4. Нажмите Ctrl+V или щелкните правой кнопкой мыши по пустой странице и в контекстном меню выберите команду Paste (Вставить). Таблица Excel будет скопирована в Word.
5. Выделите текст, у которого нужно изменить регистр.
6. На вкладке Home (Главная) в разделе Font (Шрифт) нажмите иконку Change Case (Регистр).
7. В раскрывающемся списке выберите один из 5 вариантов регистра.

Замечание: Кроме этого, Вы можете нажимать сочетание Shift+F3, пока не будет установлен нужный стиль. При помощи этих клавиш можно выбрать только верхний и нижний регистр, а также регистр как в предложениях.

Теперь у Вас есть таблица в Word с изменённым регистром текста. Просто скопируйте её и вставьте на прежнее место в Excel.

Изменяем регистр текста при помощи макроса VBA

Вы также можете использовать макросы VBA в Excel 2010 и 2013. Не переживайте, если Ваши знания VBA оставляют желать лучшего. Какое-то время назад я тоже мало что знал об этом, а теперь могу поделиться тремя простыми макросами, которые изменяют регистр текста на верхний, нижний или делают каждое слово с прописной буквы.

Я не буду отвлекаться от темы и рассказывать Вам, как вставить и запустить код VBA в Excel, поскольку об этом замечательно рассказано в других статьях нашего сайта. Я просто покажу макросы, которые Вы можете скопировать и вставить в свою книгу.

• Если Вы хотите преобразовать текст в верхний регистр, используйте следующий макрос VBA:

Sub Uppercase()
    For Each Cell In Selection
        If Not Cell.HasFormula Then
            Cell.Value = UCase(Cell.Value)
        End If
    Next Cell
End Sub

• Чтобы применить нижний регистр к своим данным, используйте код, показанный ниже:

Sub Lowercase()
    For Each Cell In Selection
        If Not Cell.HasFormula Then
            Cell.Value = LCase(Cell.Value)
        End If
    Next Cell
End Sub

• Вот такой макрос сделает все слова в тексте, начинающимися с большой буквы:

Sub Propercase()
    For Each Cell In Selection
        If Not Cell.HasFormula Then
            Cell.Value = _
            Application _
            .WorksheetFunction _
            .Proper(Cell.Value)
        End If
    Next Cell
End Sub

Я надеюсь, что теперь, когда Вы знаете пару отличных приёмов изменения регистра в Excel, эта задача не вызовет у Вас затруднений. Функции Excel, Microsoft Word, макросы VBA – всегда к Вашим услугам. Вам осталось сделать совсем немного – определиться, какой из этих инструментов Вам больше нравится.

Во многих случаях требуется, чтобы первая буква в ячейке таблицы была заглавной (прописной). Если пользователь изначально ошибочно везде вписал строчные буквы или скопировал в Excel данные из другого источника, в котором все слова начинались с маленькой буквы, то можно потратить очень большое количество сил и времени, чтобы привести внешний вид таблицы в желаемое состояние. Но, возможно у Эксель имеются специальные инструменты, с помощью которых можно эту процедуру автоматизировать? Действительно, у программы есть функция для изменения строчных букв на прописные. Давайте рассмотрим, как она работает.

Процедура трансформации первой буквы в заглавную

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

Способ 1: замена первой буквы в ячейке на заглавную

Для решения поставленной задачи используется основная функция ЗАМЕНИТЬ, а также вложенные функции первого и второго порядка ПРОПИСН и ЛЕВСИМВ.

• Функция ЗАМЕНИТЬ осуществляет замену одного символа или части строки на другие, согласно указанным аргументам;
• ПРОПИСН – делает буквы прописными, то есть, заглавными, что нам и требуется;
• ЛЕВСИМВ – возвращает указанное количество знаков конкретного текста в ячейке.

То есть, исходя из этого набора функций, с помощью ЛЕВСИМВ мы вернем в указанную ячейку первую букву, с помощью оператора ПРОПИСН сделаем её заглавной, а затем функцией ЗАМЕНИТЬ заменим строчную букву на прописную.

Общий шаблон данной операции будет выглядеть следующим образом:

=ЗАМЕНИТЬ(старый_текст;нач_поз;число_знаков;ПРОПИСН(ЛЕВСИМВ(текст;количество_знаков)))

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

1. В любом свободном месте данного листа или на другом листе записываем следующую формулу:

   =ЗАМЕНИТЬ(B4;1;1;ПРОПИСН(ЛЕВСИМВ(B4;1)))



2. Чтобы произвести обработку данных и увидеть результат, жмем кнопку Enter на клавиатуре. Как видим, теперь в ячейке первое слово начинается с прописной буквы.



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



4. Как видим, учитывая что ссылки в формуле относительные, а не абсолютные, копирование произошло со сдвигом. Поэтому в нижних ячейках отобразилось содержимое следующих по порядку позиций, но тоже с большой буквы. Теперь нам нужно вставить полученный результат в исходную таблицу. Выделяем диапазон с формулами. Кликаем правой кнопкой мыши и в контекстном меню выбираем пункт «Копировать».



5. После этого, выделяем исходные ячейки с фамилиями в таблице. Вызываем контекстное меню кликом правой кнопки мыши. В блоке «Параметры вставки» выбираем пункт «Значения», который представлен в виде иконки с цифрами.



6. Как видим, после этого нужные нам данные были вставлены в исходные позиции таблицы. При этом, строчные буквы в первых словах ячеек были заменены на прописные. Теперь, чтобы не портить внешний вид листа, нужно удалить ячейки с формулами. Особенно важно удаление провести, если вы выполняли преобразование на одном листе. Выделяем указанный диапазон, кликаем правой кнопкой мыши и в контекстном меню останавливаем выбор на пункте «Удалить…».



7. В появившемся небольшом диалоговом окне устанавливаем переключатель в позицию «Строку». Жмем на кнопку «OK».

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

Способ 2: каждое слово с большой буквы

Но бывают случаи, когда нужно сделать не только первое слово в ячейке, начинающимся с заглавной буквы, а вообще, каждое слово. Для этого тоже существует отдельная функция, причем, она намного проще предыдущей. Эта функция называется ПРОПНАЧ. Её синтаксис очень простой:

=ПРОПНАЧ(адрес_ячейки)

На нашем примере её применение будет выглядеть следующим образом.

1. Выделяем свободную область листа. Кликаем по значку «Вставить функцию».



2. В открывшемся Мастере функций ищем «ПРОПНАЧ». Найдя это наименование, выделяем его и жмем на кнопку «OK».



3. Открывается окно аргументов. Ставим курсор в поле «Текст». Выделяем первую ячейку с фамилией в исходной таблице. После того, как её адрес попал в поле окна аргументов, жмем на кнопку «OK».
   

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

   =ПРОПНАЧ(B4)

   Потом нужно будет нажать кнопку Enter.

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

4. Какой бы вариант не был выбран, в ячейке с функцией мы получили тот результат, который нам был нужен. Теперь каждое новое слово в ячейке начинается с большой буквы. Как и в прошлый раз, копируем формулу на ячейки расположенные ниже.



5. После этого копируем результат при помощи контекстного меню.



6. Вставляем данные через пункт «Значения» параметры вставки в исходную таблицу.



7. Удаляем промежуточные значения через контекстное меню.



8. В новом окне подтверждаем удаление строк, путем установки переключателя в соответствующее положение. Жмем кнопку «OK».

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

Как видим, несмотря на то, что массовую смену строчных букв на прописные в Excel через специальную формулу нельзя назвать элементарной процедурой, тем не менее, это намного проще и удобнее, чем менять символы вручную, особенно, когда их очень много. Указанные выше алгоритмы берегут не только силы юзера, но и самое ценное – время. Поэтому желательно, чтобы постоянный пользователь Эксель мог использовать данные инструменты в своей работе.

3 способа изменить регистр символов в Excel 2013, 2010 и 2007

​Смотрите также​Next symbol​tmp = tmp​ многих ячейках встречаются​ не одному мне.​ 1)​ 3-4 млн. ячеек,​ Range, Tip As​’Tip = 2​LOWER​ Selection If Not​Вы также можете использовать​​ в контекстном меню​​ текстовые значения, мы​​ автозаполнения) в нижнем​​ в котором содержится​Функции Excel для изменения​В этой статье я​

​Lol = astring​ & Mid(s, i,​ сразу оба языка​Надо будет посмотреть-покрутить​arr(1, 1) =​ лучше применить другую​ Byte​ — все строчные​(СТРОЧН), чтобы конвертировать​ Cell.HasFormula Then Cell.Value​ макросы VBA в​ выберите команду​ выберем именно этот​ правом углу выделенной​ текст, который Вы​ регистра текста​ хочу рассказать Вам​End Function​ 1)​ и все написано​ твой вариант, Андрей,​ DataRng.Areas(lrA).Value​ процедуру. Разница в​On Error Resume​’Tip = 3​ все буквы текстовой​ = LCase(Cell.Value) End​ Excel 2010 и​

• ​Copy​ вариант, чтобы в​
• ​ ячейки, чтобы указатель​ хотите преобразовать.​
• ​Изменение регистра текста при​ о нескольких способах​

Функции Excel для изменения регистра текста

​shinkai​Next i​ заглавными буквами. Возникла​ чтобы было полностью​Else​​ скорости ~ в​​ Next​​ — Начинать С​​ строки в строчные.​​ If Next Cell​​ 2013. Не переживайте,​

• ​(Копировать).​​ будущем избежать ошибок​​ превратился в маленький​Замечание:​ помощи Microsoft Word​
• ​ как изменить регистр​​: Спасибо!​​RUS = Trim(tmp)​ жизненная необходимость заменить​
• ​ как в Word’e​​arr = DataRng.Areas(lrA).Value​​ 10 раз!​​Tip = InputBox(«ВСЕ​ Прописных​=LOWER(A1)​ End Sub​ если Ваши знания​

​Создайте новый документ Word.​ в формулах.​ черный крест.​Этот шаг не​Изменяем регистр при помощи​ символов в Excel​KuklP​End Function​​ русские заглавные на​​ без задания всяких​

Вводим формулу в Excel

1. ​End If​Code200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub ConvRegistr()​ ПРОПИСНЫЕ = 1″​’Tip = 4​=СТРОЧН(A1)​

​Вот такой макрос сделает​​ VBA оставляют желать​Нажмите​Кликните правой кнопкой мыши​Нажмите и, удерживая левую​ обязателен. Если таблица​ макроса VBA​

1. 
2. ​ с верхнего на​: Скачал свой файл,​​Public Sub www()​​ русские строчные (как​ дополнительных вопросов.​For i =​
3. ​Dim DataRng As​ & vbLf &​ — Как в​Используйте функцию​ все слова в​ лучшего. Какое-то время​

   ​Ctrl+V​
​ по любой ячейке​

   ​ кнопку мыши, протяните​​ не большая, Вы​​В Microsoft Excel есть​ нижний или как​ ткнул кнопку, см.​

   
4. ​Dim c As​​ в предложении), за​​Вот только дойдут​​ 1 To UBound(arr)​ Range, Tip As​​ «все строчные =​​ предложениях​UPPER​ тексте, начинающимися с​​ назад я тоже​​или щелкните правой​

Копируем формулу вниз по столбцу

​ вспомогательного столбца и​ формулу вниз по​ можете просто использовать​

1. ​ три замечательных функции,​
2. ​ сделать каждое слово​ результат.​ Range​ некоторым исключением в​ ли руки? …​For j =​ Byte​
3. ​ 2″ & vbLf​’Tip = 5​(ПРОПИСН), чтобы преобразовать​ большой буквы:​ мало что знал​ кнопкой мыши по​
4. ​ в контекстном меню​

​ всем ячейкам, в​​ любой смежный пустой​ при помощи которых​ с прописной буквы.​shinkai​For Each c​ виде аббревиатур. Все​Дмитрий приходько​ 1 To UBound(arr,​

Удаляем вспомогательный столбец

​Dim arr(), arrCel(),​ & _​ — иЗМЕНИТЬ рЕГИСТР​ все буквы текстовой​Sub Propercase() For​ об этом, а​ пустой странице и​ выберите команду​ которые нужно её​ столбец.​ Вы можете изменять​

1. ​ Вы научитесь справляться​: Я наверно что-то​​ In ActiveSheet.UsedRange.SpecialCells(2).Cells​​ макросы, что встречались​
2. ​: в libreoffice -​ 2)​ lrA&, i&, j&​
3. ​»Начинать С Прописных​Dim i&​​ строки в верхний​​ Each Cell In​​ теперь могу поделиться​​ в контекстном меню​​Delete​ скопировать.​Введите знак равенства (=)​ регистр текста. Это​ с такими задачами​ не то делаю,​
4. ​c = RUS(c.Value)​ мне ранее, действуют​ Ctrl+F3​arr(i, j) =​On Error Resume​​ = 3″ &​​If Tip =​
5. ​ регистр.​​ Selection If Not​​ тремя простыми макросами,​ выберите команду​​(Удалить).​​Отпустите кнопку мыши.​​ и имя функции​​UPPER​

​ при помощи функций​

​ но у меня​Next​ по замене всей​в некроофисе -​ ConvertRegistr(CStr(arr(i, j)), Tip)​ Next​ vbLf & «Как​ 4 Then​=UPPER(A1)​ Cell.HasFormula Then Cell.Value​

Изменяем регистр текста в Excel при помощи Microsoft Word

​ которые изменяют регистр​Paste​В диалоговом окне​Замечание:​UPPER​(ПРОПИСН),​ПРОПИСН​

1. ​ и правда не​End Sub​ информации в ячейке.​ никак. не предусмотрено.​
2. ​Next​​Tip = InputBox(«ВСЕ​​ в предложениях =​ConvertRegistr = StrConv(sString,​=ПРОПИСН(A1)​ = _ Application​​ текста на верхний,​​(Вставить). Таблица Excel​
3. ​Delete​
4. ​Если Вам нужно​​(ПРОПИСН) в смежную​​LOWER​и​ запускается…​shinkai​ Возникла мысль применить​​Romixa​​Next​ ПРОПИСНЫЕ = 1″​ 4″ _​
5. ​ 2)​Используйте функцию​
6. ​ _ .WorksheetFunction _​​ нижний или делают​​ будет скопирована в​​(Удаление ячеек) выберите​​ полностью заполнить новый​​ ячейку нового столбца​​(СТРОЧН) и​
7. ​СТРОЧН​StoTisteg​: Спасибо, но немного​

​ функцию CODE для​​: =ПРОПИСН ()​arrCel(lrA, 1) =​​ & vbLf &​​& vbLf &​Mid$(ConvertRegistr, 1, 1)​PROPER​ .Proper(Cell.Value) End If​ каждое слово с​ Word.​ вариант​ столбец (на всю​

​ (B3).​PROPER​, при помощи макросов​: А должно быть​ не то. Не​ поиска русского алфавита​Делает все буквы​

Изменяем регистр текста при помощи макроса VBA

​ DataRng.Areas(lrA).Address​ «все строчные =​ «иЗМЕНИТЬ рЕГИСТР =​ = UCase(Mid$(ConvertRegistr, 1,​(ПРОПНАЧ) для преобразования​ Next Cell End​ прописной буквы.​Выделите текст, у которого​Entire column​ высоту таблицы), то​В скобках после имени​(ПРОПНАЧ).​ VBA, а также​ «»…​ могли бы вы​ в ячейке и​ в тексте прописными.​

​arrCel(lrA, 2) =​ 2″ & vbLf​ 5″, «Выбор типа​ 1))​ текстовой строки в​ Sub​Я не буду отвлекаться​ нужно изменить регистр.​(Столбец) и нажмите​ Вы можете пропустить​ функции введите соответствующую​Функция​ используя Microsoft Word.​

• ​МВТ​ написать здесь, какую​ затем уже применить​=ПРОПНАЧ ()​

​ arr​ & _​ конвертации», 2)​ElseIf Tip >​ текст, где каждое​Я надеюсь, что теперь,​ от темы и​

• ​На вкладке​ОК​ шаги 5-7 и​ ссылку на ячейку​

​UPPER​Проблема в том, что​: Если точнее, то​ маску вы установили,​ конвертацию. Но никак​Первая буква в​Next​

• ​»Начинать С Прописных​Set DataRng =​ 4 Then​ слово начинается с​

​ когда Вы знаете​ рассказывать Вам, как​Home​.​ просто дважды кликнуть​ (C3). Ваша формула​(ПРОПИСН) преобразовывает все​ в Excel не​ «»​

​ а то у​ не соображу, как​ строке текста и​With Application​ = 3″ &​ Intersect(Selection, ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible))​For i =​ заглавной буквы. То​ пару отличных приёмов​ вставить и запустить​(Главная) в разделе​Готово!​ по маркеру автозаполнения.​ должна выглядеть вот​ символы нижнего регистра​

​ предусмотрен специальный инструмент​StoTisteg​
​ меня японский софт,​
​ это прописать. И​

​ все первые буквы,​

office-guru.ru

Преобразование текста в нижний и верхний регистр в Excel

​’ На всякий​ vbLf & «Как​If MsgBox(«Заменить формулы​ 1 To Len(sString)​ есть первая буква​ изменения регистра в​ код VBA в​Font​

1. ​В теории это может​​Итак, у Вас есть​​ так:​ в верхний регистр.​ для изменения регистра​

   ​: Это уже зависит​
​ какая-то абракадабра отображается.​

   

2. ​ как в этом​​ следующие за знаками,​​ случай, вдруг надо.​ в предложениях =​ на значения?», _​Mid$(sString, i, 1)​

   ​ каждого слова в​
​ Excel, эта задача​

   

3. ​ Excel, поскольку об​​(Шрифт) нажмите иконку​​ показаться слишком сложным.​ два столбца с​=UPPER(C3)​Функция​ текста на рабочем​ от диалекта регэкспов.​ Полагаю, что там​ случае прописать исключения​ отличными от букв,​ =)​

   ​ 4" _​
​vbYesNo + vbQuestion,​

   

​ = IIf(Mid$(sString, i,​ верхнем регистре, а​
​ не вызовет у​
​ этом замечательно рассказано​

​Change Case​

office-guru.ru

Регистр (Изменение регистра текста.)

​ Расслабьтесь и попробуйте​​ одинаковыми текстовыми данными,​=ПРОПИСН(C3)​LOWER​ листе. Остаётся загадкой,​ В какнонiчном —​
​ указан класс ,​ для аббревиатур?​ преобразуются в прописные​
​.EnableEvents = False:​& vbLf &​ "Выбор типа конвертации")​
​ 1) = UCase(Mid$(sString,​ все остальные –​
​ Вас затруднений. Функции​ в других статьях​
​(Регистр).​ проделать все эти​ отличающимися только регистром.​
​где​(СТРОЧН) делает все​ почему корпорация Microsoft​
​ с запятой.​ но кажется там​
​не спец по​
​ (верхний регистр). Все​ .ScreenUpdating = False​
​ "иЗМЕНИТЬ рЕГИСТР =​ = vbNo Then​
​ i, 1)), _​ в нижнем.​ Excel, Microsoft Word,​
​ нашего сайта. Я​В раскрывающемся списке выберите​
​ шаги самостоятельно. Вы​ Предполагаю, что Вы​
​C3​ прописные буквы строчными.​ снабдила Word такой​krosav4ig​
​ еще что-то, не​ макросам, задача свалилась​
​ прочие буквы в​
​For i =​
​ 5", "Выбор типа​
​Set DataRng =​LCase(Mid$(sString, i, 1)),​
​=PROPER(A1)​
​ макросы VBA –​
​ просто покажу макросы,​ один из 5​ увидите, что изменение​ хотите оставить столбец​– это ячейка​Функция​
​ мощной функцией и​: чего-то в голову​ идентифицирую что именно.​
​ в силу непреодолимых​
​ тексте преобразуются в​ 1 To UBound(arrCel)​ конвертации», 2)​ Intersect(DataRng, ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants))​
​ UCase(Mid$(sString, i, 1)))​=ПРОПНАЧ(A1)​
​ всегда к Вашим​ которые Вы можете​ вариантов регистра.​ регистра при помощи​ только с нужным​ с текстом, который​
​PRO​ не добавила её​ ударило, написал еще​Цитата​ обстоятельств, посему буду​
​ строчные (нижний регистр).​Range(arrCel(i, 1)) =​Set DataRng =​End If​
​Next​Урок подготовлен для Вас​
​ услугам. Вам осталось​ скопировать и вставить​
​Замечание:​ функций Excel –​ вариантом. Давайте скопируем​
​ нужно преобразовать.​PER​
​ в Excel. Это​
​ вот такой изврат​
​KuklP200?’200px’:»+(this.scrollHeight+5)+’px’);»>Function RUS что-то​ благодарен за подсказки.​=СТРОЧН ()​
​ arrCel(i, 2)​ Intersect(Selection, ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible))​
​With Application​ConvertRegistr = sString​
​ командой сайта office-guru.ru​ сделать совсем немного​
​ в свою книгу.​
​Кроме этого, Вы​ это совсем не​
​ значения из вспомогательного​
​Нажмите​
​(ПРОПНАЧ) делает в​ упростило бы решение​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Public Sub rr()​ не работает…​zopa​Преобразует знаки в​Next​If MsgBox(«Заменить формулы​
​’ На всякий​
​Else​Источник: http://www.excel-easy.com/examples/lower-upper-case.html​ – определиться, какой​
​Если Вы хотите преобразовать​ можете нажимать сочетание​
​ трудно.​ столбца и избавимся​
​Enter​ каждом слове первую​ многих задач для​Dim arr(), i&​zopa​: RegExp в помощь.​
​ текстовой строке из​.EnableEvents = True:​ на значения?», _​ случай, вдруг надо.​ConvertRegistr = StrConv(sString,​
​Перевел: Антон Андронов​ из этих инструментов​ текст в верхний​Shift+F3​
​Если Вы не хотите​ от него.​
​.​ букву прописной, а​
​ большинства пользователей. Но​With CreateObject(«ScriptControl»)​: «»​
​ Пример во вложении.​ верхнего регистра в​
​ .ScreenUpdating = True​
​vbYesNo + vbQuestion,​ =)​ Tip)​
​Автор: Антон Андронов​ Вам больше нравится.​
​ регистр, используйте следующий​, пока не будет​
​ возиться с формулами​Выделите ячейки, содержащие формулу,​На рисунке выше видно,​
​ все остальные –​ не торопитесь лихорадочно​
​.Language = «JScript»​
​200?’200px’:»+(this.scrollHeight+5)+’px’);»>​
​KuklP​
​ нижний.​End With​
​ «Выбор типа конвертации»)​.EnableEvents = False:​End If​
​RAN​Урок подготовлен для Вас​
​ макрос VBA:​
​ установлен нужный стиль.​
​ в Excel, Вы​ и нажмите​
​ что в ячейке​ строчными.​
​ перенабирать вручную все​
​.AddCode «function a(b){return​
​Public Function Lol(astring)​:​shinkai​
​End Sub​ = vbNo Then​
​ .ScreenUpdating = False​End Function​
​: Word предусматривает 5​ командой сайта office-guru.ru​
​Sub Uppercase() For​
​ При помощи этих​ можете изменить регистр​
​Ctrl+C​
​B3​

​Все эти три функции​​ текстовые данные Вашей​ b.replace(/[А-ЯЁ]/gm,function(c){return c.toLowerCase()})}»​ As String​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Function RUS(s$) As String​: Проблема в следующем:​Alex_ST​Set DataRng =​For Each cell​
​Процедуры на ее​ параметров изменения регистра,​Источник: https://www.ablebits.com/office-addins-blog/2014/04/25/change-case-excel-uppercase-lowercase/​ Each Cell In​
​ клавиш можно выбрать​ в Word. Далее​, чтобы скопировать их.​содержится текст точно​ работают по одинаковому​ таблицы! К счастью,​
​arr = Selection.Value​Set re =​

excelworld.ru

Добрый день подскажите как в EXCEL 2007 изменить регистр в тексте

​Dim i%, ascii%,​​ надо изменить регистр​: Давно хотел добавить​
​ Intersect(DataRng, ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants))​ In DataRng​

​ основе позволяют изменять​​ а Excel всего​
​Перевел: Антон Андронов​ Selection If Not​
​ только верхний и​
​ Вы узнаете, как​Кликните правой кнопкой мыши​ такой же, как​ принципу, поэтому я​ есть несколько хороших​For i =​ CreateObject(«VBScript.RegExp»)​ tmp$​ только части текста​ в свой Excel​
​End If​
​cell.Value = ConvertRegistr(cell.Value,​ регистр текста непосредственно​ три, и то​Автор: Антон Андронов​

Изменение регистра части текста в ячейке (Макросы/Sub)

​ Cell.HasFormula Then Cell.Value​​ нижний регистр, а​ работает этот метод:​ по первой ячейке​ в​ покажу Вам, как​ способов преобразовать текстовые​ LBound(arr) To UBound(arr)​re.Pattern = «[А-Я-Ё]»​For i =​ в ячейках -​ такую же функцию,​ReDim arrCel(1 To​ Tip)​ в ячейках, в​ в виде функций.​Этот пример научит вас​ = UCase(Cell.Value) End​ также регистр как​Выделите диапазон на листе​ исходного столбца.​C3​ работает одна из​ значения в ячейках​If Len(arr(i, 1))​re.Global = True​ 1 To Len(s)​ а именно ту​ как в Word​ DataRng.Areas.Count, 1 To​Next cell​ том числе и​Function ConvertRegist позволяет​ преобразовывать текстовую строку​ If Next Cell​ в предложениях.​ Excel, в котором​В контекстном меню в​
​, только прописными буквами.​ них. Давайте в​ в верхний или​ Then arr(i, 1)​re.IgnoreCase = False​

​ascii = Asc(Mid(s,​​ часть, что написана​ — перебор регистров​

​ 2)​​.EnableEvents = True:​​ в несвязанных диапазонах.​
​ изменять 5 параметров​ в верхний или​
​ End Sub​Теперь у Вас есть​
​ необходимо изменить регистр​ разделе​
​Теперь Вам нужно скопировать​ качестве примера рассмотрим​ нижний регистр, или​ = .Run("a", arr(i,​Set Matches =​
​ i, 1))​ по-русски. Все файлы​ текста по кругу​
​For lrA =​
​ .ScreenUpdating = True​
​Первая процедура вполне​
​ регистра, аналогично Word.​
​ нижний регистр, а​Чтобы применить нижний регистр​
​ таблица в Word​ текста.​
​Paste Options​
​ формулу в остальные​
​ функцию​

​ же сделать каждое​​ 1))​ re.Execute(astring)​If (ascii >=​ (а их несколько​ по нажатиям на​ 1 To DataRng.Areas.Count​End With​ годится для повседневного​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Function ConvertRegistr(sString As String,​ также трансформировать её​ к своим данным,​ с изменённым регистром​Нажмите​
​(Параметры вставки) выберите​​ ячейки вспомогательного столбца:​UPPER​

​ слово с прописной​​Next​
​For Each symbol​
​ 192 And ascii​ тысяч) составлены нашими​
​ Shift+F3​If DataRng.Areas(lrA).Cells.Count =​
​End Sub​
​ применения.​
​ Tip As Byte)​
​ в текст, где​ используйте код, показанный​
​ текста. Просто скопируйте​Ctrl+C​
​Values​Выделите ячейку с формулой.​
​(ПРОПИСН):​
​ буквы. Позвольте мне​
​Selection.Value = arr​


​ In Matches​​ tmp = tmp​

​ заокеанскими партнерами на​​Всё руки не​ 1 Then​Но если вам​

​Code200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub ConvRegistr1()​​ As String​ каждое слово начинается​ ниже:​ её и вставьте​или кликните правой​

​(Значения).​​Наведите указатель мыши на​Вставьте новый (вспомогательный) столбец​

​ поделиться с Вами​​End With​astring = Replace(astring,​

​ & LCase(Mid(s, i,​​ двух языках, причем​ доходили. А оказывается,​ReDim arr(1 To​ вдруг нужно изменить​

​Dim DataRng As​​’Tip = 1​ с заглавной буквы.​Sub Lowercase() For​
​ на прежнее место​
​ кнопкой мыши и​
​Поскольку нам нужны только​
​ маленький квадрат (маркер​
​ рядом с тем,​ этими способами.​
​End Sub​
​ symbol, LCase(symbol))​ 1)) Else _​
​ коряво - во​ это показалось нужным​ 1, 1 To​ регистр сразу в​
​ Range, cell As​
​ - ВСЕ ПРОПИСНЫЕ​
​Используйте функцию​
​ Each Cell In​

excelworld.ru

​ в Excel.​

Была ли эта статья полезной?

Довольно часто при работе с таблицами Эксель возникают ситуации, когда нужно заменить первую строчную букву слова на заглавную (прописную).

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

Процесс замены первой строчной буквы на заглавную

На самом деле, в отличие от выполнения процедуры замены сразу всех строчных букв на заглавные (смотрите, как это это делать в нашей статье – “Как сделать все буквы заглавными в Эксель”), когда речь идет только про первую букву, специально предназначенной для этого отдельной функции в программе нет. Но благодаря одновременному использованию нескольких инструментов справиться с поставленной задаче, все же, можно.

Вариант 1: меняем первую букву слова на заглавную

Для реализации данного метода нам нужно будет использовать три оператора:

• ЗАМЕНИТЬ – с помощью данной функции можно заменить один символ или определенный фрагмент на указанное в аргументе функции значение.
• ЛЕВСИМВ – позволяет отсчитать определенное количество символов в указанной ячейке.
• ПРОПИСН – превращает строчные буквы в заглавные (прописные).

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

В общем виде формула с использованием всех трех операторов выглядит следующим образом:

=ЗАМЕНИТЬ(Старый_текст;Нач_поз;Число_знаков;ПРОПИСН(ЛЕВСИМВ(Текст;Количество_Знаков)))

На первый взгляд может показаться, что выражение слегка перегружено и в нем сложно разобраться. Поэтому давай рассмотрим конкретный пример.

Допустим, у нас есть таблица, содержащая столбец с текстовыми данными, представленными в виде строчных букв. Соответственно, наша задача – все первые буквы сделать прописными (заглавными).

Алгоритм действий следующий:

1. Выбираем любую свободную ячейку на листе (можно даже на другом листе) и пишем в ней выражение для ячейки A2, начиная с которой нам нужно произвести замены:
   =ЗАМЕНИТЬ(A2;1;1;ПРОПИСН(ЛЕВСИМВ(A2;1)))
2. После того, как формула готова, нажимаем клавишу Enter на клавиатуре, чтобы получить результат.
3. Наводим указатель мыши на правый нижний угол ячейки с формулой, когда появится небольшой черный плюсик (маркер заполнения), зажав левую кнопку мыши тянем его вниз на столько строк, сколько строк в исходном столбце, с которым мы работаем (в нашем случае – 8).
4. Когда мы отпустим кнопку мыши, получим данные исходного столбца с замененными первыми буквами. Это возможно благодаря тому, что мы использовали относительные ссылки на ячейку A2 в формуле, и при ее копировании произошло смещение координат.
5. Не снимая выделение с полученного диапазона (или отметив область повторно, если выделение было снято) копируем его любым удобным способом, например, нажав на кнопку “Копировать” на ленте программы (вкладка “Главная”).
6. Теперь выделяем строки в исходном столбце таблицы, затем кликом правой кнопки мыши по выделенному диапазону раскрываем контекстное меню, в котором выбираем вариант вставки “Значения” (группа “Параметры вставки”.)
7. В результате проделанных действий все значения в выбранных ячейках были заменены на те, что мы получили с помощью формул в нижних ячейках. И так как последние больше не нужны, их можно удалить. Для этого отмечаем весь диапазон, щелкаем по нему правой кнопкой мыши и в открывшемся меню выбираем команду “Удалить”.
8. В окошке удаления выбираем пункт “строку”, после чего нажимаем OK. Если справа от выделенного диапазона будут свободные ячейки, также можно в вариантах удаления выбрать “ячейки со сдвигом влево”.
9. В итоге, мы смогли заменить первые буквы первых слов (если их несколько) в выбранных ячейках таблицы на заглавные и убрать с листа промежуточные данные, которые были необходимы для получения финального результата.

Вариант 2: меняем первую букву каждого слова на заглавную

В некоторых ситуациях требуется сделать заглавными первые буквы каждого слова в выбранных ячейках таблицы. На этот случай в Эксель предусмотрена специальная функция ПРОПНАЧ, использование которой значительно проще, нежели реализация метода, описанного выше.

Формула функции ПРОПНАЧ выглядит так:

=ПРОПНАЧ(адрес_ячейки)

Давайте посмотрим, как она работает на примере нашей таблицы.

1. Встаем в любую свободную ячейку листа и нажимаем кнопку “Вставить функцию” (fx), находящуюся слева от строки формул.
2. Откроется окно вставки функци, в котором выбираем оператор “ПРОПНАЧ” (категория “Текстовые”) и щелкаем OK.
3. Заполняем единственный аргумент функции – “Текст”. Сделать это можно вручную, прописав с помощью клавиш клавиатуры координаты ячейки, содержимое которой нужно обработать. Или находясь курсором в поле для ввода данных просто кликнуть по нужной ячейке в самой таблице. По готовности нажимаем OK.
4. В ячейке с функцией будет выведен требуемый результат.
5. Воспользовавшись маркером заполнения копируем формулу ровно на столько строк, сколько содержится в исходном столбце, в ячейках которого мы хотим произвести замену букв. Как это делается – описано в первом методе (шаг 3).
6. Выделяем и копируем полученный диапазон данных, например, нажав сочетание клавиш CTRL+C или воспользовавшись любым другим удобным способом (контекстное меню, кнопка на ленте программы).
7. Скопированные данные вставляем в соответствующее место исходной таблицы (только “Значения”) предварительно выделив нужный диапазон или встав в ячейку, которая станет самым верхним левым элементом, начиная с которого будут вставлены скопированные данные.
8. Промежуточные данные можно удалить, выбрав сначала в контекстном меню команду “Удалить”, затем в небольшом окошке, которое откроется следом – пункт “строку” или “со сдвигом влево” (если справа от выделенного диапазона будут пустые ячейки).
9. Вот и все, что требовалось сделать для того, чтобы заменить первую букву каждого слова на прописную.

Заключение

Таким образом, программа Excel позволяет выполнить замену первой буквы на заглавную, причем это можно сделать как в отношении только первого слова, так и всех слов, содержащихся в ячейке (диапазоне ячеек). Приятным моментом является то, что процесс автоматизирован, а это значит, что ошибки из-за опечаток, возможных при ручной обработке данных, исключены.