VBA新手多列求和问题求助

747400

求和的列可能会变化，一列中有两个统计类别，具体见附件。请各位大神赐教。谢谢！

chxw68

这个还需要代码吗？用公式岂不是更方便！

747400

VBA新手正在学习，想用VBA解决。在高手眼里不值一提，但我想不清除其中的逻辑，想请教。

扇扇扇

  这是发错版块了吗

ykcbf1100

满足你一下吧，VBA，中间列有增减不用改代码。

ykcbf1100

横向合计

1. Sub ykcbf()   '//2024.9.11    横向合计
   
2.     With Sheets("Sheet1")
   
3.         r = .Cells(Rows.Count, 1).End(3).Row
   
4.         c1 = .Rows(1).Find("轿车合计").Column
   
5.         c2 = .Rows(1).Find("SUV合计").Column
   
6.         For i = 2 To r
   
7.             .Cells(i, c1) = Application.Sum(.Cells(i, 2).Resize(, c1 - 2))
   
8.             .Cells(i, c2) = Application.Sum(.Cells(i, c1 + 1).Resize(, c2 - c1 - 1))
   
9.         Next
   
10.     End With
    
11. End Sub
    

复制代码

chxw68

1. Sub test()
   
2.     Dim r%, i%
   
3.     Dim arr, brr
   
4.     With Worksheets("sheet1")
   
5.         r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
6.         c = .Cells(1, .Columns.Count).End(xlToLeft).Column
   
7.         arr = .Range("a1").Resize(r, c)
   
8.         For i = 2 To UBound(arr)
   
9.             s = 0
   
10.             For j = 2 To UBound(arr, 2)
    
11.                 If InStr(arr(1, j), "合计") = 0 Then
    
12.                     s = s + arr(i, j)
    
13.                 Else
    
14.                     arr(i, j) = s
    
15.                     s = 0
    
16.                 End If
    
17.             Next
    
18.         Next
    
19.         .Range("a1").Resize(r, c) = arr
    
20.     End With
    
21. End Sub
    

复制代码

chxw68

消磨时间写一个吧。