Excelでアドレスリストを行から列にすばやく転置するにはどうすればよいですか？

たとえば、名前と住所を組み合わせた単一のリストがあり、以下のスクリーンショットに示すように、リストを列に変換する必要があります。 Excelにはそれを処理するための組み込み関数はありませんが、この記事では、これをすばやく解決するためのいくつかの秘訣を紹介します。

VBAによるアドレスリストの転置

Kutools forExcelによるアドレスリストの転置

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 forExcelによるアドレスリストの転置

あなたが持っている場合 Kutools for Excel、あなたは適用することができます 変換範囲 アドレスリストを列にすばやく転置する機能。

インストールした後 Kutools for Excel、以下のようにしてください： （今すぐExcel用のKutoolsを無料でダウンロードしてください！）

1.転置するデータを選択し、をクリックします クツール > レンジ > 変換範囲。 スクリーンショットを参照してください：

2.ポップアウトダイアログで、チェックします 範囲に単一の列 内のオプション 変換タイプ セクション、およびチェック 固定値 オプションを選択し、必要な番号を右側のテキストボックスに入力します。 スクリーンショットを参照してください：

3。 クリック Ok、セルを選択して結果を出力します。 スクリーンショットを参照してください：

4。 クリック OK。 アドレスリストが入れ替わっています。

デモ