在EXCEL中用宏生成两行标题的工资条的VBA代码

1、.Sub 生成工资条 ()Cells.SelectRange(F1).ActivateSelection.Borders(xlDiagonalDown).LineStyle = xlNoneSelection.Borders(xlDiagonalUp).LineStyle = xlNoneSelection.Borders(xlEdgeLeft).LineStyle = xlNoneSelection.Borders(xlEdgeTop).LineStyle = xlNoneSelection.Borders(xlEdgeBottom).LineStyle = xlNoneSelection.

2、Borders(xlEdgeRight).LineStyle = xlNoneSelection.Borders(xlInsideVertical).LineStyle = xlNoneSelection.Borders(xlInsideHorizontal).LineStyle = xlNoneRows(3:3).SelectSelection.Insert Shift:=xlDownSelection.Insert Shift:=xlDownnum = 600col = 29num1 = 6Do While num1 = numRange(Cells(num1, 1), Cells(num

3、1, col).SelectSelection.Insert Shift:=xlDownSelection.Insert Shift:=xlDownSelection.Insert Shift:=xlDown.num1 = num1 + 4LoopRange(Cells(1, 1), Cells(2, col).SelectApplication.CutCopyMode = FalseSelection.CopyRange(A3).SelectActiveSheet.Pastenum2 = 7Do While num2 = numRange(Cells(1, 1), Cells(2, col)

4、.SelectApplication.CutCopyMode = FalseSelection.CopyCells(num2, 1).SelectActiveSheet.Pastenum2 = num2 + 4LoopRange(Cells(3, 1), Cells(5, col).SelectApplication.CutCopyMode = FalseSelection.Borders(xlDiagonalDown).LineStyle = xlNoneSelection.Borders(xlDiagonalUp).LineStyle = xlNoneWith Selection.Bord

5、ers(xlEdgeLeft).LineStyle = xlDouble.Weight = xlThick.ColorIndex = xlAutomaticEnd WithWith Selection.Borders(xlEdgeTop).LineStyle = xlDouble.Weight = xlThick.ColorIndex = xlAutomaticEnd WithWith Selection.Borders(xlEdgeBottom).LineStyle = xlDouble.Weight = xlThick.ColorIndex = xlAutomaticEnd WithWit

6、h Selection.Borders(xlEdgeRight).LineStyle = xlDouble.Weight = xlThick.ColorIndex = xlAutomaticEnd WithWith Selection.Borders(xlInsideVertical).LineStyle = xlDash.Weight = xlThin.ColorIndex = xlAutomatic.End WithWith Selection.Borders(xlInsideHorizontal).LineStyle = xlDash.Weight = xlThin.ColorIndex = xlAutomaticEnd WithSelection.CopyRange(Cells(7, 1), Cells(9, col).SelectSelection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=Falsenum3 = 11Do While num3 = numRange(Cells(num3, 1), Cells(num3 + 2, col).SelectSelection.PasteSpecial Paste:=xlFormats, Ope