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でアドレスリストを転置する

Kutools for Excelを持っている場合、 Transform Range機能を使用してアドレスリストを迅速に列に転置できます。

1. 転置したいデータを選択し、「 Kutools > 範囲 > 範囲の変換」をクリックします。スクリーンショットをご覧ください：

2. 表示されるダイアログで、「 単一列を範囲に変換 」オプションを 変換タイプ セクションで選択し、「 固定値 」オプションを選択して、右側のテキストボックスに必要な数値を入力します。スクリーンショットをご覧ください：

3. 「 Ok」をクリックし、転置結果を配置したいセルを選択します。スクリーンショットをご覧ください：

4. 「 OK」をクリックします。これでアドレスリストが転置されました。

デモ： Kutools for Excelでアドレスリストを転置する