Excelで英数字の文字列を2つの列に分割／分離するにはどうすればよいですか？

英数字の文字列を2つの列（1つは数字用、もう1つは文字用）に分けることは、データ管理に役立ちます。この記事では、これらの文字列を個別の列に分割するための便利な方法をご紹介します。

ユーザー定義関数を使用して英数字の文字列を2つの列に分割／分離する

Kutools for Excelを使用して英数字の文字列を2つの列に分割／分離する

ユーザー定義関数を使用して英数字の文字列を2つの列に分割／分離する

例えば、次のスクリーンショットに示すように、英数字の文字列の範囲を2つの列に分割したいとします：

ここで、このタスクを解決するためにユーザー定義関数を作成できます。以下の手順に従ってください：

1. ALT + F11キーを押したままにし、Microsoft Visual Basic for Applicationsウィンドウを開きます。

2. 「挿入」> 「モジュール」をクリックし、モジュールウィンドウに次のコードを貼り付けます。

VBAコード：英数字の文字列を2つの列に分離する：

Function RetNum(Str As String)
'updateby Extendoffice
    Dim xRegEx As Object
    Set xRegEx = CreateObject("vbscript.regexp")
    xRegEx.Global = True
    xRegEx.Pattern = "[^\d]+"
    RetNum = xRegEx.Replace(Str, "")
    Set xRegEx = Nothing
End Function
Function RetNonNum(Str As String)
    Dim xRegEx As Object
    Set xRegEx = CreateObject("vbscript.regexp")
    xRegEx.Global = True
    xRegEx.Pattern = "[\d]+"
    RetNonNum = xRegEx.Replace(Str, "")
    Set xRegEx = Nothing
End Function

3. コードを保存して閉じた後、ワークシートに戻り、この数式 =retnonnum(A2) を空白のセルに入力します。塗りつぶしハンドルを下にドラッグして他のセルにも数式を適用すると、参照列からすべてのアルファベット文字が抽出されます。スクリーンショットをご覧ください：

4. 次に、この数式: =retnum(A2) を別の空白のセルに入力し、塗りつぶしハンドルをその数式を含むセルまでドラッグすると、すべての数字が以下のスクリーンショットのように返されます：

Kutools for Excelを使用して英数字の文字列を2つの列に分割／分離する

Kutools for Excelを持っている場合、その「セルの分割」機能を使用して、英数字の文字列を迅速に分離された列に分割できます。

Kutools for Excelをインストールした後、以下の手順に従ってください：

1. 分離したい英数字の文字列を選択します。

2. 「Kutools」>「結合＆分割」>「セルの分割」をクリックします。スクリーンショットをご覧ください：

3. 「セルの分割」ダイアログボックスで、「タイプ」セクションの「列に分割」を選択し、次に「分割方法」セクションの「テキストと数字」を選択します。スクリーンショットをご覧ください：

4. その後、「OK」ボタンをクリックすると、分離された結果を配置するセルを選択するよう促すポップアップが表示されます。スクリーンショットをご覧ください：

5. そして「OK」をクリックすると、アルファベット文字と数字がすぐに2つの列に分離されます。スクリーンショットをご覧ください：

デモ： Kutools for Excelを使用して英数字の文字列を2つの列に分割／分離する