VBAselect当前select中的单元格

我logging了以下内容，将一组垂直的单元格移动到从原始范围的起点向右移两个单元格的范围。

Sub Macro4() ' ' Macro4 Macro ' ' Keyboard Shortcut: Option+Cmd+u ' Range("A105:A115").Select Selection.Copy Range("C105").Select Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _ , Transpose:=True ActiveWindow.SmallScroll Down:=6 Range("A116").Select End Sub 

现在，我想运行macros来执行这个操作相对于其他手动加亮的单元格。 我如何编辑代码来做到这一点？ 谢谢。

Answer 1

尝试这个：

 Dim rng As Range If TypeName(Selection) = "Range" Then Set rng = Selection rng.Copy rng.Offset(0, 2).Resize(1, 1).PasteSpecial xlPasteAll, , , True End If 

HTH