想将第二张工作表作为模板，进行批量复制并重命名，有重复的命名自动跳过本次创建

yocomila · 发表于 2020-6-30 19:34

本帖最后由 yocomila 于 2020-6-30 19:48 编辑

大神，恳请求救！

我原本的想法是：

我想将第二张表作为模板，通过【新增员工】按钮，将单个或多个姓名输入表单实现批量创建工作表，并将输入的姓名分别重命名。如果姓名已经创建过工作表的，就跳过不创建。比如：张三工作表已经存在，就自动跳过，不创建张三的工作表。

我现在遇到的问题是：

1、运行时错误代码：1004
2、如果新增员工里有张三，多创建出一个同名张三工作表。（这一点不是违背了EXCEL不能创建同名的工作表的规则吗？！为什么VBA还能创建？！）
3、张三工作表里有公式和公式运算的结果，为什么新建的其他员工，就不显示数据了？除非双击一下相应工作表名就能出来。针对这种有办法解决吗？
4、我本来只创建N张表，但最后会多创建出一张表，即张三(2)……（这一点执行VBA您可以看得到！），多的这张表是不应该创建的。

万分感谢！

风筝那根线 · 发表于 2020-6-30 20:18

一个变量可以重复使用替换，不用创建那么多变量的。

问题样本2.zip (30.22 KB, 下载次数: 116)

lwwy1981 · 发表于 2020-6-30 19:58

为什么新手都喜欢用窗体...

lwwy1981 · 发表于 2020-6-30 20:17

想将第二张工作表作为模板，进行批量复制并重命名，有重复的命名自动跳过本次创建.rar (23.05 KB, 下载次数: 106)

yocomila · 发表于 2020-6-30 22:22

风筝那根线发表于 2020-6-30 20:18
一个变量可以重复使用替换，不用创建那么多变量的。

太感谢了，你的建议我采纳，我把变量也缩减了一些。确实感觉变量多了，不方便复查代码，容易绕晕自己！通常认真阅读和借鉴你的代码，解决了我的所有问题！

yocomila · 发表于 2020-6-30 22:25

lwwy1981 发表于 2020-6-30 20:17

感谢，你的方式也非常不错！不过我采用了【风筝那根线】的代码。再次谢谢！

lwwy1981 · 发表于 2020-6-30 22:26

Sub abc()
On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set d = CreateObject("Scripting.Dictionary")
With ThisWorkbook.Sheets("662")
arr = .[A1].Resize(.Cells(Rows.Count, "A").End(xlUp).Row, .Cells(1, Columns.Count).End(xlToLeft).Column)
End With
For i = 3 To UBound(arr)
d(arr(i, 1)) = ""
Next i
For Each sht In ThisWorkbook.Sheets
If d.exists(sht.Name) Then sht.Delete
Next sht
For i = 0 To d.Count - 1
Sheets("模板").Copy after:=Sheets(Sheets.Count)
With Sheets(Sheets.Count)
.Name = d.keys()(i)
End With
Next i
Sheet1.Select
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

复制代码

周粥 · 发表于 2020-6-30 22:47

lwwy1981 发表于 2020-6-30 20:17

按照我自己的理解的话，完全可以先判断表格是否存在，然后再将一维数组转置成二维数组，是不是这样会简单很多？

hpwZHENG · 发表于 2023-5-26 09:59

你好，又如何将生成的工作表单一键自动删除呢，想跟各位老师学习一下，谢谢

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

[求助] 想将第二张工作表作为模板，进行批量复制并重命名，有重复的命名自动跳过本次创建

评分

评分