Excel精英培训网

 找回密码
 注册

QQ登录

只需一步,快速开始

数据透视表40+个常用小技巧,让你一次学会!
查看: 85|回复: 3

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

[复制链接]
发表于 2022-6-23 19:25 | 显示全部楼层 |阅读模式
需要将A列单元格文本内容数据提取至右边单元各,
搜狗截图20220623192103.png

提取数值.zip

25.2 KB, 下载次数: 9

发表于 2022-6-23 21:41 | 显示全部楼层
  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
复制代码
回复

使用道具 举报

发表于 2022-6-23 21:41 | 显示全部楼层
回复

使用道具 举报

 楼主| 发表于 2022-6-24 08:36 | 显示全部楼层

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

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2022-6-30 09:54 , Processed in 0.356374 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表