EXCEL帮手，数据添加录入下一行！（有VBA代码）

我们在工作中可能会遇到这种情况。例如下图所示，我们在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

步骤二：创建一个按钮，如下图

搞定啦。