1、首先，打开要复制数据的工作簿和要复制到的工作簿，如下图所示。
2、在要复制的工作簿中按下Alt+F11，打开VBA编辑界面，双击要复制数据所在的工作表，弹出右侧空白代码编辑区，如下图所示。
3、输入代码：
Sub 鱼木混猪()
Range("B1:B9").Copy Workbooks("标题.xlsx").Sheets("目的工作表").Range("B1")
End Sub
如下图所示，实际使用中根据情况修改其中的参数即可。
4、点击代码中的任意位置，然后点击上方的“运行子程序”按钮，如下图所示。
5、这样，打开复制到的工作簿中的指定工作表，就可以看到将代码所在工作簿中的数据复制到这个工作簿的指定位置了，如下图所示。
1、1.打开两个工作簿；
2.在要复制的工作簿按下Alt+F11；
3.输入代码，核心代码：
Range("B1:B9").Copy Workbooks("标题.xlsx").Sheets("目的工作表").Range("B1")
4.点击“运行子程序”；
5.就在复制到的工作簿中看到复制过来的数据了。