一、VBA简介——添加宏快捷按钮

点击开始——选项——快速访问工具栏——从下列位置选择命令（宏）——选择需要添加的”宏“——添加——确定。

鼠标左键点击快速访问工具栏的快捷键即可执行相应的宏命令。

1）点击：开发工具——控制——插入——表单控制（按钮（窗体控制键））

2）在表格中适当位置拖动，绘制快捷按钮；

3）选取按钮对应的宏，点击确定；

4）左键单击快捷按钮，修改快捷按钮名称；

5）单击宏，运行宏命令。

EXCEL2010中的VBA已编程完。关闭VBA代码窗口。

在标题栏开发工具，选择插入选项卡，点表单控件，点第一按钮，拖动鼠标，再放开，会出现指定宏对话框，再选择所需的宏名。按确定。

A1到AN是横向输入？应该是纵向呀！

Sub 按钮1()

Cells(Range("a65536").End(xlUp).Row + 1, 1) = 1

End Sub

Sub 按钮2()

Cells(Range("a65536").End(xlUp).Row + 1, 1) = 2

End Sub

插入一个按钮控件，把下面的代码贴进去，注意你的button的名字替换掉Private Sub CommandButton1_Click()中的CommandButton1

Option Explicit

Public buttonClickCount As Integer

Private Sub CommandButton1_Click()

buttonClickCount = buttonClickCount + 1

Worksheets("Sheet3").Cells(1, 5).value = Worksheets("Sheet1").Cells(buttonClickCount, 1).value

'MsgBox (buttonClickCount)

End Sub

注意每次重新打开excel表格，按钮计数才会重置为零

---