1、Sub制作工資條()制作工資條MacroCells SelectSelection.CopySheets (，zSheet3z/) SelectActiveWindow SmallScroll Down：=-15Range (，?A1Z/) SelectActiveSheet PasteRange("K3") SelectApplication. CutCopyMode = FalseActiveCel1FonnulaRlCl = "1Range CZL4，Z) SelectSelection. Style ="常規 2"With Select

2、ionInterior Pattern = xlNoneTintAndShade = 0Pat t ernT intAndShade = 0End WithSelection. Borders(xlDiagonalDora)LineStyle = xlNoneSelection. Borders (xlDiagonalUp)LineStyle = xlNoneWith Selection Borders(xlEdgeLeft)LineStyle = xlContinuous Colorindex = 0TintAndShade = 0 Weight = xlThinEnd WithSelect

3、ion. Borders (xlEdgeTop)LineStyle = xlNoneSelectionBorders(xlEdgeBottom)LineStyle = xlNoneSelection Borders (xlEdgeRight) LineStyle = xlNoneSelectionBorders (xllnsideVertical)LineStyle = xlNoneSelection.Borders (xlInsideHorizontal)LineStyle = xlNoneWith SelectionHorizontalAlignment = xlCenterVert ic

4、alAlignment = xlCenter WrapText = FalseOrientation = 0 Addindent = False ShrinkToFit = False ReadingOrder = xlContextMergeCells = FalseEnd WithActiveCel1FonnulaRlCl = "1RangeCK3:L4"). SelectSelection. AutoFill Destination: =Range(，?K3:L47)RangeCK3:L47"). SelectSelection.SpecialCells(x

5、lCellTypeBlanks) SelectSelection. EntireRowInsert , CopyOrigin:=xlFormatFromLeftOrAboveActiveWindow SmallScroll Down：=-12Range("Al：JI")SelectSelection. CopyActiveWindow SmallScroll Down:=90Range CAI :J923. SelectSelection SpecialCells(xlCellTypeBlanks) SelectActiveSheet PasteActiveWindow SmallScroll Down:=-9Columns("K:L") SelectApplicationCutCopyMode = FalseSelection. ClearContentsSelection.Delete Shift:=xlToLeftCell