根据同一Excel工作表中的用户输入剪切并粘贴特定行

Question

我想在我的案例excel第999行中选择wooksheet中的最后一行数据。我的宏执行以下操作：

1. 用户获取一个对话框，询问应在同一工作表中根据“Excel”行号粘贴行的位置。 （见下面的代码）

例如，行999被剪切，然后粘贴在第4行和第5行之间。

这很好用，但此刻要粘贴在第4行和第4行之间。 5用户必须输入文本5：5

我希望用户能够在对话框中输入数字5,10,100等。任何关于如何做到这一点的想法都很受欢迎。

  

块引用

'Input paste location, defaut value row 5

Dim myValue As Variant
    myValue = InputBox("Input row", "Input", ("5:5"))


' Select row, cut row 999, paste cut row based on input dialog

Rows("999:999").Select
Selection.Cut
Rows(myValue).Select
Selection.Insert Shift:=xlDown