VBA汇总错误

runzy

从别处抄来的代码，修改了一下还是不能准确汇总，恳请论坛老师和高手帮忙修改一下

xd3210

需求没有看明白

gdw831001

1. Sub d()
   
2.     r = [a1].CurrentRegion
   
3.     For i = UBound(r) To 2 Step -1
   
4.         If r(i, 4) = "" Then
   
5.             k = Cells(i, 9) + k
   
6.         Else
   
7.             Cells(i, 9) = k
   
8.             k = 0
   
9.             Cells(i, 9).EntireRow.Font.Bold = True
   
10.         End If
    
11.     Next
    
12. End Sub
    

复制代码

wxg0007

搞明白CurrentRegion和数组的表示方式，就能很简单的搞定

runzy

gdw831001 发表于 2018-9-12 18:10

刚才附件上传错了，请老师再看一下需要对F列分段汇总

runzy

wxg0007 发表于 2018-9-12 18:19
搞明白CurrentRegion和数组的表示方式，就能很简单的搞定

刚才附件上传错了，现在重新上传了，需要列对F列分短汇总

wxg0007

你就把代码SUM里的,I改成F就可以了，这么简单的问题，自己不会看一下，生成的公式哪里不对？

runzy

wxg0007 发表于 2018-9-12 18:46
你就把代码SUM里的,I改成F就可以了，这么简单的问题，自己不会看一下，生成的公式哪里不对？

谢谢了 对vba一窍不通

lsc900707

runzy 发表于 2018-9-12 18:32
刚才附件上传错了，现在重新上传了，需要列对F列分短汇总

估计献个花啥的也不懂：

1. Sub d()
   
2. r = [a1].CurrentRegion
   
3. y = UBound(r)
   
4. For i = UBound(r) - 1 To 1 Step -1
   
5.     If r(i, 1) <> "" And r(i + 1, 1) = "" Then
   
6.         n = i
   
7.         With Cells(i, 6)
   
8.             .Value = "=sum(f" & y & ":f" & n + 1 & ")"
   
9.             .EntireRow.Font.Bold = True
   
10.         End With
    
11.         y = n - 1
    
12.     End If
    
13. Next
    
14. End Sub

复制代码

runzy

lsc900707 发表于 2018-9-12 19:11
估计献个花啥的也不懂：

谢谢版主