小编HSH*_*SHO的帖子

我已经成功使用以下代码几天了，但是当Source File. 现在，代码使文件Not Responding.The Source Fileused 包含大约 500K 行，并且运行良好。然而，现在即使有 350K 行，它也陷入困境。

该代码的目的是从不同的工作簿中提取数据，根据匹配值复制整行，然后将它们粘贴到Destination FileSheet2 中。

我怀疑速度减慢是由于搜索所需的时间造成的，从而导致了Not Responding问题。

任何帮助或见解将不胜感激。谢谢。”

我提供了一个包含这两个文件的链接，这应该可以让您更清楚地了解该问题。文件

Sub FMID()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Application.EnableEvents = False
    Application.DisplayAlerts = False
    
    Dim wb1 As Workbook
    Dim wsHF As Worksheet
    Dim wsWellcare As Worksheet
    Dim searchValue As Variant
    Dim lastRow As Long
    Dim source1Data As Variant
    Dim source2Data As Variant
    Dim targetRow As Long
    
    Set wb1 = Workbooks("Source File.xlsx")
    Set …