大家好！本人是2007版本，有附件模拟，感谢老师！！！

weifengcz

大家好！本人是2007版本，有附件模拟，感谢老师！！！ 2024=9=15附件.zip (8.12 KB, 下载次数: 6)

2024-9-15 22:26 上传

点击文件名下载附件

ww87725244

1. 写个代码比较稳妥
   
2. Sub aa()
   
3. Dim ar, i, d As Object, s, ar1(), s1
   
4. Set d = CreateObject("vbscript.regexp")
   
5. With d
   
6.   .Global = True
   
7.   .Pattern = "\d+\/.*"
   
8. End With
   
9. With Sheet1
   
10.   ar = .Range("a1:a" & .UsedRange.Rows.Count)
    
11.   ReDim ar1(1 To UBound(ar), 1 To 1)
    
12.   For i = 1 To UBound(ar)
    
13.       Set s = d.Execute(ar(i, 1))
    
14.       For Each s1 In s
    
15.         ar1(i, 1) = s1.Value
    
16.       Next
    
17.   Next
    
18.   .[i3].Resize(UBound(ar1)) = ar1
    
19. End With
    
20. Set d = Nothing
    
21. End Sub

复制代码

ww87725244

代码在审核
先上附件

无关岁月

1. =MID(A1,MAX(IFERROR(FIND({"p","u"},A1,ROW($1:$9999)),))+1,99)

复制代码