使用用户输入应用程序向上移动范围以重叠空单元格

Question

我有这个范围的单元格，我想向上移动以消除那些空行的单元格。我通过使用输入框完成了这一操作，以便用户可以选择出现此类问题的范围。我尝试了这段代码，但在运行之后，我想要移动的那一行，它就消失了。

Name

Answer 1

Set rng = Application.InputBox("Range to delete", Type:=8)

和BTW，您不需要选择范围，语句rng.select只会导致您遇到麻烦（例如，如果工作表未处于活动状态）并且您的代码中没有任何内容。