根据sheet1数据自动生成N个表2

3190496160

乐彩007 发表于 2024-11-26 22:07
感谢大神慷慨相助，我的问题解决了，我并不从事与表格相关工作，只是7年前遇到了这样的问题，在这个论坛 ...

赠人玫瑰，手留余香，有用就好

乐彩007

3190496160 发表于 2024-11-26 09:42
Sub 新建工作表()
Application.ScreenUpdating = False
Dim ar As Variant

大神，如果想把单元号里的C列日期填加至新表格U5的位置，将如何修改（在你的vba基础上）

3190496160

乐彩007 发表于 2024-11-28 16:52
大神，如果想把单元号里的C列日期填加至新表格U5的位置，将如何修改（在你的vba基础上）

你目前的文件中就没有这一列数据的嘛

乐彩007

3190496160 发表于 2024-11-29 09:02
你目前的文件中就没有这一列数据的嘛

是的，没有，我只是假设，假设还有N个数列，只是一种想法

3190496160

副本001-C5-1 【保护层】隐蔽工程检查验收记录 - 副本 - 副本.rar (121.59 KB, 下载次数: 1)

2024-11-29 14:54 上传

点击文件名下载附件

乐彩007

3190496160 发表于 2024-11-29 14:54

Sub 新建工作表()
Application.ScreenUpdating = False
Dim ar As Variant
Dim i As Long, r As Long, rs As Long
Dim d As Object
Set d = CreateObject("scripting.dictionary")
With Sheets("单元号")
    r = .Cells(Rows.Count, 1).End(xlUp).Row
    If r < 2 Then MsgBox "单元号工作表为空，请先导入数据！": End
    ar = .Range("a1:c" & r)
End With
For Each sh In Sheets
    If sh.Index > 2 Then
        d(sh.Name) = ""
    End If
Next sh
For i = 2 To UBound(ar)
    If ar(i, 1) <> "" And ar(i, 2) <> "" Then
        s = ar(i, 1) & "|" & ar(i, 2)
        If Not d.exists(s) Then
            Sheets("模板").Copy after:=Sheets(Sheets.Count)
            With ActiveSheet
                .Name = s
                .[z4] = ar(i, 1)
                .[f7] = ar(i, 2)
                .[u5] = ar(i, 3)
            End With
        End If
    End If
Next i
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub
谢谢大神