复制当前行并插入复制行 问题

284699069

复制插入后，A列的数字变化了，如何能实现不变？

Sub 宏5()'
' 宏5 宏
'
' 快捷键: Ctrl+w
'
     Dim x As Integer
    x = ActiveCell.Row
    Rows(x).Select
    Selection.Copy
    Rows(x + 1).Select
    Selection.Insert Shift:=xlDown
    Application.CutCopyMode = False
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub

284699069

或者只需要插入复制行的文字可以，不用复制公式

1. Sub 宏5()
   
2. '
   
3. ' 宏5 宏
   
4. '
   
5. ' 快捷键: Ctrl+w
   
6. '
   
7.      Dim x As Integer
   
8.     x = ActiveCell.Row
   
9.     Rows(x).Select
   
10.     Selection.Copy
    
11.     Rows(x + 1).Select
    
12.     Selection.Insert Shift:=xlDown
    
13.     Application.CutCopyMode = False
    
14.     With Selection.Interior
    
15.         .Pattern = xlSolid
    
16.         .PatternColorIndex = xlAutomatic
    
17.         .Color = 65535
    
18.         .TintAndShade = 0
    
19.         .PatternTintAndShade = 0
    
20.     End With
    
21. End Sub
    

复制代码

刀羊

试试公式：
A2=N(OFFSET(A2,-1,))+1