Question

我有这个问题：在Excel文件中我有两张纸。在第一张表中，我输入值，更改值，删除值...有时，在一个单元格中，我输入的值如下125+138+458

现在，我需要将值复制到下一张工作表中，但只需要将值首先输入到第一张工作表中。

Answer 1

我找到了这段代码：

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim VRange As Range, cell As Range
Dim Msg As String
Dim ValidateCode As Variant
Set VRange = Range("B119:H130")
For Each cell In Target
    If Union(cell, VRange).Address = VRange.Address Then
        Cells(cell.Row, Columns.Count).End(xlToLeft).Offset(, 1) = Date & " " & Time
        Cells(cell.Row, Columns.Count).End(xlToLeft).Offset(, 1) = cell.Value
    End If
Next cell End Sub

没关系，因为现在我有变化的时间和价值变化......我需要有列标题的单元格值，只需要第一次更改单元格。怎么做？

Answer 2

在你的第二张表中，你可以将它放在一个单元格中：'= Sheet1！A1“。

表1：

A1: 50
B1: =A1 + 20

表2：

A1: =Sheet1!A1  //Will output "50"
B1: =Sheet1!B1  //Will output '70"

将工作表1中的A1更改为任何其他值，工作表2中的2个单元格也会更新。

仅将第一个输入的值复制到单元格中

2 个答案: