Как быстро транспонировать список адресов из строк в столбцы в 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. Нажмите кнопку ОК, после чего в появившемся диалоговом окне выберите ячейку для размещения результата транспонирования. См. снимок экрана:
5. Нажмите кнопку ОК. Теперь одиночный список транспонирован в столбцы.
Транспонирование Список адресов с помощью Kutools для Excel
Если у вас установлен Kutools для Excel, вы можете воспользоваться функцией Преобразовать диапазон, чтобы быстро транспонировать список адресов в столбцы.
1. Выделите данные, которые нужно транспонировать, и нажмите Kutools > Диапазон > Преобразовать диапазон. См. снимок экрана:
2. В появившемся диалоговом окне установите флажок напротив параметра Одна колонка в диапазон в разделе Тип преобразования, а также выберите параметр Фиксированное значение и введите нужное число в текстовое поле справа. См. снимок экрана:
3. Нажмите кнопку Ok и выберите ячейку, в которую нужно поместить результат транспонирования. См. снимок экрана:
4. Нажмите кнопку ОК. Список адресов успешно транспонирован.
Kutools для Excel— раскройте весь потенциал Excel с помощью более чем 300 незаменимых инструментов, которые ускоряют и упрощают вашу работу, а также воспользуйтесь возможностями ИИ для более разумной обработки данных и повышения продуктивности.Получить сейчас
Демонстрация: транспонирование Список адресов с помощью Kutools для Excel
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек