一个条件替换问题，拜谢！

lanshanyuno1

有近四万行数据，结构如下：（X代表文字或空格）

XXX*XXX; XXX; ...(省略不确定个) XXX; XXX*XXX; XXX; XXX; ...(XXX*XXX到下一个*符之前的分号为一组，每一行有不确定个这样的组)
现在想把所有星号之前的第一个分号替换成一个别的符号（比如附件中的“/”），其余分号不变，不知道哪位高人能批量实现四万行数据的替换？

DataSample.rar (7 KB, 下载次数: 35)

2011-4-22 21:41 上传

点击文件名下载附件

多谢了！

gangone

没有装2010

honggexjq

1. Sub my_test()
   
2. Dim darr, i&
   
3. darr = Range("a1").CurrentRegion
   
4. With CreateObject("vbscript.regexp")
   
5.     .Global = True
   
6.     .Pattern = ";(?=[^;]*?\*)"
   
7.     For i = 1 To UBound(darr)
   
8.         darr(i, 1) = .Replace(darr(i, 1), "/")
   
9.     Next
   
10. End With
    
11. [a1].Resize(i - 1) = darr
    
12. End Sub

复制代码

lanshanyuno1

拜谢！真是神人啊！！

头

原帖由 honggexjq 于 2011-4-23 10:53 发表
Sub my_test()
Dim darr, i&
darr = Range("a1").CurrentRegion
With CreateObject("vbscript.regexp")
    .Global = True
    .Pattern = ";(?=[^;]*?\*)"
    For i = 1 To UBound(darr)
        darr(i,  ...