求老师帮忙复制工作表并自动命名的问题

gglili · 发表于 2024-9-27 14:44

求教各位老师，VBA代码本工作簿内复制工作表，点击一次复制一张并命名为第几页，求大佬帮忙

复制表页.rar (10.58 KB, 下载次数: 7)

cyq4896 · 发表于 2024-9-27 14:54

Sub test()
n = Sheets.Count
Sheet1.Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = "第" & n + 1 & "页"
End Sub

z865593849 · 发表于 2024-9-27 14:55

wengjl · 发表于 2024-9-27 15:02

Sub 增加表()
n = Sheets.Count
bmc = "第" & n + 1 & "页"
Sheets.Add.Name = bmc
Sheets(bmc).Move after:=Sheets(Sheets.Count)
End Sub

ZHLK · 发表于 2024-9-27 15:16

Sub demo()
Sheets("第1页").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = "第" & Sheets.Count - 1 & "页"
End Sub

小凡、、、 · 发表于 2024-9-27 15:35

楼主是要新增还是复制

gglili · 发表于 2024-9-27 15:41

z865593849 发表于 2024-9-27 14:55

老师，我是想复制第1页的数据到第2页，非常感谢

gglili · 发表于 2024-9-27 15:42

小凡、、、发表于 2024-9-27 15:35
楼主是要新增还是复制

想复制，老师，感谢解答

kyxfyzg · 发表于 2024-9-27 16:49

参与一下。。。。。。。。

		自动登录	找回密码
密码			免费注册

[求助] 求老师帮忙复制工作表并自动命名的问题