在excel制表工作薄下的工作表中有5张表。

来源:百度知道 编辑:UC知道 时间:2024/05/30 14:38:24
在5张表其中有2001年至2005年其他应收款,其中具有相同记录的人员姓名和金额筛选出来。
excel工作薄中有5张工作表分别为01年至05年其他应收款个人借款明细,要找5年中金额没动始终没还款的人。

假设表1至表5中,A列为姓名,B列为金额,运行宏abc,在表5中能查看结果,宏abc:
Sub abc()
i = 1
Do While Sheets(5).Cells(i + 1, "A") <> ""
i = i + 1
j = 1
For r = 1 To 4
k = 1
Do
k = k + 1
If Sheets(5).Cells(i, "A") = Sheets(r).Cells(k, "A") And Sheets(5).Cells(i, "B") = Sheets(r).Cells(k, "B") Then
j = j + 1
Exit Do
End If
Loop While Sheets(r).Cells(k, "A") <> ""
Next r
If j = 5 Then
Sheets(5).Cells(i, "C") = "五年未还款"
End If
Loop
End Sub

七层嵌套IF,够你用的了.

描述的不够清楚啊

不懂 什么意思