在excel中如何使用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表格，按钮计数才会重置为零

步骤如下：

1.开发工具，插入，按钮

2.拖动绘制按钮，在d框中选择，新建

3.在新界面中输入如下代码

4.这样，每次点击按钮，就会在选中单元格中输入内容了

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

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

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

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

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

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

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

---