VBA第8讲作业答案上传贴

lingl

还在试。。。em04]

zwwlzhm

<p>Sub 物品1有物品2没有()<br/>&nbsp; Range("e2:e65536") = ""<br/>&nbsp; Dim arr1, arr2, z%, x%, y%<br/>&nbsp; arr1 = Range("a2:a" &amp; [a65536].End(xlUp).Row)<br/>&nbsp; arr2 = Range("b2:b" &amp; [b65536].End(xlUp).Row)<br/>&nbsp; For y = 1 To [a65536].End(xlUp).Row - 1<br/>&nbsp;&nbsp;&nbsp; For x = 1 To [a65536].End(xlUp).Row - 1<br/>&nbsp;&nbsp;&nbsp; z = [e65536].End(xlUp).Row + 1<br/>&nbsp;&nbsp;&nbsp; If arr1(y, 1) = arr2(x, 1) Then GoTo 100<br/>&nbsp;&nbsp;&nbsp; Next<br/>&nbsp;&nbsp;&nbsp; Range("e" &amp; z) = arr1(y, 1)<br/>100:<br/>&nbsp; Next<br/>End Sub</p><p>Sub 物品2有物品1没有()<br/>&nbsp; Range("f2:f65536") = ""<br/>&nbsp; Dim arr1, arr2, z%, x%, y%<br/>&nbsp; arr1 = Range("a2:a" &amp; [a65536].End(xlUp).Row)<br/>&nbsp; arr2 = Range("b2:b" &amp; [b65536].End(xlUp).Row)<br/>&nbsp; For y = 1 To [b65536].End(xlUp).Row - 1<br/>&nbsp;&nbsp;&nbsp; For x = 1 To [a65536].End(xlUp).Row - 1<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; z = [f65536].End(xlUp).Row + 1<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If arr2(x, 1) = arr1(y, 1) Then GoTo 100<br/>&nbsp;&nbsp;&nbsp; Next<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Range("f" &amp; z) = arr2(y, 1)<br/>100:<br/>&nbsp; Next<br/>End Sub<br/></p>