Excel 2013 - 如何删除仅来自不同位置且前面带有不同符号、字母的数字

Question

Excel 2013 中是否有任何公式可用于从行中删除数字？

我只想留下字母和符号。

该公式需要适用于可能出现在任意位置的数字，尽管所有数字前面都有一个空格。

查找和替换将不起作用，因为它们是不同的一系列数字，并且其中一些数字前面有逗号或只是一个名称。

开始电子表格：

• Baleys，23 Glencoe Road
• 无忧无虑，数据4号舱
• 邓达斯村，秘密花园 222 号
• 88 Byron Crescent, 维罗纳

我想要的是：

• 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或者右键点击然后点击 Sheet TAB查看代码。
2. 点击插入并选择模块。
3. 粘贴此代码米模块和关闭VB 编辑器。

注意：

别忘了年代将工作簿用作启用宏的工作簿。

---

---

1. 单元格中的公式M52（向下填充）：

=ExtractTextOnly(L52)

根据需要调整公式中的单元格引用。