Private Sub CommandButton1_Click()
For i = 2 To [a1].End(xlDown).Row
Sheets.Add.Name = Cells(i, 1)
Sheets(Cells(i, 1).Value).Range("a1:c1") = Range("a1:c1").Value
Sheets(Cells(i, 1).Value).Range("a2:c2") = Range("a" & i & ":c" & i).Value
Next
End Sub
是http://club.excelhome.net论坛里的ovxyz告诉我的解决方式。可惜不能给他加分