VBA，符合条件的相加

在A列中能找到三个词就将对应的B列相加

我暂时保留我的看法！

sub test() dim i& with activesheet for i=1 to .usedrange.rows.count ‘如果A列有3个相同数据 if worksheetfunction.countif（.columns(1),.cells(i,1)）=3 then ’那么C列显示所有相同数据的B列之和 .cells(i,3)=worksheetfunction.sumif(.columns(1),.cells(i,1),.celumns(2)) endif next end with end sub 您确实没有描述清楚~~~请补充问题

问题没有描述清楚，“符合某个值”是指哪个值？ 估计你的表格中还有公式来计算存量，你所要的只是想让“？”中的值按顺序递增或递减吧。 可以用excel中的“微调按钮”来达到这个目的，方法如下： 按“视图－工具栏－窗体”，调出窗体工具栏，用鼠标选中上面的“微调”按钮（有向上和向下箭头的那个按钮），在表格中拖动鼠标添加这个微调按钮，然后用鼠标右键点击它，从右键菜单中选“设置控件格式”，在弹出窗口中选“控制”选项卡，里面有“最大值”、“最小值”，可将你的初值与终值填入，再在“单元格链接”中填入“？”所在的单元格地址，确定后，就可以在表格中使用这个微调按钮来改变单元格数值了。