當前選擇中的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