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

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

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

Перенести список адресов Kutools for 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 for Excel

Если вы только что Kutools for Excel, вы можете применить Диапазон преобразования функция быстрого переноса списка адресов в столбцы.

После установки Kutools for Excel, сделайте следующее: （Бесплатная загрузка Kutools for Excel прямо сейчас!)

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

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

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

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

Демо