Excelで区切り文字で分割してセルを転置する方法は？

この記事では、以下のスクリーンショットに示すように、特定の区切り文字で範囲を分割し、Excelで転置する方法を紹介します。 このタスクに興味がある場合は、以下の詳細にアクセスしてください。

VBAで分割して転置する

Kutools forExcelで分割および転置

---

VBAで分割して転置する

特定の区切り文字でデータを分割して転置する直接的な方法はありませんが、この問題をすばやく解決するのに役立つVBAコードを紹介できます。

1。 押す Altキー+ F11 表示するキー アプリケーション向け Microsoft Visual Basic 窓。

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

VBA：分割と転置

Sub Vertical()
'UpdatebyExtendoffice20161125
    Dim i As Long, strTxt As String
    Dim startP As Range
    Dim xRg As Range, yRg As Range
    On Error Resume Next
    Set xRg = Application.InputBox _
    (Prompt:="Range Selection...", _
    Title:="Kutools For Excel", Type:=8)
    i = 1
    Application.ScreenUpdating = False
    For Each yRg In xRg
        If i = 1 Then
            strTxt = yRg.Text
            i = 2
        Else
            strTxt = strTxt & "," & yRg.Text
        End If
    Next
    Application.ScreenUpdating = True
    Set startP = Application.InputBox _
    (Prompt:="paste range...", _
    Title:="Kutools For Excel", Type:=8)
    ary = Split(strTxt, ",")
    i = 1
    Application.ScreenUpdating = False
    For Each a In ary
        startP(i, 1).Value = a
        i = i + 1
    Next a
    Application.ScreenUpdating = True
End Sub

3。 押す F5 コードを実行するためのキーを押すと、分割および転置する範囲を選択するためのダイアログが表示されます。

4。 クリック OK。 データを配置する場所を選択するためのダイアログが表示されます。

5。 クリック OK、および選択範囲が分割され、コンマで置き換えられています。

ご注意： コードでは、カンマは strTxt＆ "、" • ary = Split（strTxt、 "、"） データを分割する区切り文字です。必要に応じて変更できます。

---

Kutools forExcelで分割および転置

連絡先 Kutools for Excel、あなたはそのを適用することができます 分割セル 最初に区切り文字でセルを分割し、次に 変換範囲 セルをXNUMXつの列に変換するユーティリティ。

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

1.分割するセルを選択し、をクリックします クツール > マージ＆スプリット > 分割セル。 スクリーンショットを参照してください：

2。 の中に 分割セル ダイアログ、チェック 列に分割 オプションをクリックし、分割する区切り文字を指定して、をクリックします。 Ok。 そして、空白のセルを選択して、結果をXNUMX番目に配置します 分割セル ダイアログ。 スクリーンショットを参照してください：

3。 クリック OK、セルが列に分割されている場合は、 クツール > レンジ > 変換範囲。 スクリーンショットを参照してください：

4。 の中に 変換範囲 ダイアログ、チェック 単一列までの範囲、クリック Ok、セルを選択して結果を配置します。 スクリーンショットを参照してください：

5。 クリック OK、これで範囲がXNUMXつの列に置き換えられました。

ヒント。 の無料トライアルをご希望の場合 分割セル • 変換範囲 機能、 無料でKutoolsforExcelをお試しください まず、上記の手順に従って操作を適用します。