Excel VBA宏跨表复制粘贴失败：运行时错误'438'求助

错误原因 #

你的代码触发错误的核心问题有两个：

1. Range("G4").Paste写法错误——Range对象并不支持Paste方法，正确的粘贴操作需要使用PasteSpecial。
2. 依赖Select切换工作表的写法容易导致上下文混乱，增加出错概率，且运行效率更低。

修正方案 #

方案1：使用Copy + PasteSpecial（保留格式/公式等）

如果需要保留原单元格的格式、公式等属性，用这个方案：

Sub State_Selector()
    Dim x As Integer
    Dim targetSheet As Worksheet
    Dim dataSheet As Worksheet
    
    ' 提前定义工作表对象，避免重复调用Sheets
    Set targetSheet = ThisWorkbook.Worksheets("Sheet1")
    Set dataSheet = ThisWorkbook.Worksheets("Data")
    
    For x = 2 To 54
        ' 明确指定工作表，避免上下文混淆
        If dataSheet.Cells(x, 1).Value = targetSheet.Cells(4, 3).Value Then
            dataSheet.Cells(x, 8).Copy
            ' 使用PasteSpecial完成粘贴，可按需选择粘贴类型（如xlPasteValues仅复制值）
            targetSheet.Range("G4").PasteSpecial Paste:=xlPasteAll
            ' 清空剪贴板（可选）
            Application.CutCopyMode = False
            ' 找到匹配项后退出循环（若只需第一个匹配，保留该行；若需所有匹配则删除）
            Exit For
        End If
    Next x
End Sub

方案2：直接赋值（仅复制值，效率更高）

如果只需要复制单元格的值，不需要格式、公式等，直接赋值是更高效稳定的方式，无需依赖剪贴板：

Sub State_Selector()
    Dim x As Integer
    Dim targetSheet As Worksheet
    Dim dataSheet As Worksheet
    
    Set targetSheet = ThisWorkbook.Worksheets("Sheet1")
    Set dataSheet = ThisWorkbook.Worksheets("Data")
    
    For x = 2 To 54
        If dataSheet.Cells(x, 1).Value = targetSheet.Cells(4, 3).Value Then
            ' 直接赋值，跳过剪贴板操作
            targetSheet.Range("G4").Value = dataSheet.Cells(x, 8).Value
            Exit For ' 按需保留或删除该行
        End If
    Next x
End Sub

额外说明 #

• 代码中的Exit For用于找到第一个匹配项后停止循环，若你的需求是将所有匹配项都粘贴到G4（会覆盖之前的内容），可以删除这行。
• 提前定义工作表对象能让代码逻辑更清晰，同时避免因当前激活工作表变化导致的错误。

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