展开全部
网页链接
网盘7天有效,xlsb格式,2010版以上的excel能用
加了个按钮,按一次保存一次,保存在"sheet2"表格里
![](https://ask-fd.zol-img.com.cn/g7/M00/03/0F/ChMkK2V4JU-IQrPOAABbt27VOosAAYRHwM-ZlYAAFvP664.jpg)
要是把这个表的名字改了,就把红框里的“sheet2”改成表名
![](https://ask-fd.zol-img.com.cn/g7/M00/03/0F/ChMkLGV4JVCIXCr4AACDGuF4xycAAYRHwM-37AAAIMy275.jpg)
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