公司全部人员月工资以一sheet报表(如下图:表第一行为姓名,工号等等下面一行一行为各人员的本月工资)保存,欲实现以下功能: 问题点:如何把每个人的工资单记录单独取出生成以独立的SHEET, 即假设有10个员工就生成10个sheet

Private Sub CommandButton1_Click() For i = 2 To [a1].End(xlDown).Row Sheets.Add.Name = Cells(i, 4) Sheets(Cells(i, 4).Value).Range("a1:j1") = Range("a1:j1").Value Sheets(Cells(i, 4).Value).Range("a2:j2") = Range("a" & i & ":j" & i).Value Next End Sub 
|