用填充工作组试一下，选择所有工作表，然后选择要填充的内容，在开始菜单，填充/填充至工作组
同时选中多个工作表即可组成一个工作组，工作组类似于复写纸，在一个工作表中输入内容就相当于同时在其它表格输入内容。
以下是vba程序，修改其中的参数就可以完成你要求的填充任务（实例是把数据放在shee1的a1到a14单元格内，填加到sheet2到sheet14中的b5单元格中）
Sub 快速录入()
For i = 2 To 14
Worksheets(i).Activate Cells(5, 2) = Sheet1.Cells(i, 1).Value
Next i
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024