如何匹配员工ID将指定员工数据复制至其他工作表（含VBA问题）

我来帮你梳理下这段代码里的问题，以及给出更高效的解决方案：

原代码里的核心问题 #

• Range引用错误：你写的Range("A")是无效引用，必须指定具体行号，比如对应循环变量的Range("A" & a)和Range("A" & b)，否则VBA不知道你要定位哪一行的单元格。
• 低效的嵌套循环：1000行×400行的循环会执行40万次，不仅运行缓慢，还容易出现无意义的重复比对，其实完全可以用Excel内置的查找函数快速定位匹配项。
• 多余的激活/选择操作：Activate和Select是VBA里的常见冗余操作，不仅拖慢速度，还容易因为工作表切换出现意外错误，直接引用单元格赋值才是更稳妥的方式。
• 粘贴方法错误：Select.paste是错误写法，就算要复制粘贴也应该用ActiveSheet.Paste，但其实我们完全可以跳过复制粘贴步骤，直接把值赋值过去，效率更高。

修正后的高效代码 #

Sub TransferPhoneNumbers()
    Dim sourceWs As Worksheet
    Dim targetWs As Worksheet
    Dim lastSourceRow As Long
    Dim lastTargetRow As Long
    Dim targetRow As Long
    Dim sourceId As Variant
    
    ' 明确指定工作表，建议改成实际工作表名称（比如"员工总表"），避免依赖默认顺序
    Set sourceWs = ThisWorkbook.Worksheets(1)
    Set targetWs = ThisWorkbook.Worksheets(2)
    
    ' 动态获取数据最后一行，不用硬写1000/400，数据行数变化也能适配
    lastSourceRow = sourceWs.Cells(sourceWs.Rows.Count, "A").End(xlUp).Row
    lastTargetRow = targetWs.Cells(targetWs.Rows.Count, "A").End(xlUp).Row
    
    ' 遍历目标工作表的ID行
    For targetRow = 2 To lastTargetRow
        sourceId = targetWs.Cells(targetRow, "A").Value
        
        ' 用Match函数快速定位源表中匹配的ID行
        Dim matchRow As Variant
        matchRow = Application.Match(sourceId, sourceWs.Range("A:A"), 0)
        
        ' 找到匹配项就赋值手机号，没找到可以标记提示
        If Not IsError(matchRow) Then
            targetWs.Cells(targetRow, "C").Value = sourceWs.Cells(matchRow, "F").Value
        Else
            targetWs.Cells(targetRow, "C").Value = "未找到匹配ID"
        End If
    Next targetRow
    
    MsgBox "手机号迁移完成！"
End Sub

代码优化说明 #

• 明确工作表引用：用变量指定工作表，比Worksheets(1)更清晰，也避免后续工作表顺序变动导致的错误。
• 动态行号适配：不再固定写死行数，不管源表/目标表的数据量变化，代码都能正常工作。
• 高效查找替代循环：Match是Excel内置的高效查找函数，比嵌套循环快得多，数据量越大优势越明显。
• 直接赋值替代复制粘贴：跳过复制粘贴的繁琐步骤，直接把源表手机号的值赋给目标表单元格，既高效又避免工作表切换的问题。

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