如何使用函数或正则表达式从单元格中删除所有数字？

Question

我的单元格看起来像这样,每行一个:

Duffy,约翰:'遗产:文明和犹太人' - 夸耀与合唱,交响舞蹈+管弦乐套房.伯恩斯坦,'在城里'舞蹈剧集.皇家菲尔/威廉姆斯

Lilien,Ignace 1897-1963:歌曲,1920-1935.钢琴,Anja van Wijk,mezzo和Frans van Ruth

欣德米特,Trauermusik.Purcell,'Fairy Queen'套房.罗西尼,弦乐奏鸣曲6.彼得罗夫,'创造世界'芭蕾舞套房.Bartok,Romanian Folkdances Sz 56. Tartini,长笛协奏曲G WAMaiorov Leningrad Orch.for古代与现代音乐/ Serov

Bizet,Verdi,Massenet,Puccini:来自Carmen的Arias,Rigoletto,Werther,Manon Lescaut,Tosca,Turandot + Lara的歌曲,Di Capua等.Peter Dvorsky,男高音w.Bratislava Orch./Lenard还表演'Carmen'Overt.&'Thais'Meditation.Rec.Live,八十七分之一十

Fantini,Rauch,C.Straus,Priuli,Bertali:'维也纳皇宫的节日弥撒,1648'约克郡巴赫合唱团和巴洛克独奏家+伦敦巴洛克黄铜/西摩

Vinci,Leonardo1690-1730:来自Semiramide Riconosciuta的咏叹调,Didone Abbandonata,La Caduta dei Decemviri,Lo Cecato Fauzo,La Festa de Bacco,Catone in Utica.Maria Angeles Peters sop.wMCarraro指挥

格鲁克,莫扎特,贝多芬,韦伯,威尔第,瓦格纳,庞奇利,马斯卡尼,普契尼:来自Alceste的Arias,Don Giovanni,Fidelio,Oberon,Ballo,Tristan,Walkure,Siegfried,Gotterdammerung,Gioconda,Cavalleria,Tosca.Helene Wildbrunn.Rec.1919-24

我想删除所有号码.我如何用公式做到这一点？或者只是搜索和替换正则表达式？

Answer 1

如何使用VBA ...

1. 打开Excel工作簿并粘贴您以这种方式提供的文本:

2. 让那些行被选中.

3. 按"ALT + F11"以打开Visual Basic编辑器.

4. 转到"插入"菜单并打开"模块".

5. 输入此功能:

   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
   

6. 单击绿色"播放"按钮以执行VBA脚本.

7. 返回工作表并查看结果(不再是数字):