将活动单元格复制到另一个工作表

Question

我想将选定的单元格值仅复制到另一个工作表。所选单元格不同，但总是会被放置在工作表Sheet1（“A9”）

感谢

Answer 1

如果你必须使用Selection（即使它建议留远离它），然后用下面的代码：

Sub CopyPaste_toA9() 

Selection.Copy 
Sheets("Sheet1").Range("A9").PasteSpecial xlPasteValues 

End Sub 

Answer 2

您可以创建一个子程序来做到这一点：

Sub copy_cell(CopyFrom As Range, CopyTo As Range) 
    CopyTo.Value = CopyFrom.Value 
End Sub 

，并调用它像这样：

Sub testing() 
    Dim CopyFrom As Range 
    Dim CopyTo As Range 
    Set CopyFrom = ActiveWorkbook.ActiveSheet.Range("A1") 
    Set CopyTo = ActiveWorkbook.ActiveSheet.Range("A9") 
    Call copy_cell(CopyFrom, CopyTo) 
End Sub