Прескочи на основното съдържание

Как да разделя текст на отделни колони с главни букви в Excel?

Автор: Xiaoyang Последна промяна: 2020-06-03
doc, разделен на главно 1

Да предположим, че имате набор от данни, чието съдържание искате да разделите на отделни колони с главна буква, както е показано на следната екранна снимка, имате ли добри идеи за решаване на този проблем в Excel?

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

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

Разделете текста в отделни колони с главни букви с Kutools за Excel


Ако в клетките ви има само две думи, следните формули ви помагат да завършите тази работа. Моля, направете следното:

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

doc, разделен на главно 2

2. След това изберете C2 и плъзнете манипулатора за запълване надолу към клетките, към които искате да приложите тази формула, всички първи думи от клетките на диапазона са извлечени наведнъж, вижте екранната снимка:

doc, разделен на главно 3

3. Продължете да въвеждате друга формула: =ЗАМЕНИТЕ(A2,1;2;LEN(CXNUMX);"") (A2 е клетката, която искате да разделите, и C2 клетката съдържа първата дума, която сте върнали) в клетка D2 и натиснете Въведете ключ, за да получите втората дума, вижте екранната снимка:

doc, разделен на главно 4

4. Изберете клетка D2, плъзнете манипулатора за запълване надолу към клетките, за да получите втората дума, и съдържанието на клетката на диапазона е разделено на две колони с главна буква, вижте екранната снимка:

doc, разделен на главно 5


Горните формули се прилагат само към стойността на клетката, която съдържа две думи, ако има няколко думи в клетка, които трябва да бъдат разделени, можете да добавите интервали преди главните букви и след това да приложите Текст към колони, за да разделите съдържанието на клетката на отделете колоните с интервал.

Първо, приложете VBA код, за да добавите интервали преди главната буква, за да разделите думите.

1. Задръжте натиснат ALT + F11 за да отворите Microsoft Visual Basic за приложения прозорец.

2. Щракнете Поставете > Модулии поставете следния код в Модули Window.

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) в празна клетка до вашите данни, вижте екранната снимка:

doc, разделен на главно 6

4. След това плъзнете манипулатора за запълване надолу към клетките, към които искате да приложите тази формула, и интервалите са вмъкнати преди всяка главна буква, за да разделите съдържанието на клетката, вижте екранната снимка:

doc, разделен на главно 7

5. След това трябва да копирате и поставите тези клетки с формули като стойности, за да премахнете формулите на друго място или в оригиналния диапазон.

doc, разделен на главно 8

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

6. Изберете стойностите на клетките, в които сте вмъкнали интервали, и щракнете Дата > Текст към колони, в стъпка 1 от Съветник за преобразуване на текст в колониизберете ограничители опция, вижте екранна снимка:

doc, разделен на главно 9

7, След това кликнете Напред бутон, в стъпка 2 на съветника, проверете Космос вариант по Разделители раздел, вижте екранна снимка:

doc, разделен на главно 10

8. Продължете да щракате Напред бутон, в стъпка 3 на съветника изберете общ вариант по Формат на данните в колонатаи след това изберете клетка, в която искате да поставите разделените стойности, като щракнете doc, разделен на главно 12 бутон, вижте екранната снимка:

doc, разделен на главно 11

9. Най-накрая щракнете завършеност бутон, съдържанието на клетката е разделено на множество колони, както е показано на следната екранна снимка:

doc, разделен на главно 13


Ако имате Kutools за Excel, съчетавайки своите добавяне на текст намлява Разделени клетки функции, можете да се справите с тази задача лесно и удобно, моля, направете следното:

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

1. Изберете оригиналните данни, които искате да разделите.

2, След това кликнете KutoolsТекст > добавяне на текст, вижте екранна снимка:

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

doc, разделен на главно 15

4. След това кликнете Ok и преди всяка главна буква са добавени интервали, вижте екранната снимка:

doc, разделен на главно 16

5. И тогава можете да приложите Разделени клетки полезност на Kutools за Excel за да разделите стойностите на клетките по интервал, като запазите избрания диапазон от данни и след това щракнете Kutools > Обединяване и разделяне > Разделени клетки, вижте екранна снимка:

6. В Разделени клетки изберете диалоговия прозорец Разделяне на колони под Тип раздел и проверете Космос или други разделители, които сте добавили в стъпка 3, вижте екранната снимка:

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

7. След това кликнете Okи изскача поле за подкана, за да ви напомни, че изберете клетка, за да поставите разделените данни, вижте екранната снимка:

doc, разделен на главно 19

8. Най-накрая щракнете OK и ще получите желания резултат, вижте екранната снимка:

doc, разделен на главно 20

Изтеглете и изпробвайте безплатно Kutools за Excel сега!


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

Най-добрите инструменти за продуктивност в офиса

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

Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време.  Щракнете тук, за да получите функцията, от която се нуждаете най-много...

Описание


Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна

  • Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
  • Увеличава вашата производителност с 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