EXCEL:粘贴后将焦点放在特定的单元格上

时间:2013-01-24 17:51:46

标签: excel vba

应该是一个简单的问题:

我有以下脚本粘贴数据:

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

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

我想把重点放在当前保存在'A'变量中的Range上。

我试过了:

a.Select

a.Activate

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

1 个答案:

答案 0 :(得分:6)

您似乎想要的只需一行即可完成:

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

剪切关键字后面的单个空格表示目的地跟随。

您无需暗淡或设置 a ,因为您甚至没有在代码中使用 a 作为变量。

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