Как быстро транспонировать список адресов из строк в столбцы в Excel?

Например, у вас есть одиночный список, содержащий имена и адреса, и вам нужно преобразовать его в столбцы, как показано на скриншоте ниже. В Excel нет встроенной функции для этого, но в этой статье представлены некоторые быстрые методы для решения этой задачи.

Транспонирование списка адресов с помощью VBA

Транспонирование списка адресов с помощью Kutools для Excel

Транспонирование списка адресов с помощью VBA

Чтобы транспонировать список адресов из строк в столбцы, вы можете применить код VBA.

1. Откройте лист, содержащий данные, которые вы хотите транспонировать, и нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

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, вы можете применить функцию Преобразовать диапазон, чтобы быстро транспонировать список адресов в столбцы.

1. Выберите данные, которые вы хотите транспонировать, нажмите Kutools > Диапазон > Преобразовать диапазон. См. скриншот:

2. В появившемся диалоговом окне отметьте Одна колонка в диапазон опцию в Тип преобразования разделе, и отметьте Фиксированное значение опцию и введите нужное число в правое текстовое поле. См. скриншот:

3. Нажмите Ok, и выберите ячейку, где вы хотите разместить транспонированный результат. См. скриншот:

4. Нажмите OK. Список адресов был транспонирован.

Демонстрация: Транспонирование списка адресов с помощью Kutools для Excel