工资条求助修复一个BUG

糸内粹

给各位大神声明下，大部分代码都有，不用写代码，只是帮我改改代码，修复一下。【表2】是原有的代码做出来的结果，但我想要【表1】的样子，只要将K列的实发工资复制到下一行显示并大写。

bug出现在于【表2】运行原代码的结果是其他都没问题，就是覆盖序号上方的【序号】，变成了空值单元格，就是不知道如何修复这个问题，在此感谢大神帮忙一下。

糸内粹

或补充一段隔行复制粘贴也可以。

糸内粹

顶起给大神看到

糸内粹

顶起给大神看到

扑腾

Sub 宏1()


Dim arr
With Worksheets("sheet2")
  r = .[a65536].End(xlUp).Row
  For i = 2 To r Step 3
    If IsNumeric(.Cells(i, 11)) Then
       .Cells(i + 1, 1) = .Cells(i, 11)
       .Cells(i + 1, 1).NumberFormatLocal = "[DBNum2][$-804]G/通用格式"
       End If
  Next
End With
End Sub

扑腾

表名记得更改，别心急哦

糸内粹

扑腾 发表于 2018-6-11 21:24
Sub 宏1()

谢谢大神，我是用 With ActiveSheet  好通用点。

扑腾

糸内粹 发表于 2018-6-11 21:37
谢谢大神，我是用 With ActiveSheet  好通用点。

你最好先用副本试一下

糸内粹

扑腾 发表于 2018-6-11 21:42
你最好先用副本试一下

不用，直接改上了，谢谢