Excel 2013 - 異なる位置から、異なる記号や文字に先行する数字のみを削除する方法

Question

Excel 2013 で行から数字を削除するために使用できる数式はありますか?

文字と記号だけ残したい。

数式は、すべての数字の前にスペースがあっても、どの位置でも出現する可能性がある数字に対して機能する必要があります。

これらは異なる一連の数字であり、その一部には前にコンマまたは名前だけが付いているため、検索と置換は機能しません。

開始スプレッドシート:

• ベイリーズ、グレンコーロード23番地
• 気楽なデータNo.4キャビン
• ダンダスビレッジ、222 シークレットガーデン
• 88 バイロン クレセント、ヴェローナ

私が欲しいもの：

• ベイリーズ、グレンコーロード
• 気楽、データなしキャビン
• ダンダスビレッジ、シークレットガーデン
• バイロン クレセント、ヴェローナ

Answer 1

最も速くて使いやすい方法である VBA マクロをお勧めします。

Function ExtractTextOnly(pWorkRng As Range) As String

Dim xValue As String
Dim OutValue As String

xValue = pWorkRng.Value

For xIndex = 1 To VBA.Len(xValue)
    If Not VBA.IsNumeric(VBA.Mid(xValue, xIndex, 1)) Then
        OutValue = OutValue & VBA.Mid(xValue, xIndex, 1)
    End If
Next
ExtractTextOnly = OutValue

End Function

使い方：

1. VBエディタを開くには、Alt+F11または右クリックシートのタブを押してコードを表示。
2. クリック入れる選択してモジュール。
3. ペーストこのコードをまオデュルと近いVB エディター。

注意

忘れないでくださいスワークブックをマクロが有効なブック。

---

---

1. セル内の数式M52（下方向に記入）:

=ExtractTextOnly(L52)

必要に応じて数式内のセル参照を調整します。