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