批量新建工作表遇到难题，本来挺简单个事结果进行不下去了

糖↗小冷

以 数据库 C列编码为新工作表名，以 1-Y033371093 为模板批量建立工作表

难题是因为写入了一个  关键控制单元格，  批量复制的时候先要 建立一个1-Y033371093（2）然后再按照数据库C列的名称命名，

问题就处在1-Y033371093（2） 这不一上，vlookup返回的数据不正确，控制单元格代码不执行，连锁反应批量工作表也不执行。

请老师帮忙看一看怎么解决。

3190496160

Sub 拆分()
Application.ScreenUpdating = False
Dim ar As Variant
Dim d As Object, dc As Object
Set d = CreateObject("scripting.dictionary")
Set sht = Sheets("模板")
Application.DisplayAlerts = False
For Each sh In Sheets
    If sh.Index > 3 Then sh.Delete
Next sh
Application.DisplayAlerts = True
With Sheets("数据库")
    r = .Cells(Rows.Count, 3).End(xlUp).Row
    If r < 3 Then MsgBox "数据库为空！": End
    ar = .Range("c2:c" & r)
End With
For i = 2 To UBound(ar)
    If Trim(ar(i, 1)) <> "" Then
        d(Trim(ar(i, 1))) = ""
    End If
Next i
For Each k In d.keys
    sht.Copy after:=Sheets(Sheets.Count)
    With ActiveSheet
        .Name = k
        .[c5] = k
    End With
Next k
Sheets("数据库").Select
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160

3190496160

批量复制.rar (79.55 KB, 下载次数: 8)

2023-2-7 09:58 上传

点击文件名下载附件

3190496160

代码是就你目前的思路来写的，只是把工作表中C5单元格的公式改为代码写入，增加了一个模板工作表，
由于你的数据是通过大量公式来获取的，所以，代码运行的速度就大打折扣了，既然用代码了，为何不取消公式，直接通过代码把数据写入到相应的工作表内

蓝桥玄霜

工程测量的数据关系到工程质量百年大计，你这样造假资料涉嫌违法的，你确定要这么干下去？

糖↗小冷

蓝桥玄霜 发表于 2023-2-7 10:05
工程测量的数据关系到工程质量百年大计，你这样造假资料涉嫌违法的，你确定要这么干下去？

你好，蓝老师，我做这个不用于工程资料， 是我们内部购买的测试新车，需要做数据模拟， 只是前面用了没有更改，我们需要把数据提出出来，导入到新的检测车内，测试他们软件的分析能力， 一张一张做数据量太大了，就想这么个注意能快速生成系统。感谢您的提醒，谢谢蓝老师

糖↗小冷

3190496160 发表于 2023-2-7 10:00
代码是就你目前的思路来写的，只是把工作表中C5单元格的公式改为代码写入，增加了一个模板工作表，
由于你 ...

感谢老师的帮助，有给我提供了更广泛的思路，谢谢您的辛勤付出，再次感谢

糖↗小冷

3190496160 发表于 2023-2-7 09:58

老师，您好， 自动控制单元格 那行代码您给注释了，后期复制出来的工作表不执行代码，无法完成对单元格的判断，这个怎么解决？

糖↗小冷

糖↗小冷 发表于 2023-2-7 10:47
老师，您好， 自动控制单元格 那行代码您给注释了，后期复制出来的工作表不执行代码，无法完成对单元格的 ...

解决了，哈哈哈，把模板的公式 改一下，把注释去掉， 让 #n/a 等于固定值，感谢老师