现金银行模糊对帐

songshisheng

<p>Sub Macro1()<br/>&nbsp;&nbsp;&nbsp; W = 900&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '企业帐末行行号<br/>&nbsp;&nbsp;&nbsp; Q = 905&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '银行帐末行行号<br/>&nbsp;&nbsp;&nbsp; For i = 3 To W<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For j = 3 To Q<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If IsEmpty(Sheet1.Range("g" + CStr(i))) = "FALSE" Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If Sheet1.Range("g" + CStr(i)) = Sheet2.Range("g" + CStr(j)) Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If Sheet2.Range("L" + CStr(j)) &lt;&gt; "＊" Then&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '以上判断值是否调对，并替换 '= ok how<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Sheet1.Range("I" + CStr(i)) = "＊"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Sheet2.Range("L" + CStr(j)) = "＊"&nbsp;&nbsp; '以上判断值是否相符，并替换<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Exit For<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If&nbsp; '应返回 NEXT I<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next j&nbsp;&nbsp; '导致银行相同金额同时变OK<br/>&nbsp;&nbsp;&nbsp;&nbsp; Next i&nbsp;&nbsp;&nbsp;&nbsp; '以上继续向下查找<br/>&nbsp; <br/>End Sub<br/>'w 为结果项最大行数，Q为目标项最大行数，I为结果项行数范围，J为目标项行数范围。<br/>'SHEET1 G列为企业收款、SHEET2 G列为银行收款。<br/>请各位高手协助测试并提出宝贵意见。</p>