公司全部人员月工资以一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
本文地址:http://com.8s8s.com/it/it44319.htm