在excel表中添加一个按钮，使其sheet1的指定单元格保存到sheet2中，并在每次点击按钮时sheet2中自动

2024-11-29 04:02:03

推荐回答（2个）

回答1：

可以定义一个整数如dim nowDay as Integer
nowDay=Day(Now()) '表示今天是多少号
将 Sheets(1)换成sheets(nowDay)

回答2：

Sub test()
d = Day(Today)
Sheets(d).Cells(Sheets(d).[A65536].End(xlUp).Row + 1, 1) = [A1]
[A1].ClearContents
'Sheets(d).Select
End Sub

在excel表中添加一个按钮，使其sheet1的指定单元格保存到sheet2中，并 在每次点击按钮时sheet2中自动