excel vba求剪切后，粘贴到指定行代码

Question

要求把A列-H列第8行开始（不管是多少行，是动态的）的数值，全部剪切后，粘贴至：最后行定位到A列-H列第41行，求代码。谢谢！

Answer 1

代码如下：

Sub 剪切粘贴到41行()
R = Range("A1").CurrentRegion.Rows.Count
If R >= 8 And R < 41 Then Range("A8:I8").Resize(41 - R).Insert Shift:=xlDown
End Sub

如果总行数本身就超过了41行，你的要求就无法满足了。

追问

运行后，剪切、没有能粘贴到所指定行？
能否修改成下移到所指定行？谢谢！

追答

不可能，代码我检验了的。除非数据行不连续