动态确定单元格返回值及VBA获取Sheet2 B列邮箱的技术问询

嘿，我看你这段代码是想匹配Sheet1和Sheet2的A列内容，把对应Sheet2的B列邮箱提取出来，但现在拿不到邮箱对吧？大概率是你代码里截断的check = App...部分没写对匹配逻辑，导致没法定位到Sheet2里的对应行，自然拿不到邮箱。我帮你把代码补全并修正，顺便给你讲讲问题出在哪：

修正后的完整代码 #

Sub mail()
    Dim A As Long
    Dim sh1 As Worksheet
    Dim sh2 As Worksheet
    Dim wb As Workbook
    Dim matchRow As Variant ' 用Variant存储匹配结果，因为Match找不到会返回错误值
    
    Set wb = Excel.ActiveWorkbook
    Set sh1 = wb.Worksheets(1)
    Set sh2 = wb.Worksheets(2)
    
    Application.ScreenUpdating = False ' 关闭屏幕刷新，提升运行速度
    
    ' 遍历Sheet1的A列数据（从第2行开始，假设第1行是表头）
    For A = 2 To sh1.Cells(Rows.Count, "A").End(xlUp).Row
        ' 在Sheet2的A列查找当前Sheet1的A值，0表示精确匹配
        matchRow = Application.Match(sh1.Cells(A, "A").Value, sh2.Columns("A"), 0)
        
        ' 检查是否找到有效匹配（避免Match返回错误值导致报错）
        If Not IsError(matchRow) Then
            ' 把Sheet2对应行的B列邮箱写入Sheet1的C列（你可以改成自己需要的列）
            sh1.Cells(A, "C").Value = sh2.Cells(matchRow, "B").Value
        Else
            ' 如果没找到匹配项，标记提示（可选）
            sh1.Cells(A, "C").Value = "无匹配邮箱"
        End If
    Next A
    
    Application.ScreenUpdating = True ' 恢复屏幕刷新
    MsgBox "邮箱提取完成！"
End Sub

你原来代码的问题点 #

1. 匹配逻辑不完整：你写的check = App...应该是Application.Match的开头，但没写完，导致程序根本没执行查找匹配的步骤，自然拿不到Sheet2的邮箱。
2. 缺少匹配结果判断：即使写了Match，如果没找到匹配项它会返回错误值，直接用的话会触发报错，必须用IsError来判断是否匹配成功。
3. 没有明确写入位置：你原来的代码没指定把提取到的邮箱写到哪里，就算找到了也没地方输出。

额外注意事项 #

• 确保Sheet1和Sheet2的A列数据格式一致：比如一个是文本格式的编号，一个是数字格式，Match会识别成不同值导致匹配失败。
• 如果Sheet2的A列有重复值，Application.Match只会返回第一个匹配的行；要是需要提取所有重复项的邮箱，得换成Range.Find配合循环来实现。
• 运行完一定要恢复ScreenUpdating = True，否则Excel界面会一直处于卡顿状态。

内容的提问来源于stack exchange，提问作者alex2002