Excel 将工作簿上的数据复制并粘贴到已打开的工作簿中

我对VBA相当陌生，不确定这是否可以实现

我想将两行数据粘贴到已打开的工作簿中

我将尝试用一个例子进一步解释我想要什么

考虑一个工作簿“a”，其中数据由其他人手动输入。工作簿“B”将在我的系统上保持打开状态。工作簿“B”中的第一行将有标题。我希望复制工作簿“A”最后两行中的数据，然后在页眉下方插入两行新行后粘贴到已打开的工作簿“B”中。 假设第10行和第11行是工作簿“A”中的最后两行，则应复制这两行，然后在顶部插入两行新行后，将其粘贴到工作簿“B”的第2行和第3行。工作簿“A”第10行的数据应粘贴到工作簿“B”的第3行，工作簿“A”的第11行应复制到工作簿“B”的第2行。工作簿“B”将始终对我保持打开状态，其他人将可以访问工作簿“A”

我真的不知道这是否可以做到，因为这个原因，我不能拿出任何VBA代码，我可以在这里介绍

因为这个原因，我想在这里问一下。希望能从这里的专家那里得到一些指导。 提前感谢

复制行

• 调整常量部分中的值

选项显式
子复制行（）
“常数
Const swbName As String=“A.xlsx”'源工作簿名称
Const sName As String=“Sheet1”源工作表名称
Const dName As String=“Sheet1”目标工作表名称
Const dFirst As Long=2'目标插入行
Const rRows As Long=2'要插入（复制）的行数
“目的地
'工作簿/工作表
将dwb设置为工作簿：设置dwb=ThisWorkbook包含此代码的工作簿
将dws标注为工作表：设置dws=dwb。工作表（dName）
"来源:
'工作簿/工作表
将swb设置为工作簿：设置swb=工作簿（swbName）
将sws标注为工作表：设置sws=swb.工作表（sName）
'尝试查找最后一个非空单元格。
暗sCell As范围
Set sCell=sws.Cells.Find（“*”，xlFormulas，xlByRows，xlPrevious）
如果sCell为空，则退出“工作表中无数据”子项
'将最后一个非空单元格的行写入变量（源最后一行）。
将sLast调整为长：sLast=sCell.Row
'验证最后一行的源代码
如果sLast

是的，可以这样做。这是它的逻辑。1.识别你的物品。例如，对于

工作簿A

设置wbThis=ThisWorkBook，对于

工作簿B

2设置wbThis=Workbook（“B”）。同样，设置相关的工作表<代码>设置wsThis=wbith.Sheets（“Sheet1”）和

设置wsThat=wbith.Sheets（“Sheet1”）

。根据需要更改工作簿和工作表的名称。3.在

w此

4中。从

wsThis

复制最后一行，并将复制的行插入第二行的

wsThat

。录制宏以了解如何执行此操作。5.对

（Lastrow-1）

重复该步骤。