Excel 2013 - 如何只刪除不同位置且前方有不同符號、字母的數字

Question

Excel 2013 上是否有可用於刪除行中數字的公式？

我只想留下字母和符號。

該公式需要適用於可以出現在任何位置的數字，儘管所有數字前面都有空格。

尋找和替換將不起作用，因為它們是不同系列的數字，其中一些數字前面有逗號或只有名稱。

開始電子表格：

• 貝萊斯 (Baleys)，格倫科路 23 號
• 無憂無慮，數據4號小屋
• 登打士村秘密花園 222 號
• 88 拜倫新月, 維羅納

我想要的是：

• 貝萊斯 (Baleys)，格倫科路
• 無憂無慮，數據無艙
• 登打士村、秘密花園
• 拜倫新月街, 維羅納

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或者右鍵點擊然後點選工作表 TAB檢視程式碼。
2. 點選插入並選擇模組。
3. 貼上這段程式碼進入中號奧杜勒和關閉VB 編輯器。

注意

別忘了S將工作簿儲存為啟用巨集的工作簿。

---

---

1. 單元格中的公式M52（填寫）：

=ExtractTextOnly(L52)

根據需要調整公式中的儲存格引用。