如何使用VBS替换EXCEL中的文字

看你提供的部分代码是想用VBS的正则表达式，来完成你的要求，但我不清楚你的EXCELL样表的形式是什么样的，你如果希望问题能得到大家的帮助，最好把样表的初始和你需要的结果一并发上来看看！这样大家回答你的问题效果能好些！（你的问题是需要VBS,还是vba实现呢？）

自己写给函数

static string newReplace(string s,params char[] c)

{

if (cLength % 2 != 0)

{

throw new ArgumentException("参数应成对出现", "char[] c");

return null;

}

StringBuilder sb = new StringBuilder(s);

int index=0;

for (int i = 0; i < cLength; i=i+2)

{

sbReplace(c[i], c[i + 1]);

}

return sbToString();

}

需要的参数就这些了。自己搜搜下面参数使用方法，你完全可以自己做到

Readall

如果有空行须要 Readline 、AtEndOfStream 逐行读包括空行

Len

Mid

Instr

Replace

writeline

懒呀！不乐活动，自己去写吧。