|
Sub 判断()
Application.ScreenUpdating = False
Dim ar As Variant
Dim d As Object
Dim arr()
Set d = CreateObject("scripting.dictionary")
With Sheets("数据")
r = .Cells(Rows.Count, 1).End(xlUp).Row
.Range("f2:f" & r) = Empty
ar = .Range("a1:f" & r)
For i = 2 To UBound(ar)
If Trim(ar(i, 2)) <> "" Then
If Not d.exists(Trim(ar(i, 2))) Then
d(Trim(ar(i, 2))) = ar(i, 4)
Else
d(Trim(ar(i, 2))) = d(Trim(ar(i, 2))) - ar(i, 5)
End If
End If
Next i
For i = 2 To UBound(ar)
If Trim(ar(i, 4)) <> "" Then
jg = d(Trim(ar(i, 2)))
If jg = 0 Then
ar(i, 6) = "清账"
Else
ar(i, 6) = "欠款" & ar(i, 4)
End If
End If
Next i
.Range("a1:f" & r) = ar
End With
MsgBox "ok!"
End Sub |
评分
-
1
查看全部评分
-
|