Sub DD()
Dim A%, B%, 大计数%, 小计数%, 可修数%
Do While A <> 15
A = A + 1
Do While B <> 15
B = B + 1
If Sheet2.Range("a" & A) = Sheet1.Range("a" & B) And Sheet1.Range("c" & B) <> "" Then
大计数 = 大计数 + 1
Sheet2.Range("b" & A) = 大计数
ElseIf Sheet2.Range("a" & A) = Sheet1.Range("a" & B) And Sheet1.Range("b" & B) <> "" And Sheet1.Range("c" & B) = "" Then
小计数 = 小计数 + 1
Sheet2.Range("c" & A) = 小计数
ElseIf Sheet2.Range("a" & A) = Sheet1.Range("a" & B) And Sheet1.Range("c" & B) <> "" And Sheet1.Range("d" & B) <> "返回公司" Then
可修数 = 可修数 + 1
Sheet2.Range("d" & A) = 可修数
Else
End If
Dim A%, B%, 大计数%, 小计数%, 可修数%
Do While A <> 15
A = A + 1
Do While B <> 15
B = B + 1
If Sheet2.Range("a" & A) = Sheet1.Range("a" & B) And Sheet1.Range("c" & B) <> "" Then
大计数 = 大计数 + 1
Sheet2.Range("b" & A) = 大计数
ElseIf Sheet2.Range("a" & A) = Sheet1.Range("a" & B) And Sheet1.Range("b" & B) <> "" And Sheet1.Range("c" & B) = "" Then
小计数 = 小计数 + 1
Sheet2.Range("c" & A) = 小计数
ElseIf Sheet2.Range("a" & A) = Sheet1.Range("a" & B) And Sheet1.Range("c" & B) <> "" And Sheet1.Range("d" & B) <> "返回公司" Then
可修数 = 可修数 + 1
Sheet2.Range("d" & A) = 可修数
Else
End If