[已解决]怎么修改代码可以实现这个位置，万分感谢

coolenjoy

我现在录制的宏只能实现在第6行下面插入一行并复制第6行（A列到J列）的值粘贴到新插入的这一行同个位置，不论我鼠标放到哪一行都是一样的结果，，怎么修改代码可以实现鼠标点击哪行就在鼠标选中那一行的下一行插入一空行并复制上一行（A列到J列）的值粘贴到新插入的这一行的相应位置，万分感谢；；；

最佳答案

月排行榜 / 总排行榜

sgxb123431380

2013-10-17 15:17

    R = Selection.Row
    Rows(R + 1).Insert Shift:=xlDown
    Range("A" & R + 1 & ":J" & R + 1).Value = Range("A" & R & ":J" & R).Value

跳转到最佳答案楼层

sgxb123431380

    R = Selection.Row
    Rows(R + 1).Insert Shift:=xlDown
    Range("A" & R + 1 & ":J" & R + 1).Value = Range("A" & R & ":J" & R).Value