当单元格 (A1) 值更改时，每次创建新单元格时，它都会复制到特定列 (c) 中的另一个工作表 (sheet3)。如果手动输入 A1 中的单元格值，代码工作正常，但这里我在 A1 中有公式/粘贴链接。使用这个公式，它不会自动更新。另一个挑战是我想复制到保存在同一文件夹中的另一个 excel(Amount) 中的 sheet1。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = Range("A1").Address Then
' Get the last row on our destination sheet (using Sheet2, col A here)...
Dim intLastRow As Long
intLastRow = Sheet3.Cells(Sheet3.Rows.Count, "C").End(xlUp).Row
' Add our value to the next row...
Sheet3.Cells(intLastRow + 1, "C") = Target.Value
End If
End Sub
：：警告：：
该工作表ç焊割事件工作在一个小区变更时的内容，而工作表小号选更改事件每当选择了新的细胞工程。
在您的情况下，无论何时在单元格中输入数据A1或重新计算数据，宏都会将每个新值复制到新行中的另一个工作表。
但是，当细胞A1与公式不工作的联系，原因是在这种情况下，既没有工作表ç焊割或小号大选变化的作品。
因此，我想建议工作表ç alculate事件，因为它触发宏每当表计算的公式，如发生在你的情况下，由于电池A1与公式单元格链接。
Private Sub CalCopy()
Workbooks.Open "C:\Yourfolder\satyam.xlsx"
a = Sheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row + 1
Sheets("Sheet1").Range("A" & a).Value = Workbooks("1.xlsm").Worksheets("Sheet1").Range("A1").Value
ActiveWorkbook.Save
Workbooks("satyam.xlsx").Close
End Sub
Private Sub Worksheet_Calculate()
If Range("A1").Value = Range("H1") Then
Call CalCopy
End If
End Sub
这个怎么运作：
A1与Cell相连H1，有一个公式。H1，Excel 就会在 Cell H1& 中获取新值A1。CalCopy，将值从单元格复制A1到Sheet1另一个工作簿中作为新行/记录。NB
1.xlsm。本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句