根据所选单元格

Question

我在Sheet 1中选择了一个单元格。 我试图保存该单元格位置然后偏移并将上面的数据3单元格复制到工作表2＆＃34; A1＆＃34;，然后返回到工作表1并偏移该选定单元格的4个单元格并将数据复制到工作表中2＆＃34; C1＆＃34;。

每次使用此宏时，我都会选择不同的单元格，因此必须围绕当前选定的单元格进行旋转。我只是坚持如何保存选定的单元格位置，然后通过子目录使用它。

我的解决方案：

Sheets("Income").Select
ActiveCell.Select
Selection.Copy

Sheets("Claim APR").Select
Range("D92").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False

Sheets("Income").Select
ActiveCell.Offset(1, 0).Select
Application.CutCopyMode = False
Selection.Copy

Sheets("Claim APR").Select
Range("F93").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _