用VBA吧。 '生成工资条 Private Sub CommandButton1_Click() Dim i As Long, j As Long i = 2 j = Range("A65536").End(xlUp).Row Application.ScreenUpdating = False Do While i < j If Cells(i, 1) <> Cells(i + 1, 1) Then Rows(1).Copy Rows(i + 1).Insert shift:=xlDown Rows(i + 1).Insert i = i + 3 j = j + 2 Else i = i + 1 End If Loop Application.ScreenUpdating = True End Sub
'删除工资条 Private Sub CommandButton2_Click() Dim i As Long, lastRow As Long Dim theName As String lastRow = Range("a65536").End(xlUp).Row theName = [a1].Value Application.ScreenUpdating = False For i = lastRow To 2 Step -1 If Cells(i, 1).Value = theName Or Cells(i, 1) = "" Then Rows(i).Delete End If Next Application.ScreenUpdating = True End Sub
9Q0iwAQj.rar
(12 KB, 下载次数: 155)
|