这段代码没理解，有大佬能帮忙看下吗

5587157

Sub SwapRowsWithFormatting()
    Range("A2:Q2").EntireRow.Cut '剪切第二行
    Range("A3:Q3").EntireRow.Insert Shift:=xlDown '将上面剪切的行插入到第三行下面
    Range("A3:Q3").EntireRow.Cut '剪切第三行
    Range("A2:Q2").EntireRow.Insert Shift:=xlUp '将上面剪切的行插入到第二行上面
End Sub

我是想做第二行和第三行互换的效果，这段代码后两行代码就能达成了效果了，前面两行代码我单独运行的时候没效果，没产生行互换的效果，是我的理解错了吗？

hzruziniu

'复制删除方法第2行与第3行对调
Private Sub CommandButton1_Click()
    Rows(2).Copy
    Rows(4).Insert
    Rows(2).Delete
End Sub

'插移位方法第10行与第11行对调
Private Sub CommandButton2_Click()
    Rows(10).Cut
    Rows(12).Insert Shift:=xlDown
End Sub

hzruziniu

'复制删除方法第2行与第3行对调
Private Sub CommandButton1_Click()
    Rows(2).Copy
    Rows(4).Insert
    Rows(2).Delete
End Sub

'插移位方法第10行与第11行对调
Private Sub CommandButton2_Click()
    Rows(10).Cut
    Rows(12).Insert Shift:=xlDown
End Sub

taller