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

我想select我的案例excel行999的wooksheet中的最后一行数据。我的macros执行以下操作：

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

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

这工作正常，但目前要粘贴行4和5之间的用户必须input文本5：5

我希望用户能够在对话框中简单地input数字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 

Answer 1

我已经回答了我自己的问题。 当你input一个行号，比如5，6，10，100等，它就会像现在一样工作。

奇妙

下面更新的代码不包括“5：5”默认值。

大段引用

 'Input paste location, defaut value row 5 Dim myValue As Variant myValue = InputBox("Insert New Row", "Input", ("5")) If myValue = "" Then Exit Sub ' 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