Excelで行から列にアドレスリストを迅速に転置する方法は?
例えば、名前と住所を含む単一のリストがあり、それを下のスクリーンショットのように列に変換する必要があります。Excelにはこの目的のための組み込み関数はありませんが、この記事ではいくつかの簡単な方法を紹介します。
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 - 必要なツールを300以上搭載し、Excelの機能を大幅に強化します。永久に無料で利用できるAI機能もお楽しみください!今すぐ入手
デモ: Kutools for Excelでアドレスリストを転置する
最高のオフィス業務効率化ツール
🤖 | Kutools AI Aide:データ分析を革新します。主な機能:Intelligent Execution|コード生成|カスタム数式の作成|データの分析とグラフの生成|Kutools Functionsの呼び出し…… |
人気の機能:重複の検索・ハイライト・重複をマーキング|空白行を削除|データを失わずに列またはセルを統合|丸める…… | |
スーパーLOOKUP:複数条件でのVLookup|複数値でのVLookup|複数シートの検索|ファジーマッチ…… | |
高度なドロップダウンリスト:ドロップダウンリストを素早く作成|連動ドロップダウンリスト|複数選択ドロップダウンリスト…… | |
列マネージャー:指定した数の列を追加 |列の移動 |非表示列の表示/非表示の切替| 範囲&列の比較…… | |
注目の機能:グリッドフォーカス|デザインビュー|強化された数式バー|ワークブック&ワークシートの管理|オートテキスト ライブラリ|日付ピッカー|データの統合 |セルの暗号化/復号化|リストで電子メールを送信|スーパーフィルター|特殊フィルタ(太字/斜体/取り消し線などをフィルター)…… | |
トップ15ツールセット:12 種類のテキストツール(テキストの追加、特定の文字を削除など)|50種類以上のグラフ(ガントチャートなど)|40種類以上の便利な数式(誕生日に基づいて年齢を計算するなど)|19 種類の挿入ツール(QRコードの挿入、パスから画像の挿入など)|12 種類の変換ツール(単語に変換する、通貨変換など)|7種の統合&分割ツール(高度な行のマージ、セルの分割など)|… その他多数 |
Kutools for ExcelでExcelスキルを強化し、これまでにない効率を体感しましょう。 Kutools for Excelは300以上の高度な機能で生産性向上と保存時間を実現します。最も必要な機能はこちらをクリック...
Office TabでOfficeにタブインターフェースを追加し、作業をもっと簡単に
- Word、Excel、PowerPointでタブによる編集・閲覧を実現。
- 新しいウィンドウを開かず、同じウィンドウの新しいタブで複数のドキュメントを開いたり作成できます。
- 生産性が50%向上し、毎日のマウスクリック数を何百回も削減!
全てのKutoolsアドインを一つのインストーラーで
Kutools for Officeスイートは、Excel、Word、Outlook、PowerPoint用アドインとOffice Tab Proをまとめて提供。Officeアプリを横断して働くチームに最適です。





- オールインワンスイート — Excel、Word、Outlook、PowerPoint用アドインとOffice Tab Proが含まれます
- 1つのインストーラー・1つのライセンス —— 数分でセットアップ完了(MSI対応)
- 一括管理でより効率的 —— Officeアプリ間で快適な生産性を発揮
- 30日間フル機能お試し —— 登録やクレジットカード不要
- コストパフォーマンス最適 —— 個別購入よりお得