EXCEL任何方式将每个迭代结果复制到一个单独的表？

我有一个下面的问题：我想尝试不同的值说A1单元格。 每次我把数值inputA1，单元格B1，C1，D1和E1都会改变。 有什么办法可以创build一个新的表，将自动将这些迭代的结果复制到单独的单元格。 所以例如：我selectA1 = 10。这自动出现在A3。 所有B1，C1，D1和E1的值自动存储在B3，C3，D3和E3中。 然后我改变A1 = 20。B1，C1，D1和E1的所有新值现在存储在B4，C4，D4和E4。

任何build议如何做到这一点？ 感谢您的时间！

Answer 1

将此代码放置在工作表Worksheet_Change模块中，每次对单元格A1进行更改时，结果将从第3行添加并向下添加。

Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Integer i = 3 'If there is a change to A1 If Target.Address = ActiveSheet.Range("A1").Address Then Do Until ActiveSheet.Cells(i, 1).Value = vbNullString i = i + 1 Loop ActiveSheet.Cells(i, 1).Resize(, 5).Value = ActiveSheet.Range("A1:E1").Value End If End Sub 

Answer 2

1. 如果A1改变，单元格b1，c1，d1和e1改变，这可以通过无用的代码来解决
2. 为了自动添加新行，你可以使用这个macros

 Sub Macro4() ' ' Macro4 Macro ' ' Keyboard Shortcut: Ctrl+t ' Range("A1:E1").Select Selection.Copy Cells(Application.Rows.Count, 1).End(xlUp).Offset(1, 0).Select ActiveSheet.Paste End Sub 

要使用该macros，只需按Ctrl + T，（键盘快捷方式取决于你）