代码修订

ddz79101

老师！计算行合计的，有代码，我用的是数组，但发现：
1.不能加到末行。
2.另就是能否若单元格为空的，则合计也为空，而非现实“0”，在数组中如何表述。
谢谢！老师帮忙看看

petergaod

1. Arr = Range("a5:g" & Range("g65536").End(xlUp).Row)
   
2. For K = 2 To UBound(Arr)
   
3.     If Arr(K, 1) <> "" Then
   
4.         st = ""
   
5.         For s = 3 To 5
   
6.             st = st & Arr(K, s)
   
7.             Arr(K, 6) = Val(Arr(K, 6)) + Val(Arr(K, s))
   
8.         Next s
   
9.         If st = "" Then Arr(K, 6) = ""
   
10.     End If
    
11. Next K
    
12. Range("a5:g" & Range("g65536").End(xlUp).Row) = Arr
    

复制代码

sdytsxd991122

limonet

Sub 计算专附扣实付()
    Dim Arr
    Dim K, i, s
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Arr = Range("a5:g" & Range("g65536").End(xlUp).Row + 1)
    For K = 2 To UBound(Arr)
        If Arr(K, 1) <> "" And Arr(K, 3) <> "" Then
            For s = 3 To 5
                Arr(K, 6) = Arr(K, 6) + Val(Arr(K, s))
            Next s
        End If
    Next K
    Range("a5:g" & K + 2) = Arr
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

limonet

关键字：加了判断+2

ddz79101

petergaod 发表于 2024-9-4 14:36

谢谢老师！运行成功

ddz79101

sdytsxd991122 发表于 2024-9-4 14:37

谢谢老师！称呼运行，但只解决了一个问题，值0换为空，未解决

ddz79101

limonet 发表于 2024-9-4 14:40
关键字：加了判断+2

谢谢看老师！园满解决