Question

我正在尝试将选定的单元格值复制到另一个工作表。 Selected单元格有所不同，但始终放在Sheet1（“A9”）

中

由于

Answer 1

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

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

Answer 2

如果您必须使用Selection（即使建议远离它），请使用以下代码：

Sub CopyPaste_toA9()

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

End Sub

将Active Cell复制到另一个工作表

2 个答案: