VBA復制多個偏移單元

Question

這可能是基本的，但我找不到方法。

我想選擇一個單元格，然后向右偏移3個單元格。 兩者之間沒有任何關系。 因此，如果我選擇A2，它將復制A2和A5。

我已經設法做到其中之一，但無法弄清楚如何結合。 我是初學者。

到目前為止，感謝您的答復。 意識到我說錯了我的問題。 我想復制在A列中選擇的任何單元格，而EI列中同一行上的相應單元格到目前為止已經做到了，但是我無法弄清楚如何使代碼同時執行

' Keyboard Shortcut: Ctrl+Shift+C
'
    ActiveCell.Copy
    ActiveCell.Offset(0, 5).Copy
End Sub

Answer 1

Sub Try()
Dim Selected_, Paste_ As Range
On Error Resume Next
'Allow user to select cell
Set Selected_ = Application.InputBox("Please select cell you would like to copy", Type:=8).Select
'Copy user's selected cell
Selection.Copy
'Offset, to select column E with the same row as user's selection
Set Paste_ = ActiveCell.Offset(0, 4).Select
'Paste value
ActiveCell.PasteSpecial
End Sub

這應該有幫助:)