VBA Excel通過列和行偏移將單元格內容復制到另一個

Question

這是我的代碼

Sub A_Copy_To_Prior_Row_column()
'
' A_Copy_To_Prior_Row_column Macro
'

'
    Application.CutCopyMode = False
    Selection.Copy
    Range("R183").Select
    ActiveSheet.Paste
End Sub

R183 在哪里我需要的不是特定的單元格，而是基於我希望復制的所選/突出顯示的單元格的負 1 行和 +17 列的單元格

Answer 1

activecell.Offset(-1, 17).Value = activecell.Value

Answer 2

Sub A_Copy_To_Prior_Row_column()
'
' A_Copy_To_Prior_Row_column Macro
'

'
    Application.CutCopyMode = False
    With Selection
        .Copy
         ActiveSheet.Paste Destination:=.Offset(-1, 17)
    End With
End Sub