如何将表一中一列数据分别自动填写到多个工作表的相同位置?急急急啊

Question

例如：
表一中有一列姓名：张三，李四，王五.......
表二中A1中填入张三
表三中A1中填入李四
表四种A1中填入王五
...........
以此类推
怎样让他自动填入后面的每一个表相应的位置中
表二及后面的表都是一样的表，只是要分别填入不同的姓名，就是这个意思
请大虾帮忙啊

Answer 1

Excel 内按 Alt+F11
视图--代码窗口，把如下代码复制进去， F5运行

sub xxx()
for i=2 to sheets.count
sheets(i).[A1]=sheets(1).range("A" & i) 'range(A 表示 A列为姓名
next
end sub