Перейти к основному содержанию

Как в Excel разбить текст на отдельные столбцы заглавной буквой?

документ разделен на 1

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

Разделить текст на отдельные столбцы заглавными буквами с формулами

Разделить текст на отдельные столбцы заглавными буквами с кодом VBA

Разделить текст на отдельные столбцы заглавной буквой с помощью Kutools for Excel


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

1. Введите эту формулу массива: =LEFT(A2,SMALL(FIND(CHAR(ROW(INDIRECT("65:90"))),A2&"ABCDEFGHIJKLMNOPQRSTUVWXYZ"),2)-1) (A2 - это ячейка, которую вы хотите разделить заглавной буквой) на пустую ячейку, смежную с вашими данными, а затем нажмите Shift + Ctrl + Enter ключи вместе, чтобы получить первое слово, см. снимок экрана:

документ разделен на 2

2. Затем выберите C2 и перетащите дескриптор заполнения вниз к ячейкам, к которым вы хотите применить эту формулу, все первые слова ячеек диапазона были извлечены сразу, см. Снимок экрана:

документ разделен на 3

3. Продолжайте вводить другую формулу: = ЗАМЕНИТЬ (A2,1; LEN (C2); "") (A2 это ячейка, которую вы хотите разделить, и C2 содержит ли ячейка первое слово, которое вы вернули) в ячейку D2 и нажмите Enter ключ, чтобы получить второе слово, см. снимок экрана:

документ разделен на 4

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

документ разделен на 5


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

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

1. Удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. Нажмите Вставить > Модулии вставьте следующий код в Модули Окно.

Код VBA: вставляйте пробелы перед каждой заглавной буквой в ячейке

Function SplitWords(ByVal Str As String) As String
'updateby Extendoffice 20151128
    Dim I As Integer
    SplitWords = Left(Str, 1)
    For I = 2 To Len(Trim(Str))
        If (Asc(Mid(Str, I, 1)) > 64) And _
           (Asc(Mid(Str, I, 1)) < 91) And _
           (Mid(Str, I - 1, 1) <> " ") Then _
            SplitWords = SplitWords & " "
        SplitWords = SplitWords & Mid(Str, I, 1)
    Next
End Function

3. Сохраните и закройте этот код, вернитесь на рабочий лист, введите эту формулу: = разделение слов (A2) в пустую ячейку рядом с вашими данными, см. снимок экрана:

документ разделен на 6

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

документ разделен на 7

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

документ разделен на 8

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

6. Выберите значения ячеек, в которые вы вставили пробелы, и нажмите Данные > Текст в столбцы, на Шаге 1 Мастер преобразования текста в столбцы, наведите на разграниченный вариант, см. снимок экрана:

документ разделен на 9

7. Затем нажмите Следующая кнопку, на Шаге 2 мастера установите флажок Space вариант под Разделители раздел, см. снимок экрана:

документ разделен на 10

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

документ разделен на 11

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

документ разделен на 13


Если вы только что Kutools for Excel, совмещая Добавить текст и Разделить клетки функции, вы можете легко и удобно справиться с этой задачей, сделайте следующее:

Kutools for Excel : с более чем 300 удобными надстройками Excel, бесплатно и без ограничений в течение 30 дней.

1. Выберите исходные данные, которые вы хотите разделить.

2. Затем нажмите КутулсТекст > Добавить текст, см. снимок экрана:

3. В Добавить текст диалоговом окне, введите пробел один раз или любой другой разделитель, который вам нужен, в Текст поле, а затем выберите 1-я буква заглавная из Только добавить к раздел, см. снимок экрана:

документ разделен на 15

4. Затем нажмите Ok перед каждой заглавной буквой были добавлены пробелы, см. снимок экрана:

документ разделен на 16

5. А затем вы можете применить Разделить клетки полезности Kutools for Excel чтобы разделить значения ячеек по пробелу, не снимая выделения с диапазона данных, а затем щелкните Кутулс > Слияние и разделение > Разделить клетки, см. снимок экрана:

6. В Разделить клетки диалоговое окно, выберите Разделить на столбцы под Тип раздел и проверьте Space или другие разделители, добавленные на шаге 3, см. снимок экрана:

doc, разделенный на капитал 18 18

7. Затем нажмите Ok, и появится окно подсказки, чтобы напомнить вам выбрать ячейку для размещения разделенных данных, см. снимок экрана:

документ разделен на 19

8, Наконец, нажмите OK кнопку, и вы получите нужный результат, см. снимок экрана:

документ разделен на 20

Загрузите бесплатную пробную версию Kutools for Excel прямо сейчас!


Kutools for Excel: с более чем 300 удобными надстройками Excel, которые можно попробовать бесплатно без ограничений в течение 30 дней. Загрузите и бесплатную пробную версию прямо сейчас!

Лучшие инструменты для офисной работы

🤖 Kutools AI Помощник: Революционный анализ данных на основе: Интеллектуальное исполнение   |  Генерировать код  |  Создание пользовательских формул  |  Анализ данных и создание диаграмм  |  Вызов функций Kutools...
Популярные опции: Найдите, выделите или определите дубликаты   |  Удалить пустые строки   |  Объедините столбцы или ячейки без потери данных   |   Раунд без формулы ...
Супер поиск: Множественный критерий VLookup    VLookup с несколькими значениями  |   VLookup по нескольким листам   |   Нечеткий поиск ....
Расширенный раскрывающийся список: Быстрое создание раскрывающегося списка   |  Зависимый раскрывающийся список   |  Выпадающий список с множественным выбором ....
Менеджер столбцов: Добавить определенное количество столбцов  |  Переместить столбцы  |  Переключить статус видимости скрытых столбцов  |  Сравнить диапазоны и столбцы ...
Рекомендуемые функции: Сетка Фокус   |  Просмотр дизайна   |   Большой Формулный Бар    Менеджер книг и листов   |  Библиотека ресурсов (Авто текст)   |  Выбор даты   |  Комбинировать листы   |  Шифровать/дешифровать ячейки    Отправлять электронные письма по списку   |  Суперфильтр   |   Специальный фильтр (фильтровать жирным шрифтом/курсивом/зачеркиванием...) ...
15 лучших наборов инструментов12 Текст Инструменты (Добавить текст, Удалить символы, ...)   |   50+ График Тип (Диаграмма Ганта, ...)   |   40+ Практических Формулы (Рассчитать возраст по дню рождения, ...)   |   19 Вносимые Инструменты (Вставить QR-код, Вставить изображение из пути, ...)   |   12 Конверсия Инструменты (Числа в слова, Конверсия валюты, ...)   |   7 Слияние и разделение Инструменты (Расширенные ряды комбинирования, Разделить клетки, ...)   |   ... и более

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

Описание


Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hola! Llevo todo el dia tratando de divir palabras juntas en celdas en excel, he dado con esta pagina, pero el código VBA no me funciona, tengo entendido que =Splitwords ya no esta disponible.
Es posible que puedas ayudarme?
This comment was minimized by the moderator on the site
Formula/function works as it should now, a later amendment (#25891) fixed it - thank you so much
This comment was minimized by the moderator on the site
DanMorgan = Dan
MollieClark = Mollie
Jade, Jam, Ryan, Dummy (not his real name),Jess,Cass, Jenni and Jack all come through as Jade,Jam, etc

using Excel 2013 (company supplied)
This comment was minimized by the moderator on the site
I need some help splitting a cell. I can do it by lower case next to upper case. But if the splitting word is one capitol letter, followed by another capitol letter it won't work. Also, if there are Roman numerals involved there are problems. If there is a word, such as "McDonald" or "MacDonald" there are problems. Can you help?
This comment was minimized by the moderator on the site
This doesn't work for two of the same capital letters
This comment was minimized by the moderator on the site
Hello,
If the two words are same words, please change the first array formula to the follows:
=LEFT(A2,SMALL(FIND(CHAR(ROW(INDIRECT("65:90"))),RIGHT(A2, LEN(A2)-1)&"ABCDEFGHIJKLMNOPQRSTUVWXYZ"),1))

Please remember to press Ctrl + Shift + Enter keys together.

Hope it can help you!
This comment was minimized by the moderator on the site
Thanks for the content it really worked
This comment was minimized by the moderator on the site
Your formula fail if name is like this: JhonJhon MarkMark
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations