如何将单元格复制为文本

Question

我有一个单元格（S1），在“工作表2”的“工作表1”上具有动态值，我想获取（S1）的值并将（S1）单元格的状态复制到第二张工作表中但保留更改之前的值。 我想动态地做到这一点有没有办法？

Answer 1

使用vba，您可以获取如下所示的值，只需将宏链接到按钮即可：

Worksheets(2).Range("s2").value = worksheets(1).Range("S1").value

或者您可以剪切和粘贴特殊值

Answer 2

尝试这个：

Sheets("Sheet1").Range("S1").Copy
Sheets("Sheet2").Range("S1").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, _
    Operation:=xlNone, SkipBlanks:=False, Transpose:=False

这是将S1的值从Sheet1转移到Sheet2的S1的简单方法。
我不确定您的Sheet1-S1值如何变化，但是您可以将这段代码放在过渡之间。

Answer 3

如果您更喜欢使用vba，则需要将代码粘贴到sheet1（代码部分）。
当Sheet1的单元格S1中的值更改时，将调用Worksheet_Change事件，并将复制该单元格的新值（它不保留旧值）。 如果要创建S1 Sheet1的所有值的日志，这将很有帮助。

 Private Sub Worksheet_Change(ByVal Target As Range)

    On Error Resume Next

    Application.EnableEvents = False

    Dim rng As Range
    Set rng = Range("S1")

    If Not Intersect(Target, rng) Is Nothing Then

       ' Sheets("Sheet2").Range("S1") = Target.Value

        Sheets("Sheet2").Range("S" & Sheets("Sheet2").Range("S" & Rows.Count).End(xlUp).Row + 1) = Target.Value
    End If

    Application.EnableEvents = True

End Sub