[已解决]追问爱老师，同样要求且是多列求和怎么写代码？请教＝双层＝向下求和

stairwaya

每个市分别下辖直管和非直管的县，除对各个直管县和非直管县向下求和之外，还需要对每个市求和。需要求和的数据为多列。
附件已经更新，请爱老师再次不吝赐教！

最佳答案

月排行榜 / 总排行榜

爱疯

2012-11-22 15:20

1. 
   
2. Sub 按钮62_Click()
   
3.     Dim A, i%, j%, k%, x&, s&
   
4.     With Sheets("sheet1")
   
5.         A = .Range("a1:f" & .Range("a65536").End(xlUp).Row)
   
6.         
   
7.         For j = 2 To UBound(A, 2)
   
8.             For i = UBound(A) To 2 Step -1
   
9.             
   
10.                 If InStr(A(i, 1), "小计") Then
    
11.                     k = k + 1
    
12.                     Select Case k
    
13.                     Case 1    '其它
    
14.                         A(i, j) = s: x = x + s: s = 0
    
15.                     Case 2    '直管
    
16.                         A(i, j) = s: x = x + s: s = 0
    
17.                     Case 3    '市
    
18.                         A(i, j) = x: x = 0: k = 0
    
19.                     End Select
    
20.                 Else
    
21.                     s = s + A(i, j)
    
22.                 End If
    
23.             Next i
    
24.             
    
25.         Next j
    
26.         .Range("a1").Resize(UBound(A), UBound(A, 2)) = A
    
27.     End With
    
28. End Sub
    

复制代码

Book3c.rar (12.14 KB, 下载次数: 19)

2012-11-22 15:20 上传

点击文件名下载附件

跳转到最佳答案楼层

爱疯

1. 
   
2. Sub 按钮62_Click()
   
3.     Dim A, i%, j%, k%, x&, s&
   
4.     With Sheets("sheet1")
   
5.         A = .Range("a1:f" & .Range("a65536").End(xlUp).Row)
   
6.         
   
7.         For j = 2 To UBound(A, 2)
   
8.             For i = UBound(A) To 2 Step -1
   
9.             
   
10.                 If InStr(A(i, 1), "小计") Then
    
11.                     k = k + 1
    
12.                     Select Case k
    
13.                     Case 1    '其它
    
14.                         A(i, j) = s: x = x + s: s = 0
    
15.                     Case 2    '直管
    
16.                         A(i, j) = s: x = x + s: s = 0
    
17.                     Case 3    '市
    
18.                         A(i, j) = x: x = 0: k = 0
    
19.                     End Select
    
20.                 Else
    
21.                     s = s + A(i, j)
    
22.                 End If
    
23.             Next i
    
24.             
    
25.         Next j
    
26.         .Range("a1").Resize(UBound(A), UBound(A, 2)) = A
    
27.     End With
    
28. End Sub
    

复制代码

Book3c.rar (12.14 KB, 下载次数: 19)

2012-11-22 15:20 上传

点击文件名下载附件