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

这是将Sheet1的值从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

如何将单元格复制为文本

3 个答案: