在工作中我们经常会在录入的数据的同时,给另一列数据重复添加。如下图所示,我们在c1单元格输入数据,然后将其数据录入A列,向下添加。
这只是一个简单的示例,其他更复杂的添加可参考本示例代码修改。
步骤一:创建一个新宏。如下图
详细源码:
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
Loop
End Sub
步骤二:创建一个按钮,如下图