Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
楼主: 兰色幻想

(VBA版)提取字符串中数字求和练习(参考答案在1楼)

  [复制链接]
发表于 2011-5-22 23:12 | 显示全部楼层
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
回复

使用道具 举报

发表于 2011-5-23 00:06 | 显示全部楼层
回复

使用道具 举报

发表于 2012-5-14 22:52 | 显示全部楼层
回复

使用道具 举报

发表于 2012-9-6 10:01 | 显示全部楼层
万恶的回复可见。。。。。。。。。。。。。。。。
回复

使用道具 举报

发表于 2013-1-14 15:33 | 显示全部楼层
看看是什么东东。。。
回复

使用道具 举报

发表于 2013-2-20 22:18 | 显示全部楼层
好好学习一下
回复

使用道具 举报

发表于 2016-2-16 18:49 | 显示全部楼层
fdfdd
回复

使用道具 举报

发表于 2016-2-16 18:49 | 显示全部楼层
fdfdd
回复

使用道具 举报

发表于 2017-3-20 15:43 | 显示全部楼层
看看高兴不
回复

使用道具 举报

发表于 2021-9-19 09:58 | 显示全部楼层
本帖最后由 q3698995 于 2021-9-19 11:12 编辑

楼主的代码不错,写成了函数。
  1. Function StrSum$(s$): Dim i%
  2.     For i = 1 To Len(s): If Mid(s, i, 1) Like "[!.0-9]" Then Mid(s, i, 1) = "+"
  3.     Next: StrSum = Evaluate(0 & s & "+0")
  4. End Function
复制代码

回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-4-24 03:11 , Processed in 0.429603 second(s), 8 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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