Как да разделя стойностите на клетки вертикално в Excel?
В Excel можете да приложите Текст към колони функция за разделяне на стойностите на клетката в множество колони хоризонтално, но не ви помага да разделите съдържанието на клетката на множество редове вертикално. И в тази статия ще говоря за някои бързи начини за разделяне на стойностите на клетките на редове вертикално чрез конкретен разделител в Excel.
Разделете стойностите на клетките на редове вертикално чрез разделител с VBA код
Разделете стойностите на клетките в редове вертикално чрез разделител с Kutools за Excel
Разделете стойностите на клетките на редове вертикално чрез разделител с VBA код
Следният VBA код може да ви помогне да разделите стойностите на клетките на редове вертикално с който и да е разделител, както желаете, моля, направете следното:
1. Задръжте натиснат ALT + F11 за да отворите Microsoft Visual Basic за приложения прозорец.
2. Кликнете Поставете > Модулии поставете следния код в Модули Window.
VBA код: Разделете стойностите на клетките в редове вертикално чрез конкретен разделител
Sub splitvertically()
'updatebyExtendoffice
Dim xRg As Range
Dim xOutRg As Range
Dim xCell As Range
Dim xTxt As String
Dim xStr As String
Dim xOutArr As Variant
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xOutRg = Application.InputBox("please select output cell:", "Kutools for Excel", , , , , , 8)
If xOutRg Is Nothing Then Exit Sub
For Each xCell In xRg
If xStr = "" Then
xStr = xCell.Value
Else
xStr = xStr & ";" & xCell.Value
End If
Next
xOutArr = VBA.Split(xStr, ";")
xOutRg.Range("A1").Resize(UBound(xOutArr) + 1, 1) = Application.WorksheetFunction.Transpose(xOutArr)
End Sub
3. След това натиснете F5 за да стартирате този код и ще изскочи поле за подкана, за да ви напомни, че изберете стойностите на клетките, които искате да разделите вертикално, вижте екранната снимка:
4, И после щракнете върху OK бутон, друго поле ще изскочи, за да ви напомни, че изберете клетка, за да поставите резултата, вижте екранната снимка:
5. Щракнете OK и стойностите на клетките са разделени в списък чрез разделител, вижте екранната снимка:
Забележка: В горния код можете да промените точката и запетая ; към всички други разделители, от които се нуждаете.
Разделете стойностите на клетките в редове вертикално чрез разделител с Kutools за Excel
Kutools за ExcelЕ Разделени клетки функцията е мощна помощна програма, тя може да ви помогне да разделите стойностите на клетките в множество колони или редове с всеки разделител, колкото ви е необходим.
Kutools за Excel : с повече от 300 удобни добавки за Excel, безплатни за изпробване без ограничение за 30 дни. |
След инсталиране Kutools за Excel, моля, направете следното:
1. Изберете клетките, които искате да разделите на редове по конкретния разделител.
2, След това кликнете Kutools > Обединяване и разделяне > Разделени клетки, вижте екранна снимка:
3. В Разделени клетки изберете диалоговия прозорец Разделяне на редове под Тип и след това проверете Други от Разделяне по и въведете разделителя, въз основа на който искате да разделите стойностите на клетката, вижте екранната снимка:
4, И после щракнете върху Ok бутон, в изскачащото поле изберете клетка, за да изведете резултата, вижте екранната снимка:
5, И натиснете OK стойностите на клетките са разделени на редове въз основа на конкретния разделител, както е показано на следната екранна снимка:
Изтеглете и изпробвайте безплатно Kutools за Excel сега!
Демонстрация: Разделете стойностите на клетките в редове вертикално чрез разделител с Kutools за Excel
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!