メインコンテンツへスキップ

Excelで配列テーブルをリストテーブルにすばやく変換するにはどうすればよいですか?

配列テーブル/クロステーブルがあり、この配列テーブルをリストテーブルに変換するのは難しい作業ではないかもしれません。データをXNUMXつずつ入力することで変換できます。 ただし、リストテーブルに変換するために複数の配列テーブルが必要な場合は、手動の方法が適切な解決策ではないはずです。 ここで、このチュートリアルでは、Excelで配列テーブルをリストテーブルにすばやく変換できるトリックを紹介します。

ピボットテーブルを使用して配列テーブルをリストテーブルに変換します

配列テーブルをVBAでリストテーブルに変換する

Kutools forExcelを使用して配列テーブルをリストテーブルに変換する 良いアイデア3


矢印青い右バブル ピボットテーブルを使用して配列テーブルをリストテーブルに変換します

ピボットテーブルを適用して配列テーブルをリストに変換し、それを範囲としてコピーできます。

1。 押す Altキー+ D 同時に、を押します P を有効にするためのキー ピボットテーブルとピボットグラフウィザード ダイアログ、およびチェック 複数の統合範囲 > ピボットテーブル オプション。 スクリーンショットを参照してください:
リスト1へのドキュメント配列テーブル

2. [次へ]をクリックしてウィザードのステップ2aに進み、[ページフィールドを作成します]オプションをオンにします。 スクリーンショットを参照してください:
リスト2へのドキュメント配列テーブル

3。 クリック Next を選択して ウィザードのステップ2b、配列範囲を選択して、に追加します すべての範囲 リスト。 スクリーンショットを参照してください:
リスト3へのドキュメント配列テーブル

4。 クリック Next 最後のステップに進むには、必要に応じてXNUMXつのオプションをチェックしてください。 スクリーンショットを参照してください:
リスト4へのドキュメント配列テーブル

5。 クリック 終了 次に、ピボットテーブルが作成され、の交差セルに移動します。 総計、ダブルクリックすると、ピボットテーブルが新しいワークシートに作成されたリストが表示されます。 スクリーンショットを参照してください:
リスト5へのドキュメント配列テーブル

6.次に、リストPivotTableを選択し、右クリックして選択します > 範囲に変換 コンテキストメニューから。 スクリーンショットを参照してください:
リスト6へのドキュメント配列テーブル

これで、配列テーブルがリストテーブルに変換されました。
リスト7へのドキュメント配列テーブル


矢印青い右バブル 配列テーブルをVBAでリストテーブルに変換する

これは、配列テーブルをリストテーブルに変換するのに役立つVBAです。以下の手順に従ってください。

1。 押す Altキー+ F11 を有効にする アプリケーション向け Microsoft Visual Basic 窓。

2。 クリック インセット > モジュール、VBAコードの下を新しいものに貼り付けます モジュール 窓。

VBA:配列テーブルをリストに変換します

Sub ConvertTableToList()
'UpdatebyEntendOffice20160429
    Dim I As Long
    Dim xCls As Long
    Dim xRg As Range
    Dim xSaveToRg As Range
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select Array Table:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xSaveToRg = Application.InputBox("Select a range(cell) to put the list table", "Kutools for Excel", , , , , , 8)
    If xSaveToRg Is Nothing Then Exit Sub
    Set xSaveToRg = xSaveToRg.Cells(1)
    xCls = xRg.Columns.Count - 1
    Application.ScreenUpdating = False
    For I = 1 To xRg.Rows.Count
        xSaveToRg.Offset((I - 1) * xCls).Value = xRg.Cells(I, 1).Value
        xSaveToRg.Offset((I - 1) * xCls, 1).Resize(xCls).Value = _
                        Application.WorksheetFunction.Transpose(xRg.Cells(I, 2).Resize(1, xCls))
    Next
    Application.ScreenUpdating = True
End Sub

3.そしてを押します F5 キーを押してVBAを実行すると、ダイアログが表示され、ヘッダーを除く配列テーブルを選択できます。 スクリーンショットを参照してください:
リスト7へのドキュメント配列テーブル

4。 クリック OK 次のダイアログに移動してセルを選択し、リストテーブルを出力します。 スクリーンショットを参照してください:
リスト9へのドキュメント配列テーブル

5。 クリック OK、および配列テーブルがリストに変換されました。
リスト10へのドキュメント配列テーブル

ヒント:

上記のセルに基づいて空白のセルを埋める場合は、次のように実行できます。

1. インストールを開始する Kutools for Excel -便利なツールをクリックしてから クツール > インセット > 空白のセルを埋める。 スクリーンショットを参照してください:
リスト11へのドキュメント配列テーブル

2。 の中に 空白のセルを埋める ダイアログ、チェック 値に基づく > Down オプション。 スクリーンショットを参照してください:
リスト12へのドキュメント配列テーブル

3。 クリック Ok or 申し込む、そして今、空白のセルは上記の値に基づいて埋められます。
リスト13へのドキュメント配列テーブル

空白セルの塗りつぶしの詳細については、ここをクリックしてください。


矢印青い右バブル Kutools forExcelを使用して配列テーブルをリストテーブルに変換する

上記の方法があなたにとって十分に簡単でない場合、ここで私は便利なツールを紹介することができます– Kutools for Excel、 その 転置テーブルの寸法 ユーティリティは、配列テーブルとリストテーブルの間ですばやく簡単に変換できます。

Kutools for Excel, 以上で 300 便利な機能は、あなたの仕事をより簡単にします。 

後の 無料インストール Kutools for Excel、以下のようにしてください:

1.リストに変換する配列テーブルを選択し、をクリックします クツール > レンジ > 転置テーブルの寸法。 スクリーンショットを参照してください:
リスト14へのドキュメント配列テーブル

2.次に、 転置テーブルの寸法 ダイアログで、[テーブルからリストへのクロス]オプションをオンにして、リストテーブルを出力する範囲を選択します。 スクリーンショットを参照してください:
リスト15へのドキュメント配列テーブル

3。 クリック Ok、これで配列テーブルがリストテーブルに変換されました。
リスト16へのドキュメント配列テーブル

転置テーブルのディメンションの詳細については、ここをクリックしてください。

最高のオフィス生産性向上ツール

人気の機能: 重複を検索、強調表示、または識別する   |  空白行を削除する   |  データを失わずに列またはセルを結合する   |   数式なしのラウンド ...
スーパールックアップ: 複数の基準の VLookup    複数の値の VLookup  |   複数のシートにわたる VLookup   |   ファジールックアップ ....
詳細ドロップダウン リスト: ドロップダウンリストを素早く作成する   |  依存関係のドロップダウン リスト   |  複数選択のドロップダウンリスト ....
列マネージャー: 特定の数の列を追加する  |  列の移動  |  Toggle 非表示列の表示ステータス  |  範囲と列の比較 ...
注目の機能: グリッドフォーカス   |  デザインビュー   |   ビッグフォーミュラバー    ワークブックとシートマネージャー   |  リソースライブラリ (自動テキスト)   |  日付ピッカー   |  ワークシートを組み合わせる   |  セルの暗号化/復号化    リストごとにメールを送信する   |  スーパーフィルター   |   特殊フィルター (太字/斜体/取り消し線をフィルター...) ...
上位 15 のツールセット12 テキスト 工具 (テキストを追加, 文字を削除する、...)   |   50+ チャート 種類 (ガントチャート、...)   |   40+ 実用的 (誕生日に基づいて年齢を計算する、...)   |   19 挿入 工具 (QRコードを挿入, パスから画像を挿入、...)   |   12 変換 工具 (数字から言葉へ, 通貨の換算、...)   |   7 マージ&スプリット 工具 (高度な結合行, 分割セル、...)   |   ... もっと

Kutools for Excel で Excel スキルを強化し、これまでにない効率を体験してください。 Kutools for Excelは、生産性を向上させ、時間を節約するための300以上の高度な機能を提供します。  最も必要な機能を入手するにはここをクリックしてください...

kteタブ201905


Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thank You, Great and fast help!
This comment was minimized by the moderator on the site
The VBA does not work. It only outputs two columns.
This comment was minimized by the moderator on the site
Thanks, the pivot table idea worked well,
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations