Excelで1つのセルを複数のセルや行に変換するにはどうすればよいですか？
Excelで1つのセルに大量のデータがある場合、すべてのデータを表示するのは難しいことがあります。このような場合、そのセル内のすべてのデータを複数のセルや行に変換すると、下記のように長い内容をより簡単に、そして明確に表示できるようになります。Excelでは、以下の方法でこれを実現できます。
Excelで「テキストを列に分割」と「特殊貼り付け」を使用して1つのセルを複数のセルや行に変換する
Kutools for Excelを使用して1つのセルを複数の列や行に変換する
Excelで「テキストを列に分割」と「特殊貼り付け」を使用して1つのセルを複数のセルや行に変換する
1. 変換したいセルを選択し、次にクリックします データ > テキストを列に分割スクリーンショットをご覧ください：
2. 表示されるダイアログボックスで、「区切り文字」のチェックボックスをオンにして、次にクリックします 区切り文字 チェックボックスをオンにして、次にクリックします 次へスクリーンショットをご覧ください：
3. ダイアログボックスで「カンマ」のチェックボックスのみをオンにして、次にクリックします カンマ チェックボックスをオンにして、次にクリックします 完了スクリーンショットをご覧ください：
4. これで、セルのデータが複数の列に分割されたことが確認できます。次に、これらのセルを選択し、右クリックして「コピー」を選択します。 コピー コンテキストメニューからコピーします。スクリーンショットをご覧ください：
5. 空白のセルを選択し、右クリックして「転置（T）」を選択します。これで、データが複数の行に変換されます。スクリーンショットをご覧ください： 転置(T)スクリーンショットをご覧ください：
Microsoft Excel 2007を使用している場合は、 ホーム > 貼り付け > 転置 をクリックして分割したデータを貼り付けます。
結果は次のようになります：
Kutools for Excelを使用して1つのセルを複数の列や行に変換する
Kutools for Excel -- この便利なツールがインストールされている場合、その「セルの分割」機能を使用して、特定の区切り文字に基づいて単一のセルを複数の列や行に迅速に分割できます。
Kutools for Excelをインストール後、以下のように操作してください：
1. 分割したいセルを選択し、次にクリックします Kutools > 結合と分割 > セルの分割スクリーンショットをご覧ください：
2. 「セルの分割」ダイアログボックスで、「タイプ」セクションの「行に分割」オプションをチェックし、「区切り文字」セクションの「その他」オプションをチェックして、テキストボックスにセルを分割するための区切り文字を入力します。スクリーンショットをご覧ください：
3. クリックします OKすると、分割結果を出力するセルを選択するように促すダイアログが表示されます。
4. クリックします OKこれで、1つのセルが複数の行に変換されました。
ヒント: 特定の区切り文字に基づいて単一のセルを列に変換したい場合は、ダイアログボックスで「列に分割」オプションをチェックし、区切り文字を「その他」のテキストボックスに入力します。
VBAを使用して1つのセルを複数のセルや行に変換する
上記の方法が少し面倒だと感じる場合は、VBAを使用して処理を進めることができます。
1. ALTキーを押しながらキーボードのF11キーを押して、 Microsoft Visual Basic for Applicationsウィンドウを開きます。
2. 「挿入」>「モジュール」をクリックし、VBAコードをモジュールにコピーします。
VBA: 1つのセルを複数の行に変換する
Sub TransposeRange()
'Updateby20140312
Dim rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection.Range("A1")
Set InputRng = Application.InputBox("Range(single cell) :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Arr = VBA.Split(InputRng.Range("A1").Value, ",")
OutRng.Resize(UBound(Arr) - LBound(Arr) + 1).Value = Application.Transpose(Arr)
End Sub
3. クリックします 実行 VBAコードを実行すると、 KutoolsforExcel ダイアログが表示され、変換したい単一のセルを選択します。スクリーンショットをご覧ください：
4. クリックします OK別のポップアップダイアログで結果を出力するセルを選択します。スクリーンショットをご覧ください：
結果は次のようになります：
ヒント: 上記のVBAコードでは、データを分割するための区切り文字「,」を変更できます。このVBAは、改行文字に基づくセルの分割には対応していません。
関連記事：
最高のオフィス生産性ツール
| 🤖 | Kutools AI アシスタント: データ分析を革命化する: インテリジェント実行 | コード生成 | カスタム数式の作成 | データを分析しグラフを生成 | 拡張機能を呼び出す… |
| 人気の機能: 重複を見つけてハイライトまたはマーキング | 空白行を削除 | データを失わずに列またはセルを統合 | 丸める ... | |
| スーパーLOOKUP: 複数条件のVLookup | 複数値のVLookup | 複数シートの検索 | ファジーマッチ .... | |
| 高度なドロップダウンリスト: ドロップダウンリストを迅速に作成 | 依存ドロップダウンリスト | マルチセレクトドロップダウンリスト .... | |
| 列管理: 特定の数の列を追加 | 列を移動 | 非表示列の可視ステータスを切り替え | 範囲と列を比較 ... | |
| 注目の機能: グリッドフォーカス | デザインビュー | 強化された数式バー | ワークブック & ワークシート管理 | オートテキスト ライブラリ (Auto Text) | 日付ピッカー | データの統合 | セルの暗号化/復号化 | リストで電子メールを送信 | スーパーフィルター | 特殊フィルタ (太字/斜体/取り消し線をフィルタリング...) ... | |
| トップ15のツールセット: 12 のテキストツール (テキストの追加, 特定の文字を削除, ...) | 50以上 のグラフ の種類 (ガントチャート, ...) | 40以上の実用的な 数式 (誕生日に基づいて年齢を計算する, ...) | 19 の挿入ツール (QRコードの挿入, パスから画像を挿入, ...) | 12 の変換ツール (単語に変換する, 通貨変換, ...) | 7 の統合 & セルの分割ツール (高度な行のマージ, セルの分割, ...) | ...さらに多く |
Kutools for ExcelでExcelスキルを強化し、これまでにない効率を体験してください。 Kutools for Excelは、300以上の高度な機能を提供し、生産性を向上させ、保存時間を節約します。 最も必要な機能を入手するにはここをクリック...
Office TabはOfficeにタブインターフェイスをもたらし、作業を非常に簡単にします
- Word、Excel、PowerPoint、Publisher、Access、Visio、Projectでタブ付きの編集と読み取りを有効にします。
- 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
- 生産性を50%向上させ、毎日数百回のマウスクリックを減らします！