Sub he()
Dim SumHe#, i As Long, Arr
Arr = Sheets("T0").UsedRange
For i = 2 To UBound(Arr)
If Arr(i, 3) = "个人业务部" And Arr(i, 18) = "商网抵押" Then SumHe = SumHe + Arr(i, 12)
Next
Sheets("T0").Range("T1") = SumHe
End Sub
函数可以用sumifs
Sub he()
Dim SumHe#, i As Long, Arr
Arr = Sheets("T0").UsedRange
For i = 2 To UBound(Arr)
If Arr(i, 3) = "个人业务部" And Arr(i, 18) = "商网抵押" Then SumHe = SumHe + Arr(i, 12)
Next
Sheets("T0").Range("T1") = SumHe
End Sub
函数可以用sumifs