如何根据G列文本跨工作簿复制行及修复VBA编译报错

• 变量类型声明错误是触发编译报错的核心原因：代码中将Source、Target等变量声明为Workbooks（即工作簿集合对象），但实际赋值时取的是单个工作表（Worksheet类型），类型不匹配导致VBA无法识别工作表的Range、Cells属性，直接抛出「方法或数据成员未找到」错误。
• 存在隐式引用隐患：原代码中所有Rows.Count没有指定所属工作表，默认会读取当前活动工作表的总行数，若运行宏时活动工作表不是目标操作表，会出现遍历范围错误、粘贴位置错位的问题。
• 逻辑缺项：需求提到需要将数据分发到4个目标工作簿，当前代码仅定义了3个目标工作表，若存在第4个分类，参照现有代码结构补全变量声明、对象绑定和判断分支即可。

Sub CopyPastedata()
    ' 变量声明：操作单个工作表需用Worksheet类型，不要误用Workbooks集合类型
    Dim c As Range
    Dim Source As Worksheet
    Dim Target As Worksheet
    Dim Target1 As Worksheet
    Dim Target2 As Worksheet
    ' 存在第4个目标时追加声明即可，例：Dim Target3 As Worksheet
    
    Dim lastRow As Long ' 存储源表有效数据最后一行行号
    Dim pasteRow As Long ' 存储目标表粘贴起始行号
    
    ' 绑定源表与目标表，要求所有文件已打开，文件名、表名需与实际完全一致
    Set Source = Workbooks("CostIncreaseTemplate.xlsm").Worksheets("Sheet1")
    Set Target = Workbooks("Fresh.xlsx").Worksheets("Fresh")
    Set Target1 = Workbooks("CannedGoods.xlsx").Worksheets("CannedGoods")
    Set Target2 = Workbooks("Baking.xlsx").Worksheets("Baking")
    ' 存在第4个目标时追加绑定即可，例：Set Target3 = Workbooks("第4个文件名.xlsx").Worksheets("对应表名")
    
    ' 按G列计算源表有效数据最后一行，所有Rows.Count前明确指定所属工作表
    lastRow = Source.Cells(Source.Rows.Count, "G").End(xlUp).Row
    
    ' 遍历G列单元格匹配分类
    For Each c In Source.Range("G1:G" & lastRow)
        Select Case c.Value
            Case "Fresh"
                pasteRow = Target.Cells(Target.Rows.Count, "A").End(xlUp).Row + 1
                c.EntireRow.Copy
                Target.Range("A" & pasteRow).PasteSpecial xlPasteValues
            Case "CannedGoods"
                pasteRow = Target1.Cells(Target1.Rows.Count, "A").End(xlUp).Row + 1
                c.EntireRow.Copy
                Target1.Range("A" & pasteRow).PasteSpecial xlPasteValues
            Case "Baking"
                pasteRow = Target2.Cells(Target2.Rows.Count, "A").End(xlUp).Row + 1
                c.EntireRow.Copy
                Target2.Range("A" & pasteRow).PasteSpecial xlPasteValues
            ' 存在第4个分类时追加分支即可
            ' Case "第4个分类值"
            '     pasteRow = Target3.Cells(Target3.Rows.Count, "A").End(xlUp).Row + 1
            '     c.EntireRow.Copy
            '     Target3.Range("A" & pasteRow).PasteSpecial xlPasteValues
        End Select
    Next c
    
    ' 清空剪贴板，避免复制状态残留
    Application.CutCopyMode = False
End Sub

• 如果不需要复制表头行，遍历范围将G1改为G2即可。
• 如果需要同时复制单元格格式，将粘贴参数xlPasteValues改为xlPasteAll即可。
• 运行前确认所有涉及的工作簿都处于打开状态，代码中填写的文件名、工作表名要和实际完全匹配，大小写、后缀名不能出错。

内容的提问来源于stack exchange，提问作者Ryan D'Ambrosio