EXCEL一个表单中表格如何分多表单？新求助

小NN

如题
大意是第一个SHEET里有一些表格，每个表格59行（有合并单元格），表格形式完全一样，里面填的内容不一样（如涂黄色、橙色这种）。第一个SHEET总长大约6500行。需要把每个表格分成单独的一个SHEET。

cjc209

采用循环.Areas的方法 copy到新的工作表中就行了

cjc209

要来点模拟数据才好搞

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.12.24   按固定行拆分为多工作表
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     p = ThisWorkbook.Path & ""
   
5.     rr = 59
   
6.     Set sh = ThisWorkbook.Sheets("产品")
   
7.     For Each sht In Sheets
   
8.         If sht.Name <> sh.Name Then sht.Delete
   
9.     Next
   
10.     With sh
    
11.         r = .UsedRange.Rows.Count
    
12.         c = .UsedRange.Columns.Count
    
13.         arr = .[a1].Resize(r, c)
    
14.         Set bth = .Rows(1).EntireRow
    
15.     End With
    
16.     For i = 1 To UBound(arr) Step rr
    
17.         k = k + 1
    
18.         Set sht = Sheets.Add(After:=Sheets(Sheets.Count))
    
19.         With sht
    
20.             .Name = k
    
21.             bth.Copy .[a1]
    
22.             .DrawingObjects.Delete
    
23.             sh.Rows(i).Resize(rr, c).Copy .[a1]
    
24.         End With
    
25.     Next
    
26.     sh.Activate
    
27.     Application.ScreenUpdating = True
    
28.     MsgBox "OK！"
    
29. End Sub
    

复制代码