当前位置：首页 > 科技 > 正文

数据累加满足条件后重新开始计算你知道如何实现吗？



小伙伴们好，今天和大家分享一道有趣的题目。

题目的要求是，在一列数据中，比如单元格区域A2:A31中，从单元格A2开始向下累加。如果累加的结果等于一个给定的值，比如说,5，则从下一个单元格重新开始累加。



题目要求就是这么多。

这类题目应用的场景很多，经常会看到朋友们在各大论坛上题类似的问题。但是这道题目用函数公式是无法解决的，必须要用到VBA。

下面就分享一则大神群友提供的代码吧！


01

首先打开VBA编辑器，你可以按下Alt+F11键，或者在工作表名单击右键，再单击查看代码进入。

进入后单击【插入】-【模块】，如下图。



单击模块1，开始书写代码。



完整的代码如下。

Sub test()

Dim arr(), i As Integer

Dim key

key = 5 '指定的数字

arr() = Range("A2:B31").Value

arr(1, 2) = arr(1, 1)

For i = 2 To UBound(arr)

If arr(i, 1) + arr(i - 1, 2) <> key Then

arr(i, 2) = arr(i, 1) + arr(i - 1, 2)

Else

arr(i, 2) = arr(i, 1) + arr(i - 1, 2)

i = i + 1

arr(i, 2) = arr(i, 1)

End If

Next i

Range("A2:B31").Value = arr()

End Sub

输入完成后保存即可。


02

接下来我们运行代码。



单击图中的箭头，代码将自动运行。



图中涂黄色的单元格即是满足条件后，重新开始累加。

最后，记得要将文件保存为“.xlsm”的格式，即启用宏的文件格式。


好了朋友们，今天和大家分享的内容就是这些了！喜欢我的文章请分享、转发、点赞和收藏吧！如有任何问题可以随时私信我哦！

-END-

长按下方二维码关注EXCEL应用之家

面对EXCEL操作问题时不再迷茫无助

我就知道你“在看”

推荐阅读

  • 特殊的文本数字型字符串提取，这两个方法都挺好用的！

  • 三两个平淡无奇的小函数，三分钟解决工作中的大问题，财务妹子再也不用熬夜加班了！

  • 谁说不同模块函数不能融会贯通？财务函数都跨界搞排序了！

  • POWER QUERY--从列数据中提取字符

  • 基础篇--数组的运算规则

你可能想看：

“年后综合征”你知道如何规避吗？

似乎还没有享受完这段好时光就又要回到从前的工作中去了。为了明天能够精力充沛地投入到工作中去，长假期间人们一般都会高度兴奋”熬夜打牌唱歌，外出旅游也会搞得疲惫不堪！生活失去了往常的规律，因此一旦回归到正...

中国提出太空超级工程：3.6万公里高巨型电站，究竟可能实现吗？

太阳能电站就是碳中和中重要的建设方向，但地面上的太阳能电站有一个问题，尽管光热型太阳能可以利用熔盐储热部分解决，但建设在太空的太阳能电站完美地解决了这个矛盾。更不会占用耕地、不需要清理太阳能电池表面的...

生活，从新开始，从心开始

充斥着惊慌、希翼、向往···夹杂而来，理想的生活到底是什么，习惯性地畅想着未来的生活，不知不觉开始了为生活奋斗，因为总有人没倒掉鞋里的沙子从而疲惫不堪而半途而费，在芬芳的泥土中寻找宁静，相信我们能让自...

学习英语不知道如何坚持，3个方法要知道

比如我虽然每天会看上几个英语短句，也会对句子中的语法、单词进行整理和收集，就开始觉得学习没有了动力，最后留给英语学习的时间真的非常少。毕竟放弃了英语的学习，已经购买了很多英语学习书和参考书，觉得新书能...

中小企业如何实现降本、减费、增效？掌握八条规则：四精四定

一、费用预算管控的三大原则。管钱的人要对费用率负责。对于明确后的部门费用、岗位费用，每一项费用除了有使用人、上级管理责任人：所有的员工都有费用管控责任，特别要突出对公共费用的管理（如水、电、办公用品、...

如何实现自驾中国56项世界遗产之梦（含342个子项）

相比56项世界遗产分布在我国的26个省、直辖市来说就更加难实现。这56项世界遗产多数容纳在我国的A级景区内。尤其AAAA和AAAAA景区相对开发的较完善，很多人都是先走AAAAA景区打卡游。世界地质公...

柚子的种植技巧，如何实现柚子的高产种植？

合理疏花疏果等科学栽培管理外，底层放杂草、土杂肥、石灰，表层放优质腐熟或者沤制的花生麸肥、磷肥等，保持土壤深、松、肥，每棵柚子树年需花生麸10公斤，以上施肥还要根据树势、树龄和实际情况来调整有机肥和化...

城市黑臭水体究竟如何实现清淤疏浚及底泥资源化？

内源清淤疏浚是解决水体黑臭问题的有效工程手段之一。文章主要介绍了清淤疏浚技术、清淤设备发展趋势、底泥脱水干化技术、底泥资源化。其中内源控制技术一般是把黑臭水体内受污染的底泥（通常为河床表层部分）通过清...

自媒体新人怎样吸引粉丝的关注？如何实现快速涨粉？

想涨粉就两个方法，仔细想想是不是这个道理，那么随便做个直播，随便发个视频都可以涨粉无数，如果咱们长的有点对不起观众，什么叫说的漂亮？让观众看了感觉有趣，我们也真就做明白了，想说的漂亮没那么容易，怎么才...

危险工艺-硝化反应如何实现安全化？

硝化反应在化学工业中应用广泛、发展迅速，硝化工艺主要分为间歇硝化和连续硝化工艺，保证硝化反应在合适温度进行，连续硝化工艺在行业内的应用比例仍不高，企业坚持采用间歇式硝化工艺的很大原因是可以根据市场行情...

公司注销后，公司对外债权如何实现

公司注销前的债权、债务都应在清算阶段予以解决，公司清算时债权虽然存在，公司原股东可向债权人主张原公司的债权，1、公司的财产是基于股东出资或者股东认购股份的基础上形成的。股东让渡了财产所有权给公司，享有...

公司减资可以实现股东退股，你知道吗？|公司法

（需由董事会一致通过）（原件）；3、股东各方关于减资的协议（独资企业为减资决定）；4、股东各方法定代表人签署的合同、章程修改协议（非独资企业）或章程修改决定（独资企业）；5、经中国注册会计师验证的审计...

终于知道如何背下整本书了

​无意中发现发现一位北大的学长学什么都是整本吃透背熟。好像有一本故事大王我小时候翻来覆去的看，也不知道怎么里面的故事就都会讲了。大神学长介绍说他也没学过什么记忆术，他说记忆大师的记忆术是给那种阅读有障...

数据不满足正态分布，到底能不能用t检验？

T检验是我们医学科研工作中使用频率非常高的一种进行均值比较的统计方法。应用T检验的前提是数据来自于正态分布的总体，因为中心极限定理告诉我们样本均数在样本量较大时可以近似为正态分布？样本量较大时是否还要...

完整的知道：知道自己知道，同时知道自己不知道！

我问了一些朋友，他们在这个过程中其实没有感觉的是无意识的。好吧 因为没人共鸣所以会质疑。合起来是完整的知道。永远是不可全知的。但凡说知道，就不可能全知。在知道的旁边，永远住着不知道。你永远不可能消灭它...

成为公司股东的实质条件和形式条件

1.有成为公司股东的真实意思表示。这是认定股权或股东资格的首要标准，当事人应当具有成为股东的真实意思表示，能够反映该真实意思表示的外在证据在认定股东资格的过程中具有举足轻重的作用：公司设立前关于投资约...

谈困境投资 一个企业碰到困境，所有人开始抛弃它的时候，到底能不能做逆向投资，越跌越买？取决于满足两个...

一个企业碰到困境，到底能不能做逆向投资，1大的战略方向有没有问题？如果企业的战略是被新一代的企业封锁的，因为战略方向严重问题。如果未来的战略是没问题的，中短期几年内犯了错误，那么就不用过于害怕，如果一...

你知道应如何选用机械公差与配合吗？

1.1选择基准制时.应从结构、工艺和经济性等方面来分析确定.在常用尺寸范围(500mm以内)。（1）所用配合的公差等级要求不高(如IT8-IT12)或直接用冷拉棒料制作又不需加工的轴。（2）同一公称尺...

最新开票丨北京市河北梆子剧团经典剧目展演

张 恩……张四刚（国家一级演员），徐羡之……金民合（国家一级演员）”傻小子……蔡 山（国家二级演员），乳娘赴灯棚消愁，王妻放张恩出走：王彦丞因子佩戴御赐祥麟宝镜与之一并丢失：朱春登……王英会（国家一...

Excel 2016数据透视表与条件格式

Excel2016数据透视表应用大全 突出显示数据透视表中的特定数据 。图5-40设置条件格式前的数据透视表步骤1选中; 在【背景色】颜色库中选择;图5-43新建格式规则图...

重新定义的方法，你了解吗？

即将原来的事物的内涵和外延均做一些修改，当时的手机根本就没有阅读屏幕。现在又增加了与原来功能截然不同的一种或者两种功能:跨界融合作为一种重新定义的方法，可以从简单产品的功能融合，比如河马生鲜就是超市功...

通俗讲解计算机总线，计算机的脊髓神经？

总线是计算机各种功能部件之间传送信息的公共通信干线。它是CPU、内存、输入、输出设备传递信息的公用通道，主机的各个部件通过总线相连接，CPU通过总线与计算机各部件连接：FSB总线逐渐因为数据传输效率跟...

数学老师：掌握这14个计算技巧，孩子计算...

掌握这14个计算技巧，孩子计算能力超强，经常和一些家长讨论孩子的学习问题，我相信很多的家长都已经给孩子找好了很多的数学的培训班，如果孩子没有理解为什么这样做。这里我给大家总结了小学数学14个计算技巧。...

VBA常用小代码103：实现去重且自动显示列表的数据有效性

我们今天聊的内容是单元格的数据有效性（2010版本后更名为数据验证）：如何创建去除重复项后的下拉列表，在表格的A列创建去除重复人名后的数据验证下拉列表：'如果选择的单元格不存在于A列,Cells(Ro...

当你知道财富四大象限后，你就会知道自己为什么不富裕了

穷爸爸富爸爸财务自由之路一书中，罗伯特·清崎写出了获取财富的四个象限。简单来说就是赚取主动收入，为别人工作的人都是用自己的时间在赚钱。这个象限的人是自由职业（专业人士），或许会赚取一笔财富，还是没有实...

网文如何制造爽点？9000字干货！教你写小说怎么让读者满足！

小说的爽点是吸引住读者的唯一途径。读者心中就会有一个潜意识，虽然升级的时候作者并没有提到父母报仇，但是这个事情作为一种潜意识存在了读者的心中。其实很多时候读者自己都没有想到这一点，不过正是因为有了这道...

电脑键盘F1到F12键的用法你知道吗？电脑高手必会的键盘知识

按F1可以直接调出Windows的帮助程序，F2的功能是文件重命名，按下F3可以启动搜索功能。在电脑磁盘或文件夹中使用F3：能快速打开搜索窗口，可以快速选中当前页面网址，可以打开IE浏览器中的地址栏列...

代码问题arr函数单元格

上一篇
Excel教程：excel快速核对数据的两种技巧

下一篇
Excel教程：excel中len函数嵌套工作案例

有话要说...

最新文章

取消
扫码支持 支付码