从excel单元格中删除特定关键字后的数据

时间:2014-07-25 12:05:17

标签: vba excel-vba excel-formula excel

我的excel单元格中有一些数据,如

" 35 xxxxxx,yyyy,zzzzz 1AA 请致电01234 567899 xxxxxxxxxxxxx_highlighting 01234 567899免费end_of_the_skype_highlighting联系代理理想地位于bla bla bla bla bla的中心,他们......更多"

我想删除致电01234 567899 后出现的所有数据。这里的数字不固定。电话号码x对每个小区都有变化 如何删除所有数据

由于 Narasappa。

1 个答案:

答案 0 :(得分:1)

您可能必须依赖正则表达式库或编写使用Instr查找调用的函数,将左侧的所有内容追加到临时字符串,然后迭代该系列数字。接下来,一旦你读过那些系列 - 从那时起使用原始字符串上的mid函数,基本上跳过sub,“call”字符串。它可能会变得很麻烦,而且可能容易出错。

我的建议是使用正则表达式,因为以下内容应该有效:

sString = "35 xxxxxx, yyyy, zzzzz 1AA Call 01234 567899 xxxxxxxxxxxxx_highlighting 01234 567899 FREE end_of_the_skype_highlighting Contact agent Ideally located in the centre of bla bla bla bla bla, they ... more"
    Set regEx = CreateObject("VBScript.RegExp")
    regEx.Pattern = "Call\s\d+\s\d+"
    msgbox regEx.Replace(sString, "")