应该是一个简单的问题:
我有以下脚本粘贴数据:
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移动到正确的区域;它只是选择它。
答案 0 :(得分:6)
您似乎想要的只需一行即可完成:
Sub OneLiner()
Selection.Cut Range("C1:I1").End(xlDown).Offset(1, 0)
End Sub
剪切关键字后面的单个空格表示目的地跟随。
您无需暗淡或设置 a ,因为您甚至没有在代码中使用 a 作为变量。
这样做不会使用剪贴板,更改光标位置或页面位置。