求助大神，合并单元格的小计，太难了，帮帮忙！

micch

18994406660 发表于 2020-1-31 12:06
这个公式我会的，就是想探索学习一下vba的方法。

1. Sub test()
   
2. arr = [a1].CurrentRegion
   
3. For i = 3 To UBound(arr)
   
4.     If Len(arr(i, 3)) Then
   
5.         k = i
   
6.         Do
   
7.             Sum = Sum + arr(k, 1)
   
8.             k = k + 1
   
9.             If k > UBound(arr) Then Exit Do
   
10.         Loop Until Len(arr(k, 3)) > 0
    
11.         arr(i, 2) = Sum
    
12.         Sum = 0
    
13.     End If
    
14. Next
    
15. [a1].CurrentRegion = arr
    
16. End Sub
    

复制代码

18994406660

excel海 发表于 2020-1-31 10:36

好奇怪啊，为什么在我的原文件表里，运行你的代码没反应。把你反馈的文件运行代码就可以。什么原因啊？

18994406660

micch 发表于 2020-1-31 10:44
手工操作比代码简单多了，为什么一定要考虑最后一个单元格呢，直接选一个足够大的单元格就行了

受教了，我原先一直以为，一定要最后一个单元格

excel海

18994406660 发表于 2020-1-31 12:20
好奇怪啊，为什么在我的原文件表里，运行你的代码没反应。把你反馈的文件运行代码就可以。什么原因啊？

有什么报错吗?没反应?你F8运行看看

18994406660

excel海 发表于 2020-1-31 12:25
有什么报错吗?没反应?你F8运行看看

F8运行不报错，也能运行结束，但是表格毫无变化。

18994406660

micch 发表于 2020-1-31 12:15

可以了，非常感谢！

18994406660

excel海 发表于 2020-1-31 10:36

可以了，非常感谢！，原先不行，是因为excel出现了问题，连修改后的文件都保存不了，电脑重启后，运行代码完全可以了！感谢！！！

excel海

18994406660 发表于 2020-1-31 12:59
可以了，非常感谢！，原先不行，是因为excel出现了问题，连修改后的文件都保存不了，电脑重启后，运行代 ...

可以就好·········

18994406660

micch 发表于 2020-1-31 12:15

如果是同样的表格。就是根据把原先的第1列移为第15列，原先第2列移为16列。原先是根据第1列计算第2列，现在改为根据第15列计算第16列，这个代码该怎么修改？我是初学的菜鸟，望多多指教

renkangjizhen

还是蓝老师的代码比较好理解