Question

excel关于写保存数据到指定表的宏代码，请高手指教,把表1的数据点击保存就能直接保存到表2里。

Answer 1

在Sheet1插入一个ActiveX控件命令按钮
其Caption属性取为“保存”
对该命令按钮编程如下：
Private Sub CommandButton1_Click()
Dim i2 As Integer
i2 = Sheet2.Range("A65536").End(xlUp).Row + 1
With Sheet2
.Cells(i2, 1) = Range("B3")
.Cells(i2, 2) = Range("D3")
.Cells(i2, 3) = Range("F3")
.Cells(i2, 4) = Range("H3")
.Cells(i2, 5) = Range("B4")
.Cells(i2, 6) = Range("A6")
End With
End Sub

Answer 2

在 ThisWorkBook的
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
///些代码把表一的数据转存到表二即可
End Sub

Answer 3

你可以手动操作这个过程，录制一个宏，然后设置一个保存按钮，把它写进按钮的代码里面

追问

因为我是不断累加的，不知道行吗？

追答

你可以在记录页做一个与库一样格式的单行记录，用公式等于你的记录内容。
宏的流程：
复制单行记录，
查找库页记录的最后一行或第一个空行，数值粘贴。