VBA从一个Excel搜索到另一个Excel并显示单元格地址

Question

我有两个Excel文件。 我正在使用唯一的电子邮件ID在另一个文件中搜索数据。 我从一个Excel文件中一个接一个地获取电子邮件ID，然后在另一个Excel文件中搜索。 一旦找到数据，我想要单元地址。 我在“ MsgBox cell.Address”代码上收到“对象变量或未设置块变量”的错误。 请协助

Dim myFileNameDir As String
Dim myFileNameDir2 As String
Dim ws As Worksheet
Dim ws2 As Worksheet
Dim emailID As String
Dim cell As Range
Dim II As Integer
Dim III As Integer

myFileNameDir2 = TextBox2.Value
Workbooks.Open Filename:=myFileNameDir2, UpdateLinks:=0
Set ws2 = Worksheets(1)

myFileNameDir = TextBox1.Value
Workbooks.Open Filename:=myFileNameDir, ReadOnly:=True, UpdateLinks:=0
Set ws = Worksheets(1)


II = ws2.Cells(ws2.Rows.Count, "A").End(xlUp).Row

For III = 2 To II
emailID = ws2.Cells(III, "D").Value

Set cell = ws.Range("AA2:AA1048576").find(emailID, LookAt:=xlWhole)
MsgBox cell.Address

Next III

Answer 1

在这种情况下，最有可能出现错误，因为Find方法没有找到匹配项，因此没有任何返回值。 从VBA使用Find方法可能很棘手，尤其是在查看xlWhole时。 您确定另一张纸上有匹配的值吗？ 您确定比赛正确吗？ 等等，即使合并的单元格也可以抛出Find方法。

通常，使用工作表函数会使速度变慢，但是在这种情况下，最好使用MATCH函数查找匹配的行，然后将该值返回到单元格地址中。

祝好运！