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