代码修改

ddz79101

老师！有表需要计算列合计，写有代码但不成功，请老师帮忙修改。谢谢

无关岁月

副本代码修改.7z (28.84 KB, 下载次数: 9)

2024-4-14 22:36 上传

点击文件名下载附件

gwjkkkkk

Option Explicit
Sub TEST6()
    Dim ar, br, i&, j&
   
    Application.ScreenUpdating = False
   
    ar = Range("E3", Cells(Rows.Count, "L").End(xlUp)).Value
    ReDim br(1 To UBound(ar) - 1, 1 To 2)
    br(1, 1) = "单位": br(1, 2) = "个人"
    For i = 3 To UBound(ar)
        For j = 1 To UBound(ar, 2)
            If ar(1, j) = "单位" Then
                br(i - 1, 1) = br(i - 1, 1) + ar(i, j)
            Else
                br(i - 1, 2) = br(i - 1, 2) + ar(i, j)
            End If
        Next j
    Next i
   
    Columns("Q:R").ClearContents
    [Q4].Resize(UBound(br), UBound(br, 2)) = br
    Application.ScreenUpdating = True
    Beep
End Sub

gwjkkkkk

请参考。。。

ddz79101

无关岁月 发表于 2024-4-14 22:37

谢谢老师！代码成功

ddz79101

gwjkkkkk 发表于 2024-4-14 22:56
请参考。。。

谢谢老师！代码成功

jjmysjg

无关岁月 发表于 2024-4-14 22:37

Array(-1,怎么理解？谢谢

无关岁月

jjmysjg 发表于 2024-4-15 19:55
Array(-1,怎么理解？谢谢

就是占个位，因为数组的索引号是从0开始的，而我想让它从一开始，就用一个不存在的列号占个位

jjmysjg

gwjkkkkk 发表于 2024-4-14 22:56
请参考。。。

大侠你好：
只想汇总表中某个列之间的数，怎么以地段名为关键字使用你的代码

gwjkkkkk

根据ES1的值动态进行汇总吗？如果动态的比较麻烦一点，如果固定简单一点。