如何在Excel中快速將地址列表從行轉置為列？

例如，您有一個包含名稱和地址的列表，您需要將其轉換為列，如下面的螢幕截圖所示。 Excel 沒有內建的函數來解決這個問題，但本文介紹了一些快速的方法來解決這個問題。

通過VBA轉置地址列表

Kutools for 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 for Excel轉置地址列表

如果你有 Excel的Kutools，您可以套用 變換範圍 快速將地址列表轉置為列的功能。

1.選擇要轉置的數據，單擊 庫工具 > 範圍 > 變換範圍。 看截圖：

2.在彈出的對話框中，選中 單列到範圍 選項 轉換類型 部分，並檢查 固定值 選項，然後在右側的文本框中輸入所需的號碼。 看截圖：

3。 點擊 Ok，然後選擇要放置轉置結果的儲存格。看截圖：

4。 點擊 OK。 地址列表已轉置。

示範：透過 Kutools for Excel 轉置位址列表