急！怎样装一个工作表中的内容同时放在其他多个工作表中

来源：百度知道 编辑：UC知道 时间：2024/09/22 19:36:44
姓名 月份 基本工资 岗位工资 工资总额
耿亮 1 260 800 1060
耿亮 2 260 800 1060
耿亮 3 260 800 1060
耿亮 4
耿亮 5
张三 1
张三 2
李四 1
李四 2
姓名若干，每人都为1－12月份，后面都有相应内容，我想问的是怎样将这一个工作表中的内容快速放置在以各个名字命名的工作表中，每个工作表的结构都是一样的
放置在以各人姓名命名的工作表中时也是从1至12月

可以用vba来做

可以用vba
按住ALT,依次按F11,I,M
粘贴代码后回到excel界面，选择总表后按ALT+F8，执行它

Sub 表格拆分()
For r = 2 To [A65536].End(xlUp).Row
Range(Cells(r, 1), Cells(r, 5)).Copy Sheets(Cells(r, 1).Value).Cells(Cells(r, 2) + 1, 1)
Next r
End Sub