用vba创建一个命令按钮，点击可以往excel多行单元格输入数据，能实现吗？(在excel中如何使用VBA插入一个按钮，使其点击按钮实现在表格中单元格输入的功能

• 在excel中如何使用VBA插入一个按钮，使其点击按钮实现在表格中单元格输入的功能，即刷新数据
• excel中怎么使用VBA插入一个按钮 使其点击按钮实现在某单元格输入的功能
• 想在excel里用VBA，点击按钮复制一行数据到另外一行，可是不知道该怎么写
• 怎样在excel里用vba之类的实现点击一个按钮后一行数据自动复制粘贴到指定行？

在excel中如何使用VBA插入一个按钮，使其点击按钮实现在表格中单元格输入的功能，即刷新数据

插入一个按钮控件，把下面的代码贴进去，注意你的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表格，按钮计数才会重置为零

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

想在excel里用VBA，点击按钮复制一行数据到另外一行，可是不知道该怎么写

代码如下：

Private Sub ComboBox1_Change()

Sheet2.Cells(1, 1).Value = ComboBox1.Value

Dim i As Integer

i = 2

Do While Not i > 100000

If Sheet3.Cells(i, 1) = "" Then

Sheet3.Cells(i, 1).Value = Sheet2.Cells(1, 1).Value

Sheet3.Cells(i, 2).Value = Now()

GoTo lastline

Else

i = i + 1

End If

Loop

lastline:

MsgBox "done!"

End Sub效果是：

sheet1里面有combobox1, 用户选某值，

sheet2的第一行变成用户选的值，

sheet3的第一非空行追加记录用户值。

怎样在excel里用vba之类的实现点击一个按钮后一行数据自动复制粘贴到指定行？

Private Sub CommandButton1_Click()

n = 23

Do While Cells(2, 1) <> ""

If Cells(n, 1) <> "" Then

n = n + 1

Else:

Range("A2:F2").Copy Destination:=Range(Cells(n, 1), Cells(n, 6))

Exit Do

End If

Loop

End Sub