Excelセルでテキストと数字を削除 /分割する方法

このチュートリアルでは、Excelセル内のテキストと数値を分離するためのいくつかの方法を示しており、組み込み関数とカスタムVBA関数の両方を利用しています。テキストを削除しながら数値を抽出し、数値を破棄しながらテキストを分離し、最後にデータを2つの異なる列に分割する方法を学びます。

データには、テキストと数字が混ざり合っている列があるとしましょう。一貫したデータの場合、 LEFT 、 RIGHT 、 MIDなどの単純な関数で十分です。ただし、実際のデータは一貫性がなく、テキスト内、またはテキスト内に数字が表示されます。以下のソリューションは、この複雑さに対処します。

数字を維持するためにテキストを削除する（Excel 365、2021、2019）：

Microsoft Excel 2019は、このタスクを簡素化するTEXTJOIN関数を導入しました。以下の式は、 TEXTJOIN 、 MID 、 ROW 、 INDIRECT 、 SEQUENCE 、およびIFERRORを活用して、これを達成します。

Excel 365と2021の場合：

=TEXTJOIN("",TRUE,IFERROR(MID(A2,SEQUENCE(LEN(A2)),1)*1,""))

Excel 365-2019：

=TEXTJOIN("",TRUE,IFERROR(MID(A2,ROW(INDIRECT("1:"&LEN(A2))),1)*1,""))

（Excel 2019では、アレイ式エントリ用にCtrlシフトを入力する必要があります。動的配列Excelでは、単純な入力が十分です。）

この式は各文字を繰り返し、1を掛けて数値を変換します。非数字の文字はエラーになり、空の文字列を残すためにIFERRORによって処理されます。次に、 TEXTJOIN残りの数値を連結します。

カスタムVBA関数（すべてのExcelバージョン）：

古いExcelバージョンまたはよりシンプルなアプローチの場合、カスタムVBA関数は合理化されたソリューションを提供します。 2つのバージョンが提供されています。

VBAコード1（文字ごと）：

関数removetext（文字列としてのstr）
  文字列としての薄暗いsres
  sres = ""
  i = 1 to len（str）
    is -numeric（mid（str、i、1））の場合、sres = sres＆mid（str、i、1）
  次の私
  removetext = sres
エンド関数

VBAコード2（正規表現）：

文字列としての関数removetext（str as string）
  createObject（ "vbscript.regexp"）
    .global = true
    .pattern = "[^0-9]"
    removetext = .replace（str、 ""）
  で終わります
エンド関数

これらの関数を=RemoveText(A2)で使用します。コード2（正規表現を使用）は通常、大規模なデータセットでより良いパフォーマンスを発揮します。

テキストを維持するために数値を削除する（Excel 365、2021、2019）：

同様の式は、数値を削除しながらテキストを抽出できます。繰り返しますが、 TEXTJOIN 、 MID 、 ROW 、 INDIRECT 、 SEQUENCE 、 IFERROR 、およびISERRORを使用してください。

Excel 365と2021の場合：

=TRIM(TEXTJOIN("",TRUE,IF(ISERROR(MID(A2,SEQUENCE(LEN(A2)),1)*1),MID(A2,SEQUENCE(LEN(A2)),1),"")))

Excel 365-2019：

=TRIM(TEXTJOIN("",TRUE,IF(ISERROR(MID(A2,ROW(INDIRECT("1:"&LEN(A2))),1)*1),MID(A2,ROW(INDIRECT("1:"&LEN(A2))),1),"")))

TRIM関数は、先頭/トレーリングスペースを削除します。

数値を削除するためのカスタムVBA関数（すべてのExcelバージョン）：

以前のVBA関数と同様に、数値を削除してテキストを維持する2つのバージョンを次に示します。

VBAコード1（文字ごと）：

関数removenumbers（文字列としてのstr）
  文字列としての薄暗いsres
  sres = ""
  i = 1 to len（str）
    is -numeric（mid（str、i、1））ではない場合はsres = sres＆mid（str、i、1）
  次の私
  removenumbers = sres
エンド関数

VBAコード2（正規表現）：

文字列としての関数removenumbers（文字列としてのstr）
  createObject（ "vbscript.regexp"）
    .global = true
    .pattern = "[0-9]"
    removenumbers = .replace（str、 ""）
  で終わります
エンド関数

これらを=TRIM(RemoveNumbers(A2))で使用します。

テキストと番号を別々の列に分割します。

単一のカスタムVBA関数は、テキストと数字の両方の抽出の両方を処理できます。

VBAコード1（文字ごと）：

関数splittextnumbers（string、is_remove_textとしてbooleanとして）sprittextnumbers
  薄暗いスナム、stext、stringとしてのschar
  snum = stext = ""
  i = 1 to len（str）
    schar = mid（str、i、1）
    is -numeric（schar）の場合、snum = snum＆schar else stext = stext＆schar
  次の私
  is_remove_textの場合、SplittextNumbers = snum else splittextnumbers = stext
エンド関数

VBAコード2（正規表現）：

関数splittextnumbers（string、is_remove_textとしてbooleanとして）sprittextnumbers
  createObject（ "vbscript.regexp"）
    .global = true
    is_remove_text then .pattern = "[^0-9]" else .pattern = "[0-9]"
    splittextnumbers = .replace（str、 ""）
  で終わります
エンド関数

use =SplitTextNumbers(A2,TRUE)を維持するには、 =TRIM(SplitTextNumbers(A2,FALSE))保持してテキストを保持します。

特殊なツールの使用：

より視覚的でユーザーフレンドリーなアプローチを希望する場合は、キャラクター削除のために専用のExcelアドインを使用することを検討してください。このチュートリアルでは、「削除文字」機能を備えた「究極のスイート」アドインについて言及しています。

この包括的なガイドは、さまざまなExcelバージョンとユーザーの好みに応える複数のソリューションを提供します。特定のデータに必要に応じて、セル参照を調整することを忘れないでください。

以上がExcelセルでテキストと数字を削除 /分割する方法の詳細内容です。詳細については、PHP 中国語 Web サイトの他の関連記事を参照してください。