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