VBA选择当前选择中的单元格

Question

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

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

现在，我想运行宏来相对于其他手动突出显示的单元格执行此操作。如何编辑代码来做到这一点？感谢。

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