Excel数据添加后自动录入另一行

在工作中我们经常会在录入的数据的同时，给另一列数据重复添加。如下图所示，我们在c1单元格输入数据，然后将其数据录入A列，向下添加。这只是一个简单的示例，其他更复杂的添加可参考本示例代码修改。

1500883916104993.gif

步骤一：创建一个新宏。如下图

1500883941111770.gif

详细源码：Sub 添加()   n = 1  Do While Cells(1, 3)  ""    If Cells(n, 1)  "" Then      n = n + 1      Else:      Range("C1").Copy Destination:=Range(Cells(n, 1), Cells(n, 1))      Cells(n, 1).Value = [c1].Value      Exit Do    End If  LoopEnd Sub
步骤二：创建一个按钮，如下图

1500884003110247.gif