根据总表每一列数据按照固定模板生成一个工作表

冰比水多。。/v

求助大神帮忙解决一下，从汇总总表里提取数据，每一列是一个工作表的数据，依据固定模板的工作表，然后把总表的每列数据都生成一个工作表到一个工作簿里面，工作表的命名以第一行的F列起对应列对应名字）求大神帮解决一下






模板.rar (34.88 KB, 下载次数: 7)

2023-7-21 15:16 上传

点击文件名下载附件

cyq4896

请试一试.

ykcbf1100

一表拆分为多表。

附件供参考。。。

冰比水多。。/v

cyq4896 发表于 2023-7-21 15:53
请试一试.

谢谢老师帮忙

冰比水多。。/v

ykcbf1100 发表于 2023-7-21 16:15
一表拆分为多表。

附件供参考。。。

感谢老师帮忙

冰比水多。。/v

老师好  我如果只想把每列有数据的筛选生成新表  该如何操作

yynrzwh

1. Sub 图()
   
2. Dim rng As Range
   
3. With Sheets("工作量统计表").UsedRange
   
4.     lr = .Cells(Rows.Count, 2).End(3).Row
   
5.     Set rng1 = Range("B2:D" & lr)
   
6.         For i = 6 To 65
   
7.             nm = .Cells(1, i).Value
   
8.             a = WorksheetFunction.Count(.Range(.Cells(2, i), .Cells(lr, i)))
   
9.             If a > 0 Then
   
10.                 Set rng = Union(rng1, .Range(.Cells(2, i), .Cells(lr, i)))
    
11.                 Sheets("模板").Copy after:=Sheets(Sheets.Count)
    
12.                 With ActiveSheet
    
13.                     .Name = nm
    
14.                     rng.Copy .Range("B5")
    
15.                 End With
    
16.             End If
    
17.             Set rng = Nothing
    
18.         Next i
    
19. End With
    
20. End Sub
    

复制代码

3822

参与一下~

gwjkkkkk

冰比水多。。/v 发表于 2023-7-24 10:15
老师好  我如果只想把每列有数据的筛选生成新表  该如何操作

请参考 附件 。。。