Как да разделяте по разделител и транспонирате клетки в Excel?
В тази статия представям начините за разделяне на диапазон чрез конкретен разделител и след това транспониране в Excel, както е показано на екранната снимка по-долу. Ако се интересувате от тази задача, моля, отидете на подробностите по-долу.
Разделете и транспонирайте с VBA
Разделете и транспонирайте с Kutools за Excel
Разделете и транспонирайте с VBA
Няма директен начин за разделяне и транспониране на данни чрез конкретен разделител, но мога да въведа VBA код, за да ви помогна да разрешите този проблем бързо.1. Натиснете Alt + F11 клавиши за показване Microsoft Visual Basic за приложения прозорец.
2. кликване Поставете > Модулии поставете кода по-долу към новия Модули прозорец.
VBA: Разделяне и транспониране
Sub Vertical()
'UpdatebyExtendoffice20161125
Dim i As Long, strTxt As String
Dim startP As Range
Dim xRg As Range, yRg As Range
On Error Resume Next
Set xRg = Application.InputBox _
(Prompt:="Range Selection...", _
Title:="Kutools For Excel", Type:=8)
i = 1
Application.ScreenUpdating = False
For Each yRg In xRg
If i = 1 Then
strTxt = yRg.Text
i = 2
Else
strTxt = strTxt & "," & yRg.Text
End If
Next
Application.ScreenUpdating = True
Set startP = Application.InputBox _
(Prompt:="paste range...", _
Title:="Kutools For Excel", Type:=8)
ary = Split(strTxt, ",")
i = 1
Application.ScreenUpdating = False
For Each a In ary
startP(i, 1).Value = a
i = i + 1
Next a
Application.ScreenUpdating = True
End Sub
3. Натиснете F5 за да стартирате кода, изскача диалогов прозорец, за да изберете диапазон за разделяне и транспониране.
4. кликване OK. Изскача диалогов прозорец за избор на място за поставяне на данните.
5. кликване OK, а селекцията е разделена и транспонирана със запетая.
Разделете и транспонирайте с Kutools за Excel
с Kutools за Excel, можете да приложите неговата Разделени клетки първо, за да разделите клетките по разделител и след това да приложите Обхват на трансформация помощна програма за преобразуване на клетките в една колона.
Kutools за Excel, с повече от 300 удобни функции, прави работата ви по-лесна. |
След инсталиране Kutools за Excel, моля, направете следното:(Безплатно изтегляне Kutools за Excel сега!)
1. Изберете клетките, които искате да разделите, и щракнете Kutools > Обединяване и разделяне > Разделени клетки. Вижте екранна снимка:
2. В Разделени клетки диалог, проверка Разделяне на колони опция, след това посочете разделителя, въз основа на който искате да разделите, щракнете Ok. И изберете празна клетка, за да поставите резултата във втората Разделени клетки диалогов прозорец. Вижте екранна снимка:
3. кликване OK, тогава клетките са разделени на колони и след това щракнете Kutools > Обхват > Обхват на трансформация. Вижте екранна снимка:
4. В Обхват на трансформация диалог, проверка Диапазон до една колона, Щракнете върху Okи изберете клетка, за да поставите резултата. Вижте екранна снимка:
5. кликване OK, сега диапазонът е транспониран в една колона.
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!