关于使用excel公式或者VBA解决往不同容器里面放小球的问题

轮子酱 2020-10-13 04:19:18

大致问题是这样的，举个例子

如图所示，有容器A-F，人A-G，人A-G按顺序将手上的球依次尽可能放入容器A-F中，比如人A把2个球放入容器A，人B就得把3个球放入A，1个放入B，直到容器填满或者每个人的球都放完为止
最后统计每个人在每个容器中分别放了几个球

大概是这么一个问题，目前能想到的思路就是每个人放一个球之后更新一下数据，做一次判断能不能继续放，不能就放到下一个，或者类似if剩余球数>容器剩余数量就all in，否则放入剩余数量后再判断下一个这样的遍历法

但因为需要处理的数据量比较大，而且老板看不懂VBA，所以如果能尽量使用公式添加辅助列解决是最好，如果不能，vba处理是否有更便捷的方式呢？
望请不吝赐教

...全文

152 回复打赏收藏转发到动态举报

写回复

回复

切换为时间正序

请发表友善的回复…

发表回复

' 七个使用公式的例子 ' '1、行标是变量的例子 '2、列标用一维数组输入字符串做列标，行标是变量 '3、用RC做相对引用 '4、RC和变量混合 '5、整列使用RC引用，避免使用循环 '6、整个区域RC引用——相对引用/循环 '7、整个区域RC应用——相对引用/不用循环 Sub 数例() [a1] = "1a": [a2] = "d2": [a3] = "cd": [a4] = "fa" End Sub Sub ts1() For i = 1 To 4 Cells(i, 2).Formula = ..

需求 Excel表格中如果有大量的公式，不光会影响打开、保存的速度，而且在传给别人的时候也会有些出现一些小问题，例如连接找不到等等。所以如何快速去掉单元格内的公式，就需要运用一些小技巧。方法一复制—粘贴–选择值方法二直接打开Visual Basic编辑器，然后复制下列代码到编辑器内，全选代码，直接F5执行： Sub excel去除所有公式() Dim sheet As Worksheet For Each sheet In Sheets sheet.UsedRange

在VBA+EXCEL编程模式中，可能需要往EXCEL表中写入公式，下面的代码可以给你一点帮助。 ''Address采用相对地址，这样COPY到其它位置后，公式还可以使用。 Dim strRange as string ........... strRange = "(" & Cells(9, i).Address(RowAbsolute:=False, ColumnAbsolute:=False) & ":" & Cells(r - 1

VBA在Excel中的应用用VBA将所有工作表去公式并保留原显示格式问题描述1.在“开发工具”选项卡中选择”Visual Basic”2.插入模块运行结果用VBA将所有工作表去公式并保留原显示格式问题描述出于各种各样的原因，我们需要将所有使用公式的单元格最后只留数值，而且要尽量保持显示格式不变。而使用公式的单元格零散分布，数量众多。因此，使用VBA会简化操作，提升效率。 1.在“开发工具”选...

对于不熟悉Excel公式，不熟悉vba的人，要如何按需要快速把多个excel表合并成一个excel表？下面介绍两款在线工具，一键解决excel表合并的问题，不在需要使用Excel公式或者vba。工具地址：http://www.excelfb.com/, 需求一、所有表格式都一样，我要合并到一个表。例如我们有如下多个Excel文件或者多个Sheet，点击：多个Ex...

Office开发/ VBA

5,172

社区成员

17,904

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章