单元格相加

ddz79101

老师！有表，需要对列中无规律间隔单元格相加，请老师指点。谢谢

边缘码农

加一个辅助列，取科目代码的长度，按照长度=4的条件求和。

shiruiqiang

if len(cells(x,2))=4 then sum=sum+cells(x,4\5\6\7\8)

ddz79101

shiruiqiang 发表于 2024-7-2 08:06
if len(cells(x,2))=4 then sum=sum+cells(x,4\5\6\7\8)

谢谢老师！可以写全吗？

sunya_0529

条件格式+公式能搞定的——

lsc900707

Sub test()
    arr = [a1].CurrentRegion
    For i = 3 To UBound(arr) - 1
        If Len(arr(i, 2)) = 4 Then
            For j = 4 To UBound(arr, 2)
                arr(UBound(arr), j) = arr(UBound(arr), j) + arr(i, j)
            Next
        End If
    Next
    [a1].CurrentRegion = arr
End Sub

ddz79101

lsc900707 发表于 2024-7-2 19:57
Sub test()
    arr = [a1].CurrentRegion
    For i = 3 To UBound(arr) - 1

谢谢老师！代码运行正确