Excel で英数字以外の文字を削除する方法 (2 つの方法)

今日、この記事では、Excel のセルから英数字以外の文字を削除する方法を紹介します。特に生データを扱っている場合、これは非常に一般的な問題です。数字、テキスト、英数字以外の文字がセルに混在しているため、これらのテキストと数字を分離する必要がある場合があります。 VBA プログラミング コードを使用して Excel のセルから英数字以外の文字を削除する数式は多数あります ユーザー定義関数。 この課題でそれらを学びます。

この練習帳をダウンロードして、この記事を読みながらタスクを実行してください。

Excel で英数字以外の文字を削除する 2 つの適切な方法

分析する生のデータセットを受け取ったときに、数字とテキストが 1 つの列に英数字以外の文字と混在していることがわかった状況を想像してみてください。便利に作業するには、文字列からそれらを削除する必要があります。 VBA コードを実行するか、ユーザー定義関数を適用すると、この問題に役立ちます。このセクションでは、その作業を行うための適切な方法を示します。

1. VBA コードを実行して英数字以外の文字を削除する

VBA を使用できます Excel のセルから英数字以外の文字を削除するマクロ コード。この方法を以下に示します。

ステップ 1:

• まず、Microsoft Visual Basic for Applications ウィンドウを開きます。 これを行うには、Alt+11 を押します。

• 新しいウィンドウが開きます。 [挿入] をクリックします。 モジュールを選択します 新しいモジュールを開く

ステップ 2:

• 新しく開いたモジュールで、VBA コードを挿入して英数字以外の文字を削除します。私たちはあなたのためにコードを提供しました。このコードをコピーして、ワークシートで使用できます。コードは、

Sub VBA_to_remove()
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "Non-alphanumeric text remove"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
            xOut = ""
            For i = 1 To Len(Rng.Value)
            xTemp = Mid(Rng.Value, i, 1)
                If xTemp Like "[a-z.]" Or xTemp Like "[A-Z.]" Or xTemp Like "[0-9.]" Then
            xStr = xTemp
            Else
            xStr = ""
            End If
            xOut = xOut & xStr
            Next i
            Rng.Value = xOut
Next
End Sub

• F5 を押してコードを実行します .範囲を選択して [OK ] をクリックします。 操作を終了します。

• これらの英数字以外の文字をセルから正常に削除しました。

続きを読む: Excel のセルから数字以外の文字を削除する方法

類似の読み方:

• Excel で空白文字を削除する方法 (5 つの方法)
• Excel で特定の文字を削除する (5 つの方法)
• Excel で印刷できない文字を削除する方法 (4 つの簡単な方法)
• Excel で一重引用符を削除する (6 つの方法)
• Excel でアポストロフィを削除する方法 (5 つの簡単な方法)

2.ユーザー定義関数を適用して英数字以外の文字を削除する

Excel には、セルから英数字以外の文字を削除する明確な機能がないため、作成できます。そうです、自分の仕事をするために独自のカスタム関数を定義できます。そのためには、VBA コードを記述する必要があります。以下の手順を使用して、このプロセスについて説明します。カスタムメイド機能の詳細については、ここをクリック!

ステップ 1:

• まず、Microsoft にアクセスします Visual Basic for Applications ウィンドウ Alt+F11 を押す .

• UFD のコードを書き留めます。関数に RemoveNonNlphaNumeric という名前を付けました .この関数を作成するコードは、

Function RemoveNonAlphaNumeric(xStr As String) As String
Dim xStrR As String
Dim xCh As String
Dim xStrMode As String
Dim xInt As Integer
            xStrMode = "[A-Z.a-z 0-9]"
            xStrR = ""
            For xInt = 1 To Len(xStr)
            xCh = Mid(xStr, xInt, 1)
            If xCh Like xStrMode Then
            xStrR = xStrR & xCh
            End If
            Next
            RemoveNonAlphaNumeric = xStrR
End Function

ステップ 2:

• 私たちのコードは書かれています。ワークシートに戻り、関数 =RemoveNonAlphaNumeric を入力します .関数が作成されていることがわかります。

• セル C4 に関数を適用します .機能は、

=RemoveNonAlphaNumeric(B4)

• ENTER を押します 結果を取得します。

• カスタムメイドの機能は正常に動作しています。この関数を残りのセルに適用して、最終結果を取得します。

続きを読む: Excel で文字を削除する方法 (6 つの方法)

覚えておくべきこと

👉 カスタム数式の作成には、通常の VBA マクロよりも多くの制限があります。ワークシートまたはセルの構造または形式を変更することはできません。

👉 開発者タブが表示されていない場合は、この手順に従ってアクティブ化できます。

カスタマイズされたクイック アクセス ツールバー → その他のコマンド → リボンのカスタマイズ → 開発者 → OK

結論

このガイドでは、2 つの異なるアプローチについて説明しました。ご質問やご不明な点がございましたら、コメントいただければ幸いです。コメント欄にフィードバックを残してください。エクセルデミーをご覧いただきありがとうございます。学び続けましょう!

関連記事

• Excel で右から文字を削除する (5 つの方法)
• Excel で最後の文字を削除する方法 (最も簡単な 6 つの方法)
• Excel で電話番号からダッシュを削除する (4 つの方法)
• Excel で最初の文字を削除する方法 (6 つの方法)
• Excel で左から文字を削除する方法 (6 つの方法)