实现将一个工资汇总表sheet拆分成多个个人工资单sheet

类别:.NET开发 点击:0 评论:0 推荐:

公司全部人员月工资以一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