请教excel表格中求反集

qwe12369

表格中显示如：17-39-40-26-85，
请教怎样设置函数自动求出对应反集，
如：02345689-01245678-12356789-01345789-01234679
请大神教教我，不胜感激！
       

蓝桥玄霜

请见代码。
Sub yyy()
Dim s$
s = "17-39-40-26-85"
MsgBox yy(s)
End Sub

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr, brr
   
4.   Dim reg As New RegExp
   
5.   With reg
   
6.     .Global = True
   
7.   End With
   
8.   With Worksheets("sheet1")
   
9.     ss = .Range("a1")
   
10.     xm1 = Split(ss, "-")
    
11.     ReDim xm2(0 To UBound(xm1))
    
12.     For i = 0 To UBound(xm1)
    
13.       reg.Pattern = "[" & xm1(i) & "]"
    
14.       xm2(i) = reg.Replace("0123456789", "")
    
15.     Next
    
16.     Range("b1") = Join(xm2, "-")
    
17.   End With
    
18. End Sub
    

复制代码

chxw68

练练正则。

qwe12369

这个代码是在VBA中用吗？具体是怎么用呢？

qwe12369

chxw68 发表于 2017-7-21 15:00
练练正则。

你好 请问怎么把通用右边的 test 改为自己想要的汉字？谢谢

chxw68

qwe12369 发表于 2017-7-21 15:57
你好 请问怎么把通用右边的 test 改为自己想要的汉字？谢谢

不明白你意思。

qwe12369

chxw68 发表于 2017-7-21 15:59
不明白你意思。

您设置的宏是：test，我想把宏名字改为其他的

chxw68

qwe12369 发表于 2017-7-21 16:03
您设置的宏是：test，我想把宏名字改为其他的

直接修改就行了。比如sub 程序()

qwe12369

chxw68 发表于 2017-7-21 16:05
直接修改就行了。比如sub 程序()

右边还是显示的是：声明