告诉你一个简单的办法，你用透视表，双击每个人的行，系统会自动生成一张表。以上完全满足你的要求，而且简单易用。如果你是想打印工资条，这样的方式比较浪费纸张，你可以下载工资模板http://wenku.baidu.com/view/ccce272...

SubAddWorksheetAfterLast()OnErrorResumeNextFori=1to20Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name="表"&iWorksheets("表"&i).Rows("1")=Worksheets("表0").

1、在excel的加载项选择方方格子，选择汇总拆分功能，2、在下拉菜单中选择拆分工作簿；3、设置要拆分出的工作表，以及需要储存的位置，然后点击确定；4、运行完成后，会有提示，可以直接查看文件，5、在指定的文件夹内就可以...

打开Excel文件，点击工作表页签（原始Sheet），右键——查看代码——粘贴入下列内容Subttt()DimiAsIntegeri=Sheet1.Range("a65536").End(xlUp).RowSheets.Add,Sheets(1),i-1Forn=2Toi...

将Excel每一张工作表转换成单独的工作薄的方法：右击工作表名，点选“移到或复制”；选择“新工作簿”，如果是复制则勾选“建立副本”；确定后，即建立了一个仅包含移动或复制的工作表的新工作簿，可依次右击其它工作表...

Fork=1To1000'根据表格长度m=Cells(k,1)IfCells(k,1)=""ThenEndWorksheets.Add.Name="数据"&k'插入新表格Sheet1.SelectRows(k).SelectSelection.Copy'拷贝表格(1)一行ThisWo...

=OFFSET($A$1,(ROW()+5)/10,0)公式中的5要根据填写数据得行号来微调，凑够“一个周期”公式中的10是所谓的一个周期，也就是你整个下拉复制表格的时候的总行数，比如右图就是9行，再加上一行空白行隔开，...

SubMacro1()Fori=1To10Windows("Book2").ActivateRows(i).SelectSelection.CopyWorkbooks.AddActiveSheet.PasteApplication.CutCopyMode=FalseChDir"C:\DocumentsandSettings\dying\桌面"ActiveWo

拆分工作表为工作薄需要用宏来处理Excel内按Alt+F11视图--代码窗口，把如下复制进去按F5运行即可请这个Excel放到一个文件夹内操作,默认生成到当前文件夹Subfencun()Application.ScreenUpdating=Falseb=...

将Excel每一张工作表转换成单独的工作薄的方法:右击工作表名,点选“移到或复制”;选择“新工作簿”,如果是复制则勾选“建立副本”;确定后,即建立了一个仅包含移动或复制的工作表的新工作簿,可依次右击其它工作表标签,用同样...