姓名找帐号 难难难难难

伊楚

首先把相同的表转化成两个名字不同但内容相同的ACCESS数据库，并且在附上关键字段，比如户名"hm",账号“zh"，然后在用access中的语言[sheet1,zh=sheet2,zh],[sheet1,hm=sheet2,hm]即可

YMJWJC

<p>我试着写了个宏,你试下:</p><p></p><p>Sub 自动查找()<br/>Dim arr(), arr1(), arr2()</p><p>Dim i, m, n, X As Integer<br/>Sheet1.Range("J1:O60000") = ""<br/>&nbsp;<br/>arr = Sheet1.Range("a7:D1000")<br/>arr1 = Sheet1.Range("h7:i10000")<br/>For n = 1 To UBound(arr, 1) '</p><p>m = Sheet1.Range("k60000").End(xlUp).Row + 1<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Sheet1.Cells(m, 11) = arr(n, 1)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Sheet1.Cells(m, 12) = "找不到"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br/>If arr(n, 1) &lt;&gt; "" Then</p><p>&nbsp;For i = 1 To UBound(arr1, 1)<br/>&nbsp;&nbsp; If arr1(i, 1) = arr(n, 1) Then<br/>&nbsp;&nbsp; Sheet1.Cells(m, 11) = arr(n, 1)<br/>&nbsp;&nbsp; Sheet1.Cells(m, 12) = arr(n, 2)<br/>&nbsp;&nbsp; Sheet1.Cells(m, 13) = arr(n, 3)<br/>&nbsp;&nbsp; Sheet1.Cells(m, 14) = arr(n, 4)<br/>&nbsp;&nbsp; Sheet1.Cells(m, 15) = arr1(i, 2)<br/>&nbsp;&nbsp; m = m + 1<br/>&nbsp; End If<br/>&nbsp; Next i<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br/>End If<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br/>Next n</p><p>Erase arr<br/>Erase arr1<br/>End Sub<br/></p>