Перейти до основного матеріалу

Як розділити значення, розділені комами, на рядки або стовпці в Excel?

У деяких випадках може знадобитися розділити значення виділених комірок виділених комірок на рядки або стовпці. Тут ми представимо три методи для детального вирішення цієї проблеми.

Розділіть значення, розділені комами, на стовпці за допомогою функції "Текст у стовпці"
Розділіть значення, розділені комами, на рядки з кодом VBA
Швидко розділяйте значення, розділені комами, на рядки або стовпці за допомогою Kutools для Excel


Розділіть значення, розділені комами, на стовпці за допомогою функції "Текст у стовпці"

Ви можете застосувати функцію "Текст до стовпців", щоб розділити значення виділених комами вибраних комірок на стовпці. Будь ласка, виконайте наступне.

1. Виберіть діапазон комірок, для яких потрібно розділити значення на стовпці, а потім клацніть дані > Текст у стовпці. Дивіться знімок екрана:

2. У першій Перетворення макета тексту в колонки діалоговому вікні, виберіть Розмежовано , а потім клацніть на МАЙБУТНІ кнопки.

3 У другому Перетворення макета тексту в колонки діалогове вікно, лише перевірити Кома коробка в Делімітери і натисніть на МАЙБУТНІ кнопки.

4. В останній Перетворення макета тексту в колонки діалоговому вікні, виберіть клітинку для пошуку значень розбиття в призначення і нарешті клацніть на обробка кнопку. Дивіться знімок екрана:

Тепер усі значення у вибраних комірках, які були розділені комами, розділяються на різні стовпці, як показано на скріншоті нижче.

Як правило, в Текст у стовпці функція лише розділяє комірки на окремі стовпці. Якщо ви хочете розділити комірки на рядки, як ви можете це зробити?
Тут Kutools для Excel's Розділені клітини Утиліта може допомогти вам швидко розділити комірки за пробілом, комою, новим рядком, іншими роздільниками або певною шириною на не лише відокремлені рядки, але стовпці в Excel. Завантажте Kutools для Excel зараз! (30-денний безкоштовний маршрут)


Розділіть значення, розділені комами, на рядки з кодом VBA

Для розділення значень, розділених комами, на рядки, ви можете застосувати такий код VBA.

1 Натисніть кнопку інший + F11 клавіші одночасно, щоб відкрити Microsoft Visual Basic для додатків вікна.

2 В Microsoft Visual Basic для додатків вікна, натисніть Insert > Модулі. Потім скопіюйте та вставте наведений нижче код VBA у вікно модуля.

Код VBA: розділіть значення, розділені комами, на рядки

Sub SplitAll()
	Dim xRg As Range
	Dim xRg1 As Range
	Dim xCell As Range
	Dim I As Long
	Dim xAddress As String
	Dim xUpdate As Boolean
	Dim xRet As Variant
	On Error Resume Next
	xAddress = Application.ActiveWindow.RangeSelection.Address
	Set xRg  = Application.InputBox("Please select a range", "Kutools for Excel", xAddress, , , , , 8)
	Set xRg  = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
	If xRg Is Nothing Then Exit Sub
		If xRg.Columns.Count > 1 Then
			MsgBox "You can't select multiple columns", , "Kutools for Excel"
			Exit Sub
			End If
			Set xRg1 = Application.InputBox("Split to (single cell):", "Kutools for Excel", , , , , , 8)
			Set xRg1 = xRg1.Range("A1")
			If xRg1 Is Nothing Then Exit Sub
				xUpdate = Application.ScreenUpdating
				Application.ScreenUpdating = False
				For Each xCell In xRg
					xRet = Split(xCell.Value, ",")
					xRg1.Worksheet.Range(xRg1.Offset(I, 0), xRg1.Offset(I + UBound(xRet, 1), 0)) = Application.WorksheetFunction.Transpose(xRet)
					I = I + UBound(xRet, 1) + 1
				Next
				Application.ScreenUpdating = xUpdate
			End Sub

3 Натисніть кнопку F5 клавіша для запуску коду. У спливаючому Kutools для Excel діалоговому вікні, виберіть клітинки, які потрібно розділити, а потім клацніть на OK кнопки.

4. У другому спливаюче Kutools для Excel діалоговому вікні, виберіть клітинку для пошуку значень розбиття, а потім натисніть OK.

Тоді ви можете побачити, що значення, розділені комами, у вибраних клітинках розділені на рядки, як показано на знімку екрана нижче.


Швидко розділяйте значення, розділені комами, на рядки або стовпці за допомогою Kutools для Excel

The Розділені клітини корисність Kutools для Excel може допомогти вам легко розділити значення, розділені комами, на рядки або стовпці.

1. Виберіть клітинки, які потрібно розділити, а потім клацніть Кутулс > Злиття та розділення > Розділені клітини. Дивіться знімок екрана:

2 В Розділені клітини діалогове вікно, виберіть Розділити на ряди or Розділити на стовпці в тип розділ, як вам потрібно. І в Вкажіть роздільник розділ, виберіть Інше , введіть символ кома в текстове поле, а потім клацніть OK кнопку. Дивіться знімок екрана:

3. А потім з’явиться інше вікно із запитом, щоб нагадати вам вибрати клітинку для виведення результату, див. Знімок екрана:

4. клацання OK кнопку, ви можете побачити результати, як показано на скріншотах нижче.

Розділити на стовпці

Розділити на ряди

  Якщо ви хочете отримати безкоштовну пробну версію (30 днів) цієї програми, натисніть, щоб завантажити, а потім перейдіть до застосування операції, як описано вище.


Демонстрація: швидко розділяйте значення, розділені комами, на рядки або стовпці за допомогою Kutools для Excel

Найкращі інструменти продуктивності офісу

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

Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу.  Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...

Опис


Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
Comments (11)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
A jak zmienić kod żeby nie pytał o ustawienie się w A1 i potem aby wynik był np też od A1 w dół
This comment was minimized by the moderator on the site
Hi Bartek,
You mean don't want to pop up the second dialog to select the target cell, and want to specify the target cell in the code directly?
If so, you need to change the following lines.
For example, you need to start outputting results from B1 and automatically fill down.
Please change this line:
Set xRg1 = Application.InputBox("Split to (single cell):", "Kutools for Excel", , , , , , 8)
to
Set xRg1 = Application.Range("B2")
And then remove the next line:
Set xRg1 = xRg1.Range("A1")
This comment was minimized by the moderator on the site
i still cant upload my csv into 365
This comment was minimized by the moderator on the site
Go to excel file Data option -> text to column->delimited -> Done
it will spit comma separated value into individual column
example
id name add
1 Ratnesh myAdd
2,Yog,myAdd
we will apply in the 2nd record it will split record like 1st records,
Thanks,
Ratnesh Sahu
This comment was minimized by the moderator on the site
Go to excel file Data option -> text to column->delimited -> Done
it will spit comma separated value into individual column
example

id name add

1 Ratnesh myAdd

2,Yog,myAdd


we will apply in the 2nd record it will split record like 1st records,


Thanks,
Ratnesh Sahu
This comment was minimized by the moderator on the site
Thanks it helped :)
This comment was minimized by the moderator on the site
This is amazing, thanks for making it free and easy to use!
This comment was minimized by the moderator on the site
Thank you!
This comment was minimized by the moderator on the site
Alternately for separating into rows, use the text to column steps and then copy & paste ->transpose to turn the columns into rows.
This comment was minimized by the moderator on the site
Thanks Jake! This is what I was looking for. :)
This comment was minimized by the moderator on the site
Good one, the utility help me a lot. Thanks for that... :)
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations