excel表格内容自动复制

excel表格内容自动复制，可以依照下列方式进行：

1. 如下是一个Excel工作薄中的两张表，分别为Sheet1和Sheet2，下面分别以表1和表2来代替。要把表2中的语文成绩导入到表1中，但是从图中可以看出表1和表2名字并不一一对应
   

   
   

   

2. 选中表1，选中C2单元格，即语文项目中第一个要录入的成绩。选择“插入—函数”命令
   

3. 

   3.在“或选择类别”中选择“查找与引用”

4. 

   4.在对应的“选择函数”中选择“VLOOKUP”，点击确定

5. 

   5.在出现的“函数参数”面板点击第一个选项箭头处的按钮

6. 

   6.点击“张三”名字，即“A2”单元格，表示要查找“张三”的成绩，点击上面的按钮回到面板上

7. 

   7.点击第二个选项箭头处的按钮

8. 

   8.选中表2，同时选择A列和B列，然后点击上面的按钮

9. 

   9.因为在表2中语文成绩在第二列，所以第三项填入数字“2”

10. 

    10.第四项直接填入“0”即可，点击确定

11. 

    11·.看到表1中张三的语文成绩出现了数值，该数值与表2相同

    
    

12. 

    12.选中C2单元格，用填充柄下拉，所有的语文成绩就从表2填入表1中去了

13. 

按CTRL选中要复制的工作表，在所需复制的单元格中输入内容，所选工作表相同单元格的内容完全相同

=sheet1!A1 直接引用就行了

在表格二的A1单元格里输入：=[Book1]Sheet1!$A$1
在表格三的A1单元格里输入：=[Book1]Sheet1!$A$2
在表格四的A1单元格里输入：=[Book1]Sheet1!$A$3
还有一种办法就是在表格一中建立宏，将以下宏代码粘贴进去，每次想复制的时候运行一下。
Sub Macro1()
Range("A1").Select
Selection.Copy
Windows("Book2").Activate
Range("A1").Select
ActiveSheet.Paste
Windows("Book1").Activate
Range("A2").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Book3").Activate
ActiveSheet.Paste
Windows("Book1").Activate
Range("A3").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Book4").Activate
ActiveSheet.Paste
Windows("Book1").Activate
End Sub

直接引用呗