展开全部
网页链接
网盘7天有效,xlsb格式,2010版以上的excel能用
加了个按钮,按一次保存一次,保存在"sheet2"表格里
要是把这个表的名字改了,就把红框里的“sheet2”改成表名
Private Sub CommandButton1_Click()
Dim a, b
With Sheets("sheet2")
a = WorksheetFunction.CountA(.Columns(2)) + 1
.Cells(a, 1) = Now
For b = 2 To 9
.Cells(a, b) = Cells(5, b)
Next
End With
End Sub