怎么用VBA按钮把一行数据填到另外一个表里面

Question

源表里面有多行记录 没行记录配一个VBA按钮 点击按钮填到目标表中

Answer 1

'首先你把你的一个表改为"源表"，存放数据的表改为“目标表”，
'在"源表"加一个按钮命名“保存”其代码如下！
Public Sub 保存()
Dim temp As Integer '定义一个用来保存工作表中单元格数据行数的整型变量
Dim count As Integer '定义一个用来保存调查结果记录行数的整型变量
Dim tenp As Integer
tenp = Sheets("源表").[a2].CurrentRegion.Rows.count
temp = Sheets("目标表").[a1].CurrentRegion.Rows.count

'将用于保存调查数据的工作表Sheet3的记录行数赋给count
count = temp - 1 '工作表中有3行单元格保存字段名
Sheets("源表").Select
Range(Cells(2, 1), Cells(tenp, 9)).Select '在选定的工作表（目标表）选择待保存数据的区域
If Cells(2, 4) > 0 Then
Selection.Copy '对选择的数据区域进行复制操作
Sheets("目标表").Activate '激活保存源数据的工作表
Rows(temp + 1).Select '选择工作表中最后一条记录的下一行单元格区域
ActiveSheet.Paste '粘贴数据
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("源表").Select
Application.CutCopyMode = False '释放进行复制操作的单元格区域
MsgBox "此单己保存成功，请继续！", vbOKOnly, "确定" '以对话框的形式输出信息
Else
MsgBox "不能为空，请正确录入！", vbOKOnly, "确定"
End If
End Sub
'以上代码测试通过！希望我的回答对你有用！

追问

我的表是在不同的excel里面的 不在一个表里面的3个sheet里面

追答

那不叫另一个工作表，而是另一个工作簿，大哥，表达不清啊！
这样，要重新写代码！需要花时间的，还不如你提高悬尝！
如果你真EXCEL表保存到另一个，只需修改：Sheets("目标表").Activate 把这句修改为你目标表存放的位置路径