[已解决]求代码，如果G列有空单元格，则求上面单元格的和

c5h8o4nna

页数	结果
1	1
5	5
1	1
21	21
1	1
1	1
1	1
1	1
	32
1	1
5	5
1	1
21	21
1	1
1	1
1	1
1	1
	32
1	1
5	5
1	1
20	20
1	1
1	1
1	1
1	1
1	1
	32

左边是情况，右边是想要的结果，我知道alt+"+"可以做到，但我更想要代码{:021:}求高手

最佳答案

月排行榜 / 总排行榜

today0427

2016-12-22 21:20

1. Sub today()
   
2.     Dim i&, n&, arr
   
3.     arr = Range("g2:g" & [g65536].End(3).Row + 1)
   
4.     For i = 1 To UBound(arr)
   
5.         If arr(i, 1) <> "" Then
   
6.             n = n + arr(i, 1)
   
7.         Else
   
8.             arr(i, 1) = n: n = 0
   
9.         End If
   
10.     Next
    
11.     Columns("i:i").Clear
    
12.     [i2].Resize(i - 1, 1) = arr
    
13. End Sub
    
14. 
    

复制代码

空单元格求和.rar (27.3 KB, 下载次数: 3)

2016-12-22 21:23 上传

点击文件名下载附件

跳转到最佳答案楼层

望帝春心

最简单的录制宏

c5h8o4nna

望帝春心 发表于 2016-12-22 19:38
最简单的录制宏

录制宏不行啊，

today0427

1. Sub today()
   
2.     Dim i&, n&, arr
   
3.     arr = Range("g2:g" & [g65536].End(3).Row + 1)
   
4.     For i = 1 To UBound(arr)
   
5.         If arr(i, 1) <> "" Then
   
6.             n = n + arr(i, 1)
   
7.         Else
   
8.             arr(i, 1) = n: n = 0
   
9.         End If
   
10.     Next
    
11.     Columns("i:i").Clear
    
12.     [i2].Resize(i - 1, 1) = arr
    
13. End Sub
    
14. 
    

复制代码

空单元格求和.rar (27.3 KB, 下载次数: 3)

2016-12-22 21:23 上传

点击文件名下载附件

c5h8o4nna

today0427 发表于 2016-12-22 21:20

arr(i, 1) = n: n = 0这句不是很明白，能解释一下吗？

最后一句也不懂啊
VBA果然还是很难懂的啊~{:021:}

today0427

n是用来合计的，如果单元格不为空，就把这个格子的数字加起来，n = n + arr(i, 1)，加到一定程度碰到空单元格，就把n这个合计的总数放进这个格中，然后n归0，继续开始重新合计下一单元格。vba这样学不行，得从基础开始。