关灯

[VBA] 最能体现你的Excel综合水平的一道题

[复制链接] [查看百度是否已收录此帖]
李海Blog 发表于 2021-9-2 10:45:04 | 显示全部楼层 |阅读模式 打印 上一主题 下一主题
 

本帖子中包含更多资源!

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
前几天,有人在群里发起了一期Excel练手题,这道题,难度中等偏上,解决方法多样,是最能体现Excel综合水平的一道题。
题目要求:计算每个单元格中数字的合计。如下图所示: 640.png

这里用VBA的方法,来解决这个问题,有兴趣的朋友可以自行理解。下面仅作参考,当然这段代码还可以写成自定义函数的形式。
  1. Sub sumx()
  2. For i = 2 To ActiveSheet.Cells(65536, 1).End(xlUp).Row
  3.       r = Split(Cells(i, 1), ",")
  4.       s = 0
  5.         For j = 0 To UBound(r)
  6.             s = Val(r(j)) + s
  7.             Next
  8.     Cells(i, 2) = s
  9. Next
  10. End Sub
复制代码
案例Excel文件在下方下载:

VBA解决方案.xlsx

10 KB, 阅读权限: 10, 下载次数: 0, 下载积分: 站长币 -2


上一篇:Excel操作—根据名称自动查找图片
下一篇:2分钟批量更改excel工作薄名称
零基础学习网站建设,上李海Blog就够了!你与成功只差添加一个好友:微信18298346873
 
*滑块验证:
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 推广达人

    积极宣传本站,为本站带来更多注册会员
  • 宣传达人

    积极宣传本站,为本站带来更多的用户访问量
  • 突出贡献

    长期对论坛的繁荣而不断努力,或多次提出建设性意见
  • 优秀版主

    活跃且尽责职守的版主
  • 荣誉管理

    曾经为论坛做出突出贡献目前已离职的版主
  • 论坛元老

    为论坛做出突出贡献的会员

9关注

2粉丝

4420帖子

排行榜

Archiver|百度统计|手机版|李海博客 ( 陇ICP备15000550号-3 )|

GMT+8, 2021-10-28 04:46 , Processed in 0.150760 second(s), 35 queries .

技术支持:李海   Tel/WeChat:18298346873

© 2013-2021 www.lihaiblog.cn

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