在VBA中移动后如何返回到原来的活动单元格？

在VBA中，可以使用Application对象的Selection属性来获取当前选定的单元格范围。可以将该范围保存到一个变量中，以便稍后返回。然后，在移动到其他单元格之后，可以使用该变量来返回到原来的活动单元格。

以下是一个示例代码：

Sub MoveAndReturn()
    Dim originalRange As Range
    Set originalRange = Selection ' 保存当前选定的单元格范围
    
    ' 在这里执行其他操作，例如移动到其他单元格
    Range("A1").Select ' 示例：移动到A1单元格
    
    ' 在需要的时候返回原来的活动单元格
    originalRange.Select
End Sub

以上代码首先保存了当前选定的单元格范围到originalRange变量中。然后，可以在代码的其他部分执行其他操作，例如将选定的单元格移动到其他位置。最后，通过使用Select方法和originalRange变量，可以返回到原来的活动单元格。

在这个例子中，移动后返回原来的活动单元格的方法是通过保存原始的选定范围，并使用Select方法来选定该范围。