ヒント:他の言語はGoogle翻訳されています。 訪問することができます English このリンクのバージョン。
ログイン
x
or
x
x
LPI ID 登録
x

or

Excelでセルの値を垂直に分割する方法

Excelでは、 テキストから列へ セルの値を水平方向に複数の列に分割する機能がありますが、セルの内容を垂直方向に複数の行に分割するのには役立ちません。 そして、この記事では、Excelでセルの値を特定の区切り記号で縦に分割する簡単な方法について説明します。

セルの値をVBAコードでセパレータで垂直方向に分割

Kutools for Excelを使用してセパレータで垂直方向にセルの値を分割する


セルの値をVBAコードでセパレータで垂直方向に分割


次のVBAコードは、任意のセパレータでセルの値を垂直に行に分割するのに役立ちます。次のようにしてください。

1。 押さえつける Alt + F11 キーを押して アプリケーション用Microsoft Visual Basic 窓。

2. ナビゲーションヘッダーの インセット > モジュール、次のコードを モジュール 窓。

VBAコード:セルの値を特定のセパレータで縦方向に分割

Sub splitvertically()
'updatebyExtendoffice 20160303
    Dim xRg As Range
    Dim xOutRg As Range
    Dim xCell As Range
    Dim xTxt As String
    Dim xStr As String
    Dim xOutArr As Variant
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xOutRg = Application.InputBox("please select output cell:", "Kutools for Excel", , , , , , 8)
    If xOutRg Is Nothing Then Exit Sub
    For Each xCell In xRg
        If xStr = "" Then
            xStr = xCell.Value
        Else
            xStr = xStr & ";" & xCell.Value
        End If
    Next
    xOutArr = VBA.Split(xStr, ";")
    xOutRg.Range("A1").Resize(UBound(xOutArr) + 1, 1) = Application.WorksheetFunction.Transpose(xOutArr)
End Sub

3。 次に、 F5 キーを押してこのコードを実行すると、垂直に分割したいセルの値を選択するよう促すメッセージボックスが表示されます。スクリーンショットを参照してください:

ドキュメントを縦に分割1

4。 そして、 OK ボタンを押すと、別のボックスが表示され、セルを選択して結果を表示することを思い出させます。スクリーンショットを参照してください:

ドキュメントを縦に分割2

5に設定します。 OK をクリックします。 OK ボタンを押してセルの値を区切り記号でリストに分割します。スクリーンショットを参照してください:

ドキュメントを縦に分割3

:上記のコードでは、セミコロン ; あなたが必要とする他の区切り文字に変換します。


Kutools for Excelを使用してセパレータで垂直方向にセルの値を分割する

Kutools for Excelさん セルを分割する 機能は強力なユーティリティであり、必要に応じてセルの値を任意の区切り文字で複数の列または行に分割するのに役立ちます。

Kutools for Excel : 300便利なExcelアドイン以上で、60日以内に自由に試してみてください.

インストールした後 Kutools for Excel次のようにしてください:

1。 特定の区切り文字で行に分割するセルを選択します。

2。 次に、をクリックします クツール > テキスト > セルを分割する、スクリーンショットを見る:

ドキュメントを縦に分割4

3。 の中に セルを分割する ダイアログボックスで 行に分割タイプ セクションを開き、 その他 から 分割する セクションに移動し、セル値を分割するセパレータを入力します。スクリーンショットを参照してください:

ドキュメントを縦に分割5

4。 そして、 Ok ボタンを押して、ポップアウトボックスで、結果を出力するセルを選択します。スクリーンショットを参照してください:

ドキュメントを縦に分割6

5。 をクリックします OK ボタンを押すと、セルの値は次のスクリーンショットのように特定のセパレータに基づいて行に分割されます。

ドキュメントを縦に分割7

Excel用のKutoolsを今すぐダウンロードして無料でダウンロードできます!


デモ:Kutools for Excelを使用してセパレータでセルの値を垂直方向に分割

Kutools for Excel200便利なExcelアドイン以上で、60日に制限なく試してみることができます。 今すぐダウンロードして無料トライアル!


Kutools for Excelは、ほとんどの問題を解決し、生産性を80%向上させます

  • 再利用: すばやく挿入 複雑な数式、チャート そして、以前に使用したもの; セルを暗号化する パスワード付き メーリングリストの作成 そしてメールを送る...
  • スーパーフォーミュラバー (複数行のテキストや数式を簡単に編集する) レイアウトを読む (多数のセルを簡単に読んで編集できます)。 フィルター範囲に貼り付ける...
  • セル/行/列を結合 データを失うことなく; セルコンテンツの分割。 重複する行/列を結合する...重複セルの防止。 範囲の比較...
  • 重複または一意を選択します空白行を選択 (すべてのセルは空です)。 スーパー検索とファジー検索 多くのワークブックで。 ランダム選択
  • 完全コピー 式の参照を変更せずに複数のセル。 参照を自動作成 複数のシートに 箇条書きを挿入、チェックボックスなど
  • テキストを抽出、テキストの追加、位置による削除、 スペースを削除する; ページング小計の作成と印刷 セルのコンテンツとコメント間の変換...
  • スーパーフィルター (保存して他のシートにフィルタ方式を適用する)。 高度な並べ替え 月/週/日、頻度などによる。 特殊フィルター 太字、斜体で...
  • ワークブックとワークシートを組み合わせる; キー列に基づいて表をマージします。 データを複数のシートに分割する; xls、xlsx、およびPDFのバッチ変換...
  • 300を超える強力な機能。 Office / Excel 2007-2019および365をサポートします。 すべての言語をサポートします。 企業または組織に簡単に展開できます。 フル機能の30日間の無料トライアル。
KTEタブ201905

OfficeタブはOfficeにタブ付きインターフェイスを提供し、作業をより簡単にします

  • Word、Excel、PowerPointでタブ付き編集と読み取りを有効にする、出版社、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を50%向上させ、毎日数百回のマウスクリックを削減します。
オフィシタブ底
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.