我正在尝试使用excel vba从一个工作簿中复制一行数据并将其粘贴到另一个工作簿中 . 当我粘贴它时，它将转到第二个工作簿中的2个不同的工作表 . 将一个副本粘贴到第一个工作表（即主工作表），将第二个副本粘贴到对特定类别进行分组的特定工作表 .

示例：第一个工作簿是包含vba代码的工作簿 . 这是我输入数据的工作簿 . 输入数据后，我在我的用户表单上按Enter键并将其复制 . 将打开第二个工作簿，并将数据粘贴到该书的sheet1上，并将其粘贴到具有相同类别的另一个工作表 .

最终结果是：第二个工作簿将包含输入所有数据的第一个工作表 . 之后的每个附加工作表将仅包含按类别分类的数据 .

这是我正在使用的代码：

sheet6.activate

mainCategory=cells(2,2).value

range("a2:g2").copy

dim wscount as integer
dim I as integer

nameoffile = sheets(sheet5).cells(21,1).value
workbook.open (nameoffile)

wscount=activeworkbook.worksheets.count

for I =1 to wscount
    if activeworkbook.worksheets(I).name=mainCategory then 
        worksheets(I).activate
        erow=activesheet.cells(row.count,1).end(xlup).offset(1,0).row

        'THIS NEXT ROW IS WHERE I'M HAVING PROBLEMS'''''''''''''
        activesheet.paste destination:=worksheets(I).rows(erow) 
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    end if
next I
activeworkbook.save
activeworkbook.close

当数据粘贴到第二个工作簿时，它会在两个工作表上的整个行中重复粘贴 .

我在youtube上找到了这个代码，我完全按照它显示的方式输入了它，但是我在某个地方遗漏了某些东西，有人可以帮助我 .

提前致谢 .

excel vba copy-paste