正则表达式求单元格公式所引用工作表名的困惑

luqiwe

正则表达式求工作表名.rar (11.23 KB, 下载次数: 15)

2012-1-7 09:28 上传

点击文件名下载附件

假设单元格A1=SUMIF(销售!$C$6:$C$60,"出口",销售!$AN$6:$AN$60)*基础数据表!$D$91,用以下代码:
sub 检测源工作表名()
dim mystr,s1
mystr="=SUMIF(销售!$C$6:$C$60,'出口',销售!$AN$6:$AN$60)*基础数据表!$D$91"
For i = 0 To UBound(Split(mystr, "!"))
s1 = Split(mystr, "!")(i)
With CreateObject("VBSCRIPT.REGEXP")
    .Global = True
    .Pattern = "[^\u4e00-\u9fa5]"
     s1 = .Replace(s1, "")
End With
debug.print  s1
next
end sub
会发现上面正则表达式会出现结果
"销售
出口销售
基础数据表"
由于包含"出口销售"汉字,分离不出销售\基础数据表来.
想问大侠们上述正则表达式该如何改写,谢谢

wudixin96

你想做提提取汉字，还是？

wudixin96

1. Sub 检测源工作表名()
   
2. 
   
3. Dim mystr, s1
   
4. 
   
5. mystr = "=SUMIF(销售!$C$6:$C$60,'出口',销售!$AN$6:$AN$60)*基础数据表!$D$91"
   
6. 
   
7. 
   
8. 
   
9. With CreateObject("VBSCRIPT.REGEXP")
   
10.     .Global = True
    
11.     .Pattern = "[\u4e00-\u9fa5]+(?=!)"
    
12.     For Each ma In .Execute(mystr)
    
13.        Debug.Print ma
    
14.     Next
    
15. 
    
16. End With
    
17. 
    
18. End Sub
    

复制代码

luqiwe

谢谢wudixin96 大侠,正是我想要的,我想知道+(?=!)的含义是什么,+是指多次出现汉字,可(?=1)不明白.

luqiwe

wudixin96 发表于 2012-1-7 10:10

如果我想把找到符合正则表达式要求的工作表名称前加上'd:/[book1.xls]',replace 方法中又该如何用,谢谢!

wudixin96

1. Dim mystr, s1
   
2. mystr = "=SUMIF(销售!$C$6:$C$60,'出口',销售!$AN$6:$AN$60)*基础数据表!$D$91"
   
3. With CreateObject("VBSCRIPT.REGEXP")
   
4.     .Global = True
   
5.     .Pattern = "([\u4e00-\u9fa5]+)(?=!)"
   
6.     mystr = .Replace(mystr, "'d:/[book1.xls]'$1")
   
7. End With
   
8. Debug.Print mystr

复制代码

这样？？？

luqiwe

wudixin96 发表于 2012-1-7 14:01
这样？？？

再次谢谢wudixin96,真是太牛了,正则表达式方面的名师啊,我不清楚$1是什么含义,能否再次指教.另外我想把公式
=SUMIF(销售!$C$6:$C$60,'出口',销售!$AN$6:$AN$60)*基础数据表!$D$91 改成
=SUMIF('e:/[book1.xls]销售'!$C$6:$C$60,'出口','e:/[book1.xls]销售'!$AN$6:$AN$60)*'e:/[book1.xls]基础数据表'!$D$91
又该如何改.6楼给出的答案为:
=SUMIF('e:/[book1.xls]'销售!$C$6:$C$60,'出口','e:/[book1.xls]'销售!$AN$6:$AN$60)*'e:/[book1.xls]'基础数据表!$D$91
不符合excel公式外部引用的格式要求.即要求公式右边的单引号加在"!"前,而不是在[book1.xls]后面.

luqiwe

摸仿了一下WUdixin96大师的思路,以下正则表达式好象可以,但不明白$1的含义.
Sub rqm()
Dim mystr, s1
mystr = "=SUMIF(销售!$C$6:$C$60,'出口',销售!$AN$6:$AN$60)*基础数据表!$D$91"
With CreateObject("VBSCRIPT.REGEXP")
    .Global = True
    .Pattern = "([\u4e00-\u9fa5]+)(?=!)"
    mystr = .Replace(mystr, "'d:/[book1.xls]$1'")
End With
Debug.Print mystr
End Sub

wudixin96

$1就是代表被捕获到的汉字，你看，在汉字外有一对括号，就表示捕获组，如果有多个，就代表多个捕获。