Как бързо да транспонирате списък с адреси от редове в колони в Excel?
Например, има единичен списък, комбиниран с имена и адреси, и трябва да преобразувате списъка в колони, както е показано на екранната снимка по-долу. В Excel няма вградена функция, която да се справи с това, но в тази статия мога да представя някои трикове за бързо решаване на това.
Транспониране на списък с адреси чрез VBA
Транспонирайте списък с адреси от Kutools за Excel
Транспониране на списък с адреси чрез VBA
За да транспонирате списък с адреси от редове в колони, можете да приложите VBA код.
1. Активирайте листа, съдържащ данни, които искате да транспонирате, и натиснете Alt + F11 бутони за отваряне Microsoft Visual Basic за приложения прозорец.
2. кликване Поставете > Модулии поставете по-долу макро кода към Модули. Вижте екранна снимка:
VBA: Транспониране на списък с адреси
Sub fixText()
'UpdatebyExtendoffice0170905
Dim I As Integer
Dim K As Integer
Dim xRgS As Range
Dim xRgD As Range
Dim xAddress As String
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRgS = Application.InputBox("Select a range to transpose:", "KuTools For Excel", xAddress, , , , , 8)
If xRgS Is Nothing Then Exit Sub
Set xRgD = Application.InputBox("Select a cell to place result", "KuTools For Excel", , , , , , 8)
If xRgD Is Nothing Then Exit Sub
xRgD(1).Offset(, 0).Value = "Name"
xRgD(1).Offset(, 1).Value = "Address"
xRgD(1).Offset(, 2).Value = "City/State"
K = 1
For I = 1 To xRgS.Rows.Count
xRgD(1).Offset(K).Value = xRgS(I).Value
xRgD(1).Offset(K, 1).Value = xRgS(I + 1).Value
xRgD(1).Offset(K, 2).Value = xRgS(I + 2).Value
K = K + 1
I = I + 2
Next
End Sub
3. Натиснете F5 за изпълнение на кода и изскача диалогов прозорец, за да ви напомни да изберете диапазона от данни, който искате да използвате. Вижте екранна снимка:
4. кликване OK, след това в следващия изскачащ диалогов прозорец изберете клетка, за да поставите транспонирания резултат. Вижте екранна снимка:
5. кликване OK. Сега единният списък е транспониран в колони.
Транспонирайте списък с адреси от Kutools за Excel
Ако имате Kutools за Excel, можете да приложите Обхват на трансформация функция за бързо транспониране на списък с адреси в колони.
Kutools за Excel, с повече от 300 удобни функции, прави работата ви по-лесна. |
След инсталиране Kutools за Excel, моля, направете следното: (Безплатно изтегляне Kutools за Excel сега!)
1. Изберете данните, които искате да транспонирате, щракнете Kutools > Обхват > Обхват на трансформация. Вижте екранна снимка:
2. В изскачащия диалогов прозорец поставете отметка Единична колона към диапазон опция в Тип трансформация раздел и проверете Фиксирана стойност опция и въведете номера, от който се нуждаете, в дясното текстово поле. Вижте екранна снимка:
3. кликване Okи изберете клетка за извеждане на резултата. Вижте екранна снимка:
4. кликване OK. Списъкът с адреси е транспониран.
Демонстрация
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!