我的单元格如下所示，每行一个：
约翰·达菲：《遗产：文明与犹太人》- 号角曲和合唱曲、交响舞曲+管弦乐组曲。伯恩斯坦，《镇上》舞蹈片段。皇家爱乐乐团/R.威廉姆斯
莉莲·伊格纳斯 1897-1963： 歌曲，1920-1935。安雅·范·韦克 (Anja van Wijk) 弗兰斯·范鲁斯，钢琴
欣德米特，创伤音乐。珀塞尔《仙女》 大号床套房。罗西尼，第六弦乐奏鸣曲。 彼得罗夫芭蕾舞剧《创造世界》 套房。罗马尼亚民间舞蹈《巴托克》Sz 56. 塔蒂尼，G w.A.Maiorov 列宁格勒管弦乐团古代长笛协奏曲 与现代音乐/谢罗夫
比才、威尔第、马斯奈、普契尼：咏叹调 选自《卡门》、《弄臣》、《维特》、《玛侬》 莱斯科、托斯卡、图兰朵 + 歌曲 拉拉、迪卡普阿等人。彼得 布拉迪斯拉发男高音德沃尔斯基 Orch./Lenard 也表演《卡门》 公开的&“泰国式”冥想。 录制现场，10/87
范蒂尼、劳赫、C.斯特劳斯、普留利、贝尔塔利： '宫廷节日弥撒 维也纳，1648' 约克郡巴赫合唱团 & 巴洛克独奏家 + 巴洛克铜管乐 伦敦/西摩
列奥纳多·芬奇 1690-1730：咏叹调 塞米酰胺 Riconosciuta，迪酮 《阿班多纳塔》《十二人的卡杜塔》《洛》 切卡托·福佐、巴科节、卡托内 在尤蒂卡。玛丽亚·安吉利斯·彼得斯 sop。 卡拉罗指挥
格鲁克、莫扎特、贝多芬、韦伯、威尔第、瓦格纳、庞基利、马斯卡尼、普契尼： 阿尔塞斯特的咏叹调，唐 乔瓦尼、费德里奥、奥布朗、巴洛、特里斯坦、瓦尔库尔、齐格弗里德、诸神黄昏、乔康达、卡瓦莱里亚、托斯卡。 海伦·维尔德布伦。建议 1919-24
我想删除所有号码。我如何用公式做到这一点？或者也许只是搜索并用正则表达式替换？
如何使用 VBA 做到这一点...
Open an Excel workbook and paste the text you provided this way:
让这些行被选中。
按“ALT+F11”打开 Visual Basic 编辑器。
转到插入菜单并打开一个模块。
输入这个函数：
Sub clear()
s = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9")
For Each r In Selection
v = r.Value
For i = 0 To 9
v = Replace(v, s(i), "")
Next
r.Value = v
Next
End Sub
Click the green Play button to execute the VBA script.
Get back to the sheet and see the result (no more digits):
