Excel sheet 1为手工录入数据，sheet2为模板，如何在sheet1中设置一个按键，点击后能够自动生成一张新表

2024-11-30 23:13:35

推荐回答（2个）

回答1：

Sub add()

If [b1] = "" Then

MsgBox "请选择要复制的单据"

Exit Sub

Else

Sheets([b1].Value).Copy after:=Sheets(Sheets.Count)

Sheets(Sheets.Count).Select

Sheets(Sheets.Count).Name = Format(Sheets.Count - 4, "000")

If Sheets.Count = 5 Then

Sheets(Sheets.Count).[ai7] = 110937001

Else

Sheets(Sheets.Count).[ai7] = Sheets(Sheets.Count - 1).[ai7] + 1

End If

End Sub

给你一个样表。

回答2：

如果在生成的时候新表存在怎么处理。。。。
比如今天20130508，第一次生成后产生“05-08”这张表，
那第二次生成时，是删除旧表还是不重新生成？