如何将单元格复制为文本

我有一个单元格(S1),在'sheet 2'的'sheet 1'中有一个dynamic值,我想取(S1)的值并将(S1)单元格的状态复制到第二个sheet但在改变之前保留价值。 我想这是dynamic的做有没有办法?

使用vba,您可以获得如下的值,只需将该macros链接到一个button即可:

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

或者,您可以剪切并粘贴特殊的值

如果您更喜欢使用vba,则需要将代码粘贴到sheet1(代码部分)。
当Sheet1的单元格S1中的值更改时, Worksheet_Change事件将被调用,它将复制该单元格的新值(它不保留旧值)。 如果要创buildS1 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 

尝试这个:

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

这是将Sheet1的S1值转换为Sheet2的S1的一种简单方法。
我不知道你的Sheet1-S1值如何改变,但你可以把这个代码在转换之间。