需要将A列单元格文本内容数据提取至右边单元各，

楚雪飞扬

需要将A列单元格文本内容数据提取至右边单元各，

eennoo

1. Function GetNmnber(ByVal str1 As String, str2 As String) As String
   
2. If InStr(str1, str2) > 0 Then
   
3. str1 = Mid(str1, InStr(str1, str2))
   
4. k = False
   
5. For i = 1 To Len(str1)
   
6. If Mid(str1, i, 1) Like "[0-9]" Then
   
7. Do
   
8. GetNmnber = GetNmnber + Mid(str1, i, 1)
   
9. i = i + 1
   
10. Loop While Mid(str1, i, 1) Like "[0-9]"
    
11. Exit Function
    
12. End If
    
13. Next
    
14. End If
    
15. End Function

复制代码

eennoo

d2=GetNmnber($A$2,D1)右拉

楚雪飞扬

eennoo 发表于 2022-6-23 21:41

这个代码复制过来要怎么使用，