0

应该是一个简单的问题:

我有以下粘贴数据的脚本:

Dim a As Range
Set a = Selection
Selection.Cut
Range("C1:I1").End(xlDown).Offset(1, 0).Select
ActiveSheet.Paste

粘贴后,ActiveSheet 移动到其粘贴所在的单元格。如何重新关注从中剪切数据的单元格?

我想将重点放在当前保存在“A”变量中的范围上。

我试过这个:

a.Select

a.Activate

但是,它实际上并没有将 activeSheet 移动到正确的区域;它只是选择它。

4

1 回答 1

6

您似乎想要的可以在一行中完成:

Sub OneLiner()
   Selection.Cut Range("C1:I1").End(xlDown).Offset(1, 0)
End Sub

cut关键字后的单个空格表示目的地紧随其后。

无需 Dim 或 Set a,因为您甚至没有在代码中使用a作为变量。

这样做不使用剪贴板,不改变光标的位置或页面位置。

于 2013-01-24T18:18:29.493 回答