如何快速制作工资条（双行标题）？

如何快速制作工资条（双行标题）？

用VBA吧，代码如下： ----------代码开始---------- Cells。Select Range("F1")。Activate Selection。 Borders(xlDiagonalDown)。LineStyle = xlNone Selection。Borders(xlDiagonalUp)。LineStyle = xlNone Selection。 Borders(xlEdgeLeft)。LineStyle = xlNone Selection。Borders(xlEdgeTop)。LineStyle = xlNone Selection。 Borders...全部

  用VBA吧，代码如下： ----------代码开始---------- Cells。Select Range("F1")。Activate Selection。
  Borders(xlDiagonalDown)。LineStyle = xlNone Selection。Borders(xlDiagonalUp)。LineStyle = xlNone Selection。
  Borders(xlEdgeLeft)。LineStyle = xlNone Selection。Borders(xlEdgeTop)。LineStyle = xlNone Selection。
  Borders(xlEdgeBottom)。LineStyle = xlNone Selection。Borders(xlEdgeRight)。LineStyle = xlNone Selection。
  Borders(xlInsideVertical)。LineStyle = xlNone Selection。Borders(xlInsideHorizontal)。LineStyle = xlNone '选择整个表去掉表格线 Rows("3:3")。
  Select '选择第3行 num = (ActiveSheet。UsedRange。Rows。Count - 2) * 4 '获取工资表除标题外的总行数，并*4以创建双行标题工资条 col = ActiveSheet。
  UsedRange。Columns。Count '获取工资表的总列数 Selection。Insert Shift:=xlDown Selection。
  Insert Shift:=xlDown '在选中行前插入两行，以填充标题行 num1 = 6 '从第六行开始，循环每四行插入空行 Do While num1 <= num Range(Cells(num1, 1), Cells(num1, col))。
  Select Selection。Insert Shift:=xlDown Selection。Insert Shift:=xlDown Selection。
  Insert Shift:=xlDown num1 = num1 + 4 Loop Range(Cells(1, 1), Cells(2, col))。
  Select '选择标题行 Application。CutCopyMode = False Selection。Copy Range("A3")。
  Select ActiveSheet。Paste '粘贴标题行到A3单元格 num2 = 7 '从第七行开始，循环每四行粘贴标题行 Do While num2 <= num Range(Cells(1, 1), Cells(2, col))。
  Select Application。CutCopyMode = False Selection。Copy Cells(num2, 1)。
  Select ActiveSheet。Paste num2 = num2 + 4 Loop Range(Cells(3, 1), Cells(5, col))。
  Select '选择第3行到第5行（第一个工资条），以设置工资条格式 Application。CutCopyMode = False Selection。
  Borders(xlDiagonalDown)。LineStyle = xlNone Selection。Borders(xlDiagonalUp)。LineStyle = xlNone With Selection。
  Borders(xlEdgeLeft) 。LineStyle = xlDouble 。Weight = xlThick 。
  ColorIndex = xlAutomatic End With With Selection。Borders(xlEdgeTop) 。
  LineStyle = xlDouble 。Weight = xlThick 。ColorIndex = xlAutomatic End With With Selection。
  Borders(xlEdgeBottom) 。LineStyle = xlDouble 。Weight = xlThick 。
  ColorIndex = xlAutomatic End With With Selection。Borders(xlEdgeRight) 。
  LineStyle = xlDouble 。Weight = xlThick 。ColorIndex = xlAutomatic End With With Selection。
  Borders(xlInsideVertical) 。LineStyle = xlDash 。Weight = xlThin 。
  ColorIndex = xlAutomatic End With With Selection。Borders(xlInsideHorizontal) 。
  LineStyle = xlDash 。Weight = xlThin 。ColorIndex = xlAutomatic End With '格式设置完毕 Selection。
  Copy '复制已设置好格式的工资条 Range(Cells(7, 1), Cells(9, col))。Select '选择第二个工资条 Selection。
  PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False '粘贴工资条样式 num3 = 11 '从第十五行开始，循环每四行粘贴工资条样式 Do While num3 <= num Range(Cells(num3, 1), Cells(num3 + 2, col))。
  Select Selection。PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False num3 = num3 + 4 Loop Rows("1:2")。
  Select Selection。Delete '删除原始标题行----------代码结束---------- 使用方法：录制宏-然后编辑宏输入以上代码。收起